rem 这是一个关于ping某个网段的程序
strSubNet = "192.168.21." '定义一个网段
Set objFSO= CreateObject("Scripting.FileSystemObject") '创建objFOS文件对象
Set objTS = objfso.CreateTextFile("c:\PingResult.txt") '由文件对象objfos创建objts这个文件
For i = 1 To 254 '定义从1开始到254结束的IP地址段
strComputer = strSubNet & i '定义一个IP地址的标准文本
blnResult = Ping(strComputer) '调用自定义Ping函数来试试上面的IP的机器是否开机,返回一个布尔值,前提是对方机器没有防火墙等限制.
If blnResult = True Then '如果通则把结果写入文件对象流中.
objTS.WriteLine "Ping " & strComputer & " success!"
End If
Next
objTS.Close '文件对象流关闭
wScript.Echo "Done!" '提示任务完成
Set objFSO= CreateObject("Scripting.FileSystemObject") '创建objFOS文件对象
Set objTS = objfso.CreateTextFile("c:\PingResult.txt") '由文件对象objfos创建objts这个文件
For i = 1 To 254 '定义从1开始到254结束的IP地址段
strComputer = strSubNet & i '定义一个IP地址的标准文本
blnResult = Ping(strComputer) '调用自定义Ping函数来试试上面的IP的机器是否开机,返回一个布尔值,前提是对方机器没有防火墙等限制.
If blnResult = True Then '如果通则把结果写入文件对象流中.
objTS.WriteLine "Ping " & strComputer & " success!"
End If
Next
objTS.Close '文件对象流关闭
wScript.Echo "Done!" '提示任务完成
rem 如下是一个标准的ping 应用程序,可在MS vbedit中找到文本
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
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
转载于:https://blog.51cto.com/xyg23456/351050