vbs ping瀹炵幇鐨勪袱绉嶆柟寮? target= |
|
本文标签：vbs,ping 瀵逛簬vbs涓璸ing鐨勫疄鐜板彲浠ラ�氳繃涓ょ鏂瑰紡 锛?/p>
1銆佽皟鐢ㄧ郴缁焢ing鍛戒护
Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)
瀵逛簬浠ヤ笂璋冪敤锛屽鏋滄兂瀵瑰叾杩涜杩囨护锛屽彲浠ヨ�冭檻灏嗚繍琛岀粨鏋滈噸瀹氬悜鍒版枃浠讹紝鍦ㄨ鍒颁竴涓猻tring涓紝鏌ユ壘鍏朵腑鏄惁鏈塼imeout鎴栬秴鏃跺瓧绗︼紝鍒ゆ柇鏄惁瓒呮椂銆傛湰鎵撶畻鐩存帴鎷兼帴鍛戒护閲嶅畾鍚戝埌鏂囦欢锛屼絾鎬庝箞閮戒笉鎴愬姛锛屾墍浠un璋冪敤涓�涓猙at锛宐at涓啓锛歱ing 192.168.101.1 -n 1 -w 1200 2銆佷娇鐢╳mi鏌ヨpingstate绫诲鐞嗭細
'url = "www.baidu.com"
url = "119.75.217.109"
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
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
鍒版杩欑瘒鍏充簬vbs ping鐨勫疄鐜扮ず渚嬬殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧vbs ping鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p> |
