Redirect output of a ping

[countryfanjohn]

I'm writing a script which will run in background and wake up periodically and ping an address. The ping works fine, but I've tried everything and can't get the output into a text file. I'll clue you in, I've only written two other scripts so far, I'm a newbie at this, so be gentle.

 

[alistairpaul]

dos command:

ping hostname > myfile.txt

 

[countryfanjohn]

Thanks, but I tried that. It works fine on the command line, but inside the VBscript, it puts nothing into the file. No error messages or anything, the script runs, but there is no output. If I remove the "> myfile.txt", the ping will display it's output on my terminal.

 

[alistairpaul]

Set fileSys = CreateObject("Scripting.FileSystemObject&quot
Set fileOut = fileSys.CreateTextFile("D:\ping2file.bat", True)
fileOut.WriteLine "ping %1 > pingoutput.txt"
fileOut.Close

Set wShell = CreateObject("WScript.Shell&quot
hostname = "myhostname"
run_this = "ping2file.bat " & hostname
wShell.Run run_this, 1, TRUE

Set fil = fileSys.GetFile("D:\ping2file.bat&quot
fil.Delete

Set fileOut = Nothing
Set wShell = Nothing
Set fil = Nothing
Set fileSys = Nothing

 

[countryfanjohn]

Thanks, this works great. I refer to this as being a bit sneaky, but it proves there's more than one way to skin a cat.

Thanks again,
John

 

[alistairpaul]

well, it's not as much sneaky, as it's resourceful.

hope it works out well for you.

 

[countryfanjohn]

There's a fine line between resourceful and sneaky, but as long as it works.