一个查看局域网在线IP的vbs脚本

strsubnet = "192.168.1."
set objfso= createobject("scripting.filesystemobject")
set objts = objfso.createtextfile("e:\pingresult.txt")

for i = 1 to 254
strcomputer = strsubnet & i
blnresult = ping(strcomputer)
if blnresult = true then
objts.writeline "ping " & strcomputer & " success!"
end if
next

objts.close
wscript.echo "done!"

function ping(strcomputer)
set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
set colitems = objwmiservice.execquery("select * from win32_pingstatus where address='" & strcomputer & "'")
for each objitem in colitems
select case objitem.statuscode
case 0
ping = true
case else
ping = false
end select
exit for
next
end function