一个查看局域网在线IP的vbs脚本
更新时间：2008年12月01日 11:14:45 作者：
想统计一下。有多少在线IP在内网里面。其实好多工具都可以实现。感觉脚本可以可靠。
最好可以生成一个文本的。谢谢了。。
复制代码 代码如下:
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
相关文章
vbscript中Err对象是一个具有全局范围的内部对象，含有关于错误的所有信息,需要的朋友可以参考下2018-05-05
这篇文章主要给大家介绍了关于抖音很火的vbs表白代码的相关资料,教你用vbs表白女朋友,包含多个弹窗绝对实在,保管实用,内容可以自己修改,需要的朋友可以参考下2022-04-04
这篇文章主要介绍了vbs qq自动登录脚本改进版,需要的朋友可以参考下2014-05-05
vbs字符串分割函数，将字符中如入指定分割字符，需要的朋友可以参考下。2010-11-11
这个是可以帮助大家轻松获取局域网内电脑的相关软硬件新的的一个小工具，希望能帮助到大家,需要的朋友可以参考下2020-12-12
一个可以删除指定天数文件的vbs脚本...2007-02-02
VBS教程：正则表达式简介 -特殊字符...2006-11-11
比较精典VBS代码,想学习vbscript的朋友可以参考下2007-03-03
用vbs实现的自动填写表单的代码分析，希望大家注意代码的写法2008-06-06
VBS教程：正则表达式简介 -正则表达式...2006-11-11
最新评论