［Script］［VBS］コマンド実行後の標準出力を取得する（WScript.Shell）

コマンドを実行して標準出力の文字列を取得するサンプルです。

コマンドを実行して標準出力を取得する

TargetHostname = "www.google.com"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objExec = WshShell.Exec("ping "&TargetHostname)
Set objStream = objExec.StdOut
Do While Not objStream.AtEndOfStream
  strOutLine = objStream.ReadLine
  result1 = InStr (strOutLine, "[")
  result2 = Instr (strOutLine, "]")

  If result1 > 0 And result2 > 0 Then
    strIPAddress = Mid(strOutLine, result1 + 1 , result2 - result1 - 1)
    Exit Do
  Else
    result1 = 0
    result2 = 0
  End If
Loop

If strIPAddress <> "" Then MsgBox TargetHostname & " のアドレスは " & strIPAddress & " でした。"

WScript.Quit

---

Script のページに戻る