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

1582 단어 vbsping
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 내용 은 우리 의 이전 글 을 검색 하거나 아래 의 관련 글 을 계속 조회 하 시기 바 랍 니 다.앞으로 많은 응원 바 랍 니 다!
    VBScript 동적 Array 구현 코드
    VBS 가 파일 이나 폴 더 경 로 를 옮 겨 다 니 며 파일 을 입력 하 는 모든 절대 경로(소스 코드)

    좋은 웹페이지 즐겨찾기

    개발자 우수 사이트 수집

    개발자가 알아야 할 필수 사이트 100선 추천 우리는 당신을 위해 100개의 자주 사용하는 개발자 학습 사이트를 정리했습니다
    best100-homepage