中国DOS联盟

Originally posted by gdyabc at 2009-2-19 00:54:
谢谢六楼的思路，但是我也不会写代码，一起等吧。肯定有人能做到。

for /f %%a in ('arp -a^|findstr ""^|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 ""^|find /v ":"') do @echo %%a

Test Successfully!