ping 20回

「昨日のバッチは動いたけど、一回の操作で行いたい」
という要望があり、手直し。

よくよく考えれば、バッチに書き出さなくてもいい訳で…。
ついでに、回数は20回。パケットは1024と言われ、それも修正。

たぶん、完成。
－－－－－－－－－－－－－－－－－－－－－－－
Dim FSO
Dim oBat
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")

Do Until objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine ' 1行読み込み
If InStr(strLine, "Default Gateway") <> 0 Then ' "Default Gateway" が含まれているか？
iColon = Instr(strLine, ":") ' ":" の位置を調べる
strDGateway = Mid(strLine, iColon + 2) ' アドレス部分の切り出し
strDGateway = Mid(strDGateway, 1, Len(strDGateway)-1) ' 改行の切り出し
exit do
End If
Loop

'/k=DOS窓を終了しない。　l = パケットのデータサイズ。　n=施行回数
objShell.Run "cmd /k ping " & strDGateway & " -l 1024 -n 20"