re: How Can I Modify the Output of the Ping Command?

AE — Thu, 18 Oct 2012 21:44:11 GMT

Opps, I lost everything I typed.... go figure. Long story short with Windows 7 and Windows Script Host Version 5.8 objShell.Exec does not run with a hidden window. The code below captures input and runs it hidden:

Set objShell = CreateObject("Wscript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const TemporaryFolder = 2

RunDOSCommand("ipconfig")

Sub RunDOSCommand(command)

TempFile = objFSO.GetSpecialFolder(TemporaryFolder) & "\" & objFSO.GetTempName

objShell.Run "%comspec% /c " & command & " >" & TempFile, 0, True

Results = Split(objFSO.OpenTextFile(TempFile).ReadAll, vbcrlf)

objFSO.DeleteFile TempFile

For Each i in Results : If trim(i) <> "" Then Msgbox i

Msgbox Join(Results, vbcrlf)

End Sub