一個(gè)查看局域網(wǎng)在線IP的vbs腳本
更新時(shí)間：2008年12月01日 11:14:45 作者：
想統(tǒng)計(jì)一下。有多少在線IP在內(nèi)網(wǎng)里面。其實(shí)好多工具都可以實(shí)現(xiàn)。感覺腳本可以可靠。
最好可以生成一個(gè)文本的。謝謝了。。
復(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)文章
使用 Iisext.vbs 啟用Web服務(wù)擴(kuò)展的方法
一直以來(lái)都是手工啟用Web服務(wù)擴(kuò)展，沒想到微軟發(fā)布的Iisext.vbs也有這個(gè)功能，這里腳本之家小編就為大家介紹下2014-07-07
最近一項(xiàng)目中，vbs腳本需要讀取配置文件，本來(lái)考慮用ini來(lái)做配置文件，但是vbs里沒有現(xiàn)成讀寫ini文件的支持，于是考慮用xml來(lái)做配置文件，使用xmldom來(lái)讀取。寫成個(gè)class使用起來(lái)應(yīng)該方便一些。貼來(lái)備忘一下。2009-02-02
使用vbs腳本實(shí)現(xiàn)自動(dòng)打字祝福與搞笑實(shí)現(xiàn)代碼
聽說(shuō)抖音上流行一種用代碼做程序表白的東西，其實(shí)很多vbs愛好者喜歡玩的東西，這里為大家分享一下,需要的朋友可以參考下2019-09-09
這篇文章專為想通過(guò)腳本修改ip地址的朋友準(zhǔn)備的，第一個(gè)bat是測(cè)試通過(guò)的也比較實(shí)用，vbs一般也是通過(guò)netsh命令實(shí)現(xiàn)，當(dāng)然也可以不通過(guò)netsh實(shí)現(xiàn)，具體的大家自行參考下吧2006-09-09
vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼
這篇文章主要介紹了vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼,需要的朋友可以參考下2019-04-04
用adodb.stream讀取文件并保存為數(shù)組的實(shí)現(xiàn)代碼2008-08-08
VBS教程：VBscript屬性-Value 屬性...2006-11-11
IIS管理器也是通過(guò)調(diào)用iisvdir.vbs來(lái)實(shí)現(xiàn)虛擬目錄的創(chuàng)建和刪除的。我們可以通過(guò)命令行的方式來(lái)執(zhí)行iisvdir.vbs腳本2014-07-07
用vbs將本地文件替換為在文件服務(wù)器上找到的新版本...2007-03-03
vbscript下調(diào)用 Dir 命令的方法...2007-04-04