vbs ping 이 실현 하 는 두 가지 방식

vbs 에서 ping 의 실현 은 두 가지 방식 을 통 해 가능 합 니 다.

1.시스템 ping 명령 을 호출 합 니 다

4.567917.2.wmi 를 사용 하여 pingstate 류 를 조회 합 니 다.
1.시스템 ping 명령 호출

Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)

이상 호출 에 대해 필 터 를 하려 면 실행 결 과 를 파일 로 바 꾸 는 것 을 고려 할 수 있 습 니 다.string 에서 timeout 이나 시간 초과 문자 가 있 는 지 찾 아 시간 초과 여 부 를 판단 할 수 있 습 니 다.직접 맞 춤 법 명령 을 파일 로 바 꾸 려 고 했 지만 성공 하지 못 했 습 니 다.그래서 run 은 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

vbs ping 의 실현 예시 에 관 한 이 글 은 여기까지 소개 되 었 습 니 다.더 많은 vbs ping 내용 은 우리 의 이전 글 을 검색 하거나 아래 의 관련 글 을 계속 조회 하 시기 바 랍 니 다.앞으로 많은 응원 바 랍 니 다!