vbs ping實(shí)現(xiàn)的兩種方式
更新時(shí)間：2020年03月31日 10:56:20 作者：longlongway2012
這篇文章主要介紹了vbs ping實(shí)現(xiàn)的兩種方式，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧
對(duì)于vbs中ping的實(shí)現(xiàn)可以通過(guò)兩種方式 ：
- 1、調(diào)用系統(tǒng)ping命令；
- 2、使用wmi查詢(xún)pingstate類(lèi)處理。
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)行過(guò)濾，可以考慮將運(yùn)行結(jié)果重定向到文件，在讀到一個(gè)string中，查找其中是否有timeout或超時(shí)字符，判斷是否超時(shí)。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run調(diào)用一個(gè)bat，bat中寫(xiě)：ping 192.168.101.1 -n 1 -w 1200
2、使用wmi查詢(xún)pingstate類(lèi)處理：
'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腳本需要讀取配置文件，本來(lái)考慮用ini來(lái)做配置文件，但是vbs里沒(méi)有現(xiàn)成讀寫(xiě)ini文件的支持，于是考慮用xml來(lái)做配置文件，使用xmldom來(lái)讀取。寫(xiě)成個(gè)class使用起來(lái)應(yīng)該方便一些。貼來(lái)備忘一下。2009-02-02
VBS教程：方法-GetDrive 方法...2006-11-11
網(wǎng)上有朋友問(wèn)我要這個(gè)代碼，一時(shí)真不知道放哪了，于是整理下，給出代碼也給打包下載飛，方便大家，希望大家多多的支持腳本之家。2011-01-01
用vbs實(shí)現(xiàn)本地添加用戶(hù)的腳本
這個(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
通過(guò)vbs獲取遠(yuǎn)程host文件并保存到指定目錄
最近需要訪問(wèn)google聯(lián)盟后臺(tái)，但經(jīng)常無(wú)法訪問(wèn)，看到有網(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