批处理之家 - Powered by Discuz! Board

标题: [已解决]50元求修复代码，关于ip设置的问题 [打印本页]

作者: beck1321 时间: 2013-1-5 16:29 标题: [已解决]50元求修复代码，关于ip设置的问题

本帖最后由 beck1321 于 2013-1-8 16:15 编辑

具体报酬：50元软妹币
支付方式：支付宝
联系方式：QQ511156969
有效期限：2013年2月之前。
需求描述：如下

@echo off
echo 正在为您设置IP，请稍等......
set /A "a=%RANDOM%%%250+3
set /A "b=%RANDOM%%%250+3
set /A "c=%RANDOM%%%250+3
netsh interface ip set address name="本地连接" source=static addr=10.%a%.%b%.%c% mask=255.0.0.0 >nul
:start
set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1 >nul
arp -a |find "10.1.1.%num%" &&goto start
netsh interface ip set address name="本地连接" source=static addr=10.1.1.%num% mask=255.255.255.0 gateway=10.1.1.250 gwmetric=0 | find "IP地址已在网络上使用" &&goto start
netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary >nul 
netsh interface ip add dns "本地连接" addr=8.8.8.8 >nul
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100 >nul
if %errorlevel% neq 0 goto start
复制代码

这段代码其中

set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1 >nul
arp -a |find "10.1.1.%num%" &&goto start
复制代码

这一段至关重要，是为了arp-a 得到这个随机的num 的ip是否已有mac 即是否已在使用如果有则继续 goto start
如果没有则继续下面的 ip配置工作

问题：
xp运行这个代码是没问题的，经过测试，能够发现已有ip 而重新start
但win7不行，我把>nul去掉看状态 ping了以后直接就配置下面的操作了。给人感觉都没有执行arp -a find这条命令，我在win7单独运行arp -a 这一行，是有显示的。但不知为何整个代码运行时就不出现了。

（支付方式仅限支付宝）

==============
问题已解决，款已付。
感谢"无名"英雄我猜你是论坛的高层哦！

作者: beck1321 时间: 2013-1-5 16:35

我自己做了个测试就是把1楼的代码第6行去掉，（前提是我先手动设置了ip和子网掩码如10.22.22.22 255.0.0.0 ）再运行的批处理则3、4、5 肯定是不起作用的吧，因为我已经手动做好了这段批处理要做的事情。
我就发现这么做就正常了

一旦把第6行代码加入回去又不行了

作者: beck1321 时间: 2013-1-5 16:37

我是这么做测试的比如10.1.1.10 有一台电脑肯定是开着的

我就把代码改为
set /A "num=%RANDOM%%%1+10"

则代表无论怎么随机都是10

那势必就能体现出来对错了

作者: BAT-VBS 时间: 2013-1-5 17:20

echo 正在为您设置IP，请稍等......
set /A "a=%RANDOM%%%250+3
set /A "b=%RANDOM%%%250+3
set /A "c=%RANDOM%%%250+3
netsh interface ip set address name="本地连接" source=static addr=10.%a%.%b%.%c% mask=255.0.0.0
:start
set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1
rem arp -a |find "10.1.1.%num%" &&goto start
%systemroot%\system32\arp.exe -a | %systemroot%\system32\find.exe "10.1.1.%num%" &&goto start
netsh interface ip set address name="本地连接" source=static addr=10.1.1.%num% mask=255.255.255.0 gateway=10.1.1.250 gwmetric=0 | find "IP地址已在网络上使用" &&goto start
netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary 
netsh interface ip add dns "本地连接" addr=8.8.8.8
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100
if %errorlevel% neq 0 goto start
复制代码

如果仍然有问题，请把执行过程贴出来看看那。

作者: BAT-VBS 时间: 2013-1-5 17:21

或者把那行改成这样：

%systemroot%\system32\arp.exe -a 2>&1 | %systemroot%\system32\find.exe "10.1.1.%num%" &&goto start
复制代码

作者: beck1321 时间: 2013-1-5 17:27

回复 4# BAT-VBS

好的我尝试一下

作者: beck1321 时间: 2013-1-5 17:41

回复 5# BAT-VBS

您发的两个都不行我个人觉得不是在arp这一行命令是在第6行的命令

我待会儿发下 xp下和win7的运行过程

作者: beck1321 时间: 2013-1-5 17:44

win7下不成功的（不管是BAT-VBS 给我修改的还是原来的都不行）

C:\>b

C:\>set /A "a=24975%131+20

C:\>set /A "b=17566%251+3

C:\>set /A "c=31688%251+3

C:\>netsh interface ip set address name="本地连接" source=static addr=10.105.250
.65 mask=255.0.0.0 gateway=10.3.3.254 gwmetric=0


C:\>set /A "num=1399%1+232"

C:\>ping 10.3.3.232 -n 2

正在 Ping 10.3.3.232 具有 32 字节的数据:
PING: 传输失败。General failure.
PING: 传输失败。General failure.

10.3.3.232 的 Ping 统计信息:
    数据包: 已发送 = 2，已接收 = 0，丢失 = 2 (100% 丢失)，

C:\>rem arp -a |find "10.3.3.232" &&goto start

C:\>C:\Windows\system32\arp.exe -a   2>&1  | C:\Windows\system32\find.exe "10.3.
3.232"   && goto start

C:\>netsh interface ip set address name="本地连接" source=static addr=10.3.3.232
 mask=255.255.255.0 gateway=10.3.3.254 gwmetric=0


C:\>netsh interface ip set dns "本地连接" source=static addr=10.3.3.10 register=
primary


终止批处理操作吗(Y/N)? y

C:\>
复制代码

======

C:\>rem arp -a |find "10.3.3.232" &&goto start

C:\>C:\Windows\system32\arp.exe -a 2>&1 | C:\Windows\system32\find.exe "10.3.
3.232" && goto start

就是这一段运行是运行了这一行的命令但直接进行下面的操作了。在这批处理运行前后我均arp -a 看了下我做测是的232 的mac都在本机的mac地址表里
======

作者: beck1321 时间: 2013-1-5 17:50

本帖最后由 beck1321 于 2013-1-5 17:53 编辑

xp下没有那么多提示但成功的显示了已占用ip 的mac 然后一直goto start，win7那个运行过程是用的BAT-VBS 您的修改的，即使是没修改的也是那个样子，所以不用担心修改错了的问题

C:\>a
正在为您设置IP地址，请稍等......
确定。


Pinging 10.3.3.254 with 32 bytes of data:

Request timed out.

Ping statistics for 10.3.3.254:
    Packets: Sent = 1, Received = 0, Lost = 1 (100% loss),
  10.3.3.254            1c-17-d3-dc-c0-78     dynamic

Pinging 10.3.3.254 with 32 bytes of data:

Request timed out.

Ping statistics for 10.3.3.254:
    Packets: Sent = 1, Received = 0, Lost = 1 (100% loss),
  10.3.3.254            1c-17-d3-dc-c0-78     dynamic

Pinging 10.3.3.254 with 32 bytes of data:

Request timed out.

Ping statistics for 10.3.3.254:
    Packets: Sent = 1, Received = 0, Lost = 1 (100% loss),
  10.3.3.254            1c-17-d3-dc-c0-78     dynamic

Pinging 10.3.3.254 with 32 bytes of data:

Request timed out.

Ping statistics for 10.3.3.254:
    Packets: Sent = 1, Received = 0, Lost = 1 (100% loss),
  10.3.3.254            1c-17-d3-dc-c0-78     dynamic

Pinging 10.3.3.254 with 32 bytes of data:

Control-C
^C终止批处理操作吗(Y/N)? y

C:\>
复制代码

这个我拿的另一个ip试的 254 其实 232 还是254 这个也不用考虑在出错可能的范围内因为都是我管理的设备确定都是开着的而且批处理win7 xp也都改过尝试用过

作者: beck1321 时间: 2013-1-5 17:51

ping 不通不代表得不到mac

win7明明可以得到mac 却不执行 goto start

作者: BAT-VBS 时间: 2013-1-5 18:06

试试这样能否正确调整到:start

setlocal enabledelayedexpansion
echo 正在为您设置IP，请稍等......
set /A "a=%RANDOM%%%250+3
set /A "b=%RANDOM%%%250+3
set /A "c=%RANDOM%%%250+3
netsh interface ip set address name="本地连接" source=static addr=10.%a%.%b%.%c% mask=255.0.0.0
:start
set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1
rem arp -a |find "10.1.1.%num%" &&goto start
%systemroot%\system32\arp.exe -a | %systemroot%\system32\find.exe "10.1.1.%num%"
echo !errorlevel!
if !errorlevel! equ 0 (
    goto :start
)
netsh interface ip set address name="本地连接" source=static addr=10.1.1.%num% mask=255.255.255.0 gateway=10.1.1.250 gwmetric=0 | find "IP地址已在网络上使用" &&goto start
netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary 
netsh interface ip add dns "本地连接" addr=8.8.8.8
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100
if %errorlevel% neq 0 goto start
复制代码

作者: BAT-VBS 时间: 2013-1-5 18:07

你的Win7是32位的还是64位的？

作者: beck1321 时间: 2013-1-5 19:40

按照您的那个还是不行捏下面是运行过程

C:\>c

C:\>setlocal enabledelayedexpansion

C:\>echo 正在为您设置IP，请稍等......
正在为您设置IP，请稍等......

C:\>set /A "a=13621%250+3

C:\>set /A "b=30738%250+3

C:\>set /A "c=23544%250+3

C:\>netsh interface ip set address name="无线网络连接" source=static addr=192.12
4.241.47 mask=255.0.0.0


C:\>set /A "num=25602%1+1"

C:\>ping 192.168.2.1 -n 2

正在 Ping 192.168.2.1 具有 32 字节的数据:
PING: 传输失败。General failure.
PING: 传输失败。General failure.

192.168.2.1 的 Ping 统计信息:
    数据包: 已发送 = 2，已接收 = 0，丢失 = 2 (100% 丢失)，

C:\>rem arp -a |find "192.168.2.1" &&goto start

C:\>C:\Windows\system32\arp.exe -a   | C:\Windows\system32\find.exe "192.168.2.1
"

C:\>echo !errorlevel!
1

C:\>if !errorlevel! EQU 0 (goto :start )

C:\>netsh interface ip set address name="无线网络连接" source=static addr=192.16
8.2.1 mask=255.255.255.0 gateway=192.168.2.250 gwmetric=0   | find "IP地址已在网
络上使用"   && goto start

C:\>netsh interface ip set dns "无线网络连接" source=static addr=192.168.2.100 r
egister=primary

C:\>netsh interface ip add dns "无线网络连接" addr=8.8.8.8

配置的 DNS 服务器不正确或不存在。

终止批处理操作吗(Y/N)? y

C:\>
复制代码

我的是win7 32位当然也希望能应用于64位

作者: beck1321 时间: 2013-1-5 20:11

我想问个问题

&&goto start 是去本批处理中的start

那么我想让find以后打开一个程序如system32里的cmd。exe 是如何做到呢。我想做个测试

作者: BAT-VBS 时间: 2013-1-5 21:28

setlocal enabledelayedexpansion
echo 正在为您设置IP，请稍等......
set /A "a=%RANDOM%%%250+3
set /A "b=%RANDOM%%%250+3
set /A "c=%RANDOM%%%250+3
netsh interface ip set address name="本地连接" source=static addr=10.%a%.%b%.%c% mask=255.0.0.0
:start
set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1
rem arp -a |find "10.1.1.%num%" &&goto start
arp -a >test.log
%systemroot%\system32\arp.exe -a | %systemroot%\system32\find.exe "10.1.1.%num%"
echo !errorlevel!
if !errorlevel! equ 0 (
    goto :start
)
netsh interface ip set address name="本地连接" source=static addr=10.1.1.%num% mask=255.255.255.0 gateway=10.1.1.250 gwmetric=0 | find "IP地址已在网络上使用" &&goto start
netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary 
netsh interface ip add dns "本地连接" addr=8.8.8.8
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100
if %errorlevel% neq 0 goto start
复制代码

find命令没有找到那个IP
把win7里面test.log压缩一下传上来看看

作者: beck1321 时间: 2013-1-6 09:25

回复 15# BAT-VBS

log里就几个字未找到arp项

但我在运行前后都单独输入cmd命令 arp -a 看了下都是有东东在里面的

作者: BAT-VBS 时间: 2013-1-6 09:49

arp的输出用的2号句柄，这样写入文件试试：

setlocal enabledelayedexpansion
echo 正在为您设置IP，请稍等......
set /A "a=%RANDOM%%%250+3
set /A "b=%RANDOM%%%250+3
set /A "c=%RANDOM%%%250+3
netsh interface ip set address name="本地连接" source=static addr=10.%a%.%b%.%c% mask=255.0.0.0
:start
set /A "num=%RANDOM%%%190+10"
ping 10.1.1.%num% -n 1
rem arp -a |find "10.1.1.%num%" &&goto start
arp -a >test.log 2>&1
%systemroot%\system32\arp.exe -a | %systemroot%\system32\find.exe "10.1.1.%num%"
echo !errorlevel!
if !errorlevel! equ 0 (
    goto :start
)
netsh interface ip set address name="本地连接" source=static addr=10.1.1.%num% mask=255.255.255.0 gateway=10.1.1.250 gwmetric=0 | find "IP地址已在网络上使用" &&goto start
netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary 
netsh interface ip add dns "本地连接" addr=8.8.8.8
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100
if %errorlevel% neq 0 goto start
复制代码

作者: beck1321 时间: 2013-1-6 10:35

回复 17# BAT-VBS

我的知识已经跟不上了但复制这个代码去运行后即使扩大num 也不停的在 goto start

且log文件依旧是未找到arp项

作者: beck1321 时间: 2013-1-6 10:36

netsh interface ip set dns "本地连接" source=static addr=10.1.1.100 register=primary
netsh interface ip add dns "本地连接" addr=8.8.8.8
netsh interface ip set wins name="本地连接" source=static addr=10.1.1.100

这一段也运行了，
if %errorlevel% neq 0 goto start 是这个生效的又重复去 goto start了

作者: BAT-VBS 时间: 2013-1-6 10:41

能否把17楼生成的test.log压缩一下传上来看看？

作者: beck1321 时间: 2013-1-6 10:59

回复 20# BAT-VBS

我错了。。。之前17楼那个不该是不停的 goto start的可能是因为我去掉了一段空白段导致的后来我重新拿你的那段代码只改了ip后，不会出现不停的goto start了但问题依然是遇到一个已占有ip 却无法跳过

下面是那个log

其实就那几个字

作者: beck1321 时间: 2013-1-6 11:01

待会儿我弄个录像

作者: beck1321 时间: 2013-1-6 11:09

操作录像

http://www.0515dafeng.com/test17.rar

144k的附件都传不上来啊。。。悲剧哦

作者: beck1321 时间: 2013-1-8 11:24

乌啦啦乌啦啦哇哇哭啦

作者: Batcher 时间: 2013-1-8 11:28

回复 23# beck1321

论坛空间有限，尽量用外部存储吧。

欢迎光临批处理之家 (http://bbs.bathome.net/)