[VBScript] VBS로 ping 으로 ip 연결 확인

특정 Host와 네크워크로 연결이 되어있는지 확인할 수 있는 스크립트이다.

 

CMD창에서 Ping으로 연결을 체크하는 기능과 같다.

예를들면 구글 IP주소인 8.8.8.8에 Ping을 때리면 연결 양호 신호가 온다.

반대로 연결이 안되있다면 Timed out 신호가 온다.

 

반응형

 

아래 스크립트를 실행만하면 성공 실패 여부와 연결상태를 확인할 수 있다.

 

코드

Option Explicit

Dim strIPAddress, objShell, objExec, strPingResults

' 테스트할 IP 주소 (성공 케이스)
strIPAddress = "8.8.8.8"
' 테스트할 IP 주소 (실패 케이스)
'strIPAddress = "8.8.8.9"


' WScript.Shell 개체 생성
Set objShell = WScript.CreateObject("WScript.Shell")

' Ping 실행 및 결과 얻기, 
' -w 1000 : timeout 1초
' -n 3은 3번의 패킷을 보내도록 지정
Set objExec = objShell.Exec("ping -n 3 -w 1000 " & strIPAddress) 

' 결과 읽기
strPingResults = objExec.StdOut.ReadAll()

' 결과 출력
msgbox "Ping Result: " & strPingResults

' 결과에서 성공 여부 확인
If InStr(strPingResults, "TTL=") > 0 Then
    msgbox "Ping Succeed! Connected to HOST."
Else
    msgbox "Ping Failed!. Disconnected to HOST."
End If

' 객체 해제
Set objShell = Nothing
Set objExec = Nothing