一个查看局域网在线IP的vbs脚本
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10什么是一个高效的软件
- 01-10VBS教程:运算符-赋值运算符 (=)
- 01-10VBS教程:函数-Year 函数
- 01-10VBS教程:函数-Eval 函数
- 01-10VBS教程:函数-Join 函数
- 01-10[vbs]每一行的最后一个字符转换成
- 01-10一个可以更换windows xp or 2003的序列号的vbs脚本
- 01-10一个可以删除指定天数文件的vbs脚本
- 01-10使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
- 01-10按键精灵 脚本-学习VBS的一个不错的教程