一個查看局域網(wǎng)在線IP的vbs腳本
更新時間：2008年12月01日 11:14:45 作者：
想統(tǒng)計一下。有多少在線IP在內(nèi)網(wǎng)里面。其實好多工具都可以實現(xiàn)。感覺腳本可以可靠。
最好可以生成一個文本的。謝謝了。。
復(fù)制代碼 代碼如下:
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
相關(guān)文章
vbscript中Err對象是一個具有全局范圍的內(nèi)部對象，含有關(guān)于錯誤的所有信息,需要的朋友可以參考下2018-05-05
有時候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了2013-09-09
vbs中通過intpu傳值進(jìn)行運(yùn)算的方法，需要的朋友可以參考下。2011-03-03
msxml3.dll 錯誤 80070005拒絕訪問。 解決辦法： 賦予程序所在文件夾 internet 來賓帳號(IUSR_WEB)可寫。2011-01-01
VBScript教程 第十四課在VBScript中使用對象...2006-11-11
MsgBox函數(shù)語言參考...2006-11-11
Win2003里用命令行刷新硬件列表，以掃描硬件改動的實現(xiàn)代碼
在Windows Server 2003里面實現(xiàn)用命令行刷新硬件列表，以掃描硬件改動，怎么實現(xiàn)2012-05-05
昨天在《VBS創(chuàng)建正則表達(dá)式對象的兩種方法》中提到了 VBScript 正則表達(dá)式對象的 MultiLine 屬性，在 shirne 的提醒下，我才想起參考手冊中是出現(xiàn)過 MultiLine 屬性的2012-01-01
本文給大家分享了下2種通過VBS實現(xiàn)截圖功能的代碼，第一個是純VBS實現(xiàn)，第二種方法是通過把簡短的第三方工具集合到VBS腳本來實現(xiàn)更加豐富的功能。2015-09-09
用vbs實現(xiàn)修改dns的網(wǎng)關(guān)腳本
這篇文章主要為大家介紹了用vbs實現(xiàn)修改dns的代碼，需要的朋友可以參考下2008-05-05