Little VBScript to continously ping a host with timestamp/log
Run from command line (after saving file as ping test.vbs)cscript pingtest.vbs iptoping logfilenameIt will continuously run till you hit Ctrl+C to break it… Very useful for network testing.
hostIp = wscript.arguments(0)
logfilename = wscript.arguments(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("Wscript.Shell")
' OpenTextFile Method requires a Const value
' (Over)Write = 2 Append = 8
Set logfile = fso.OpenTextFile(logfilename, 8, True)
shellstring = "%comspec% /c ping -t " & hostIP
Set oExec = Shell.Exec(shellstring)
wscript.echo "Ping Error log With Timestamp - Ctrl + C to halt"
Do While oExec.StdOut.AtEndOfStream <> True
pingline = Date & " " & Time & " " & oExec.StdOut.ReadLine
If InStr(pingline, "TTL=") = 0 Then
logfile.WriteLine(pingline)
End If
Loop
Related Posts
5 lines of code to run Speedtest from Command Line
Posted on 24 October 2023There are instances, where you need to run a Speedtest to check Internet speeds. The speedtest.net website is getting overly crowded with ads and sometimes may not reflect true speeds. I have found an easy way ...
Set passwords to never expire via Command Line on Windows
Posted on 15 May 2023This can be handled in multiple ways. However, I like the one liner using WMI: WMIC USERACCOUNT WHERE Name='username' SET PasswordExpires=FALSE Change username to the account you need to set and you are good to go.
Export Your Rules in Microsoft 365 to a CSV file
Posted on 09 May 2023There are times I needed to export my rules to a human readable form. This comes very handy. If you haven't installed the ExchangeOnline module, you can follow https://learn.microsoft.com/en-us/powershell/exchange/connect-to-exchange-online-powershell?view=exchange-ps Open a Powershell window, then: Connect-ExchangeOnline Get-InboxRule -Mailbox user1| ...
Leave a Reply