主页 > 知识库 > 一个查看局域网在线IP的vbs脚本

一个查看局域网在线IP的vbs脚本

热门标签:智能手机 服务器配置 铁路电话系统 呼叫中心市场需求 银行业务 网站文章发布 美图手机 检查注册表项
复制代码 代码如下:

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

标签:上海 长治 新疆 沧州 沈阳 红河 河南 乐山

巨人网络通讯声明:本文标题《一个查看局域网在线IP的vbs脚本》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266