[已解决]50元求修复代码，关于ip设置的问题

beck1321

具体报酬：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 这一行 ，是有显示的。但不知为何 整个代码运行时就不出现了。

（支付方式仅限支付宝）


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

Batcher

回复 23# beck1321


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

beck1321

乌啦啦乌啦啦 哇哇哭啦

beck1321

操作录像

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

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

beck1321

待会儿 我弄个录像

beck1321

回复 20# BAT-VBS


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

下面是 那个log

其实就那几个字

BAT-VBS

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

beck1321

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了

beck1321

回复 17# BAT-VBS


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

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

BAT-VBS

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

回复 15# BAT-VBS


    log里就几个字 未找到arp项

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

BAT-VBS

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

我想问个问题

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

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

beck1321

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

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位

BAT-VBS

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