联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Originally posted by gdyabc at 2009-2-19 00:54: 谢谢六楼的思路,但是我也不会写代码,一起等吧。肯定有人能做到。
for /f %%a in ('arp -a^|findstr "[0-9.]"^|find /v ":"') do @echo %%a
Originally posted by jy02116916 at 2009-2-18 20:43: 想问一下二楼的同志 有装软防火墙的机器也可以扫描到吗?
Dim Xml,Wsh Set Xml=CreateObject("Msxml2.XMLHTTP") Set Wsh=CreateObject("WScript.Shell") For i= 0 To 256 Xml.Open "Get","http://192.168.0."&i,True Xml.Send WScript.Sleep 30 If (i mod 64)=0 Then Wsh.Run "CMD /c ""ARP -A|findstr /v /i ""inter"""" >>ss.txt",0,True End If Next
For /F "tokens=1,2" %%a in (ss.txt) Do Set %%a=%%b Set 192|find /v "00-00-00"
Originally posted by scriptor at 2009-2-19 01:09: for /f %%a in ('arp -a^|findstr "[0-9.]"^|find /v ":"') do @echo %%a Test Successfully!