当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 一个查看局域网在线IP的vbs脚本

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

2017年12月08日  | 移动技术网IT编程  | 我要评论

人生末端,城阳灭门,贴身经理人txt下载

复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网