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

andysky · 发表于 2009-3-7 10:29

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 · 发表于 2009-3-7 10:40

附代码

andysky · 发表于 2009-3-7 10:54

附代码

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

syz105729913 · 发表于 2009-3-7 11:06

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

andysky · 发表于 2009-3-7 11:19

附代码

andysky · 发表于 2009-3-7 11:21

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

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

andysky · 发表于 2009-3-7 11:44

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

ExceLove · 发表于 2009-3-7 18:19

不太懂网络知识

sblisb · 发表于 2009-3-12 00:06

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

KerryNew · 发表于 2009-5-29 15:26

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

		自动登录	找回密码
密码			免费注册

[分享] 批量PING计算机，返回不通的计算机列表