一個查看局域網(wǎng)在線IP的vbs腳本
來源:易賢網(wǎng) 閱讀:1982 次 日期:2016-07-20 14:22:47
溫馨提示:易賢網(wǎng)小編為您整理了“一個查看局域網(wǎng)在線IP的vbs腳本”,方便廣大網(wǎng)友查閱!

想統(tǒng)計一下。有多少在線IP在內(nèi)網(wǎng)里面。其實好多工具都可以實現(xiàn)。感覺腳本可以可靠。 最好可以生成一個文本的。

代碼如下:

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

更多信息請查看腳本欄目
易賢網(wǎng)手機網(wǎng)站地址:一個查看局域網(wǎng)在線IP的vbs腳本

2025國考·省考課程試聽報名

  • 報班類型
  • 姓名
  • 手機號
  • 驗證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機站點 | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)