cmd 명령의 결과를 텍스트파일로 받기

cmd 명령의 결과를 텍스트파일로 받기

아래는 ping의 결과

Option Explicit

Sub checkping()

 Dim cmd As String

 Dim res, goWSH, aRet

 Dim s As String, e As String

    Set goWSH = CreateObject("WScript.Shell")

    cmd = "ping -n 1 " & [a1]

   Set aRet = goWSH.exec(cmd)

   res = CStr(aRet.stdout.readall())

   s = InStr(res, "(")

   e = InStr(res, "),")

[b1] = Mid(res, s + 1, e - s - 1)

End Sub