一个查看局域网在线IP的vbs脚本
2018-10-12 14:10
1451 查看
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
相关文章推荐
- 【shell脚本】监测局域网IP是否在线
- 同一个局域网中win7怎么查看局域网内某个电脑IP
- 一个设置ip的vbs脚本
- 查看局域网内在线ip
- 查看局域网内在线的主机ip和mac地址
- 写一个脚本,实现判断192.168.3.0/24网络里,当前在线的IP有哪些。
- 用vbs针对一个 IP 地址范围运行脚本
- 局域网通过IP查看对方计算机名,通过计算机名查看对方IP以及查看在线所有电脑IP
- win7系统查看同一个局域网内电脑IP的方法
- cmd查看同一个局域网内电脑IP
- 写一个shell脚本,把192.168.0.0/24网段在线的ip列出来。 思路: for循环, 0
- win all 查看局域网IP的脚本
- 查看局域网内其他计算机的mac地址和ip
- 一个小脚本,查看你的机器共进出多少包包
- 一个扩展时间段的dir命令的vbs脚本
- CentOS之——双网卡双IP双网关配置(双网卡配置一个上外网一个接局域网)
- 局域网怎么通过IP查看对方MAC,用IP反查局域网MAC地址
- 查看一个ip端口的连通情况
- 查看局域网物理ip
- 查看局域网内所有的IP