Dim oShell, oExec, sLine Set oShell = CreateObject("WScript.Shell") Set oExec = oShell.Exec("ping google.com") 'Rea...