vbs ping實(shí)現(xiàn)的兩種方式
更新時(shí)間：2020年03月31日 10:56:20 作者：longlongway2012
這篇文章主要介紹了vbs ping實(shí)現(xiàn)的兩種方式，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
對(duì)于vbs中ping的實(shí)現(xiàn)可以通過兩種方式 ：
- 1、調(diào)用系統(tǒng)ping命令；
- 2、使用wmi查詢pingstate類處理。
1、調(diào)用系統(tǒng)ping命令
Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)
對(duì)于以上調(diào)用，如果想對(duì)其進(jìn)行過濾，可以考慮將運(yùn)行結(jié)果重定向到文件，在讀到一個(gè)string中，查找其中是否有timeout或超時(shí)字符，判斷是否超時(shí)。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run調(diào)用一個(gè)bat，bat中寫：ping 192.168.101.1 -n 1 -w 1200
2、使用wmi查詢pingstate類處理：
'url = "www.baidu.com"
url = "119.75.217.109"
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
For Each objPing in colPings
MsgBox url & " responded to ping." & vbcrlf &_
"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_
"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_
"Bytes Sent: " & objPing.BufferSize & vbcrlf &_
"Time: " & objPing.ResponseTime & " ms"
Next
到此這篇關(guān)于vbs ping的實(shí)現(xiàn)示例的文章就介紹到這了,更多相關(guān)vbs ping內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
您可能感興趣的文章:
相關(guān)文章
最近一項(xiàng)目中，vbs腳本需要讀取配置文件，本來考慮用ini來做配置文件，但是vbs里沒有現(xiàn)成讀寫ini文件的支持，于是考慮用xml來做配置文件，使用xmldom來讀取。寫成個(gè)class使用起來應(yīng)該方便一些。貼來備忘一下。2009-02-02
VBS教程：方法-GetDrive 方法...2006-11-11
網(wǎng)上有朋友問我要這個(gè)代碼，一時(shí)真不知道放哪了，于是整理下，給出代碼也給打包下載飛，方便大家，希望大家多多的支持腳本之家。2011-01-01
這個(gè)方法我第一次看到，以前都是用wscript.shell運(yùn)行，這個(gè)是sendkeys方法2008-06-06
VBS教程：運(yùn)算符-連接運(yùn)算符 (&)...2006-11-11![[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載](http://img.jbzj.com/images/xgimg/bcimg5.png)
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載...2007-03-03
最近需要訪問google聯(lián)盟后臺(tái)，但經(jīng)常無法訪問，看到有網(wǎng)友提供了一份vbs版本的獲取host并保存到指定目錄的代碼，特分享下2014-12-12
vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）
用vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）的代碼，需要的朋友可以參考下。2011-05-05
這個(gè)腳本演示了如何保存與使用的MSXML到一個(gè)XML文件的信息。示例XML文件用于在網(wǎng)站上的相冊(cè)2011-12-12
VBS實(shí)現(xiàn)的系統(tǒng)服務(wù)備份優(yōu)化代碼
將下面代碼保存為VBS執(zhí)行即可,服務(wù)優(yōu)化規(guī)則可以自由修改(上面是我現(xiàn)在使用的優(yōu)化規(guī)則),并且每次優(yōu)化都會(huì)在我的文檔里面生成一個(gè)對(duì)應(yīng)日期的服務(wù)備份文件.可以直接還原2013-01-01