一个查看局域网在线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
有时候我们需要获取当前目录下所有文件夹的名字，那么就可以参考下面的代码了2013-09-09
vbs中通过intpu传值进行运算的方法，需要的朋友可以参考下。2011-03-03
msxml3.dll 错误 80070005拒绝访问。 解决办法： 赋予程序所在文件夹 internet 来宾帐号(IUSR_WEB)可写。2011-01-01
VBScript教程 第十四课在VBScript中使用对象...2006-11-11
MsgBox函数语言参考...2006-11-11
Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码
在Windows Server 2003里面实现用命令行刷新硬件列表，以扫描硬件改动，怎么实现2012-05-05
昨天在《VBS创建正则表达式对象的两种方法》中提到了 VBScript 正则表达式对象的 MultiLine 属性，在 shirne 的提醒下，我才想起参考手册中是出现过 MultiLine 属性的2012-01-01
本文给大家分享了下2种通过VBS实现截图功能的代码，第一个是纯VBS实现，第二种方法是通过把简短的第三方工具集合到VBS脚本来实现更加丰富的功能。2015-09-09
这篇文章主要为大家介绍了用vbs实现修改dns的代码，需要的朋友可以参考下2008-05-05
最新评论