批量PING计算机，返回不通的计算机列表

andysky

lists = "SERVER;PENYAN;Caiwu;andysky"
aMachines = split(lists,";")
For Each machine in aMachines
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
        ExecQuery("select * from Win32_PingStatus where address = '"& machine & "'")
    For Each objStatus in objPing
        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then ss = ss &vbcr&  machine
    Next
Next
WScript.Echo("以下计算机PING不通：" & ss )   
其中lists = "SERVER;ENYAN;LIU-XIELI;andysky"表示四台电脑的名字，你可以将你的局域网中所有电脑名输入进去，执行后将罗列出所有PING不通的电脑名字

[ 本帖最后由 andysky 于 2009-8-14 16:50 编辑 ]

andysky

附代码

andysky

附代码

[ 本帖最后由 andysky 于 2009-3-7 10:57 编辑 ]

syz105729913

代码是很好，但是有个地方还是很累人
要是局域网内的计算机很多，计算机名都要输入那不是很累人啦
有没有自动获取计算机名的？

andysky

附代码

andysky

原帖由 syz105729913 于 2009-3-7 11:06 发表
代码是很好，但是有个地方还是很累人
要是局域网内的计算机很多，计算机名都要输入那不是很累人啦
有没有自动获取计算机名的？

百度大把的扫描软件，瞬间扫出所有计算机名

andysky

查找电脑中2009年3月以后建立的文件

ExceLove

不太懂网络知识

sblisb

不错的内容，关注一下更新

KerryNew

非常有用,谢谢andysky的分享,,第一个Ping实例收了~