How To Ping in VBScript

Code

Set WshShell = CreateObject("WScript.Shell")
PINGFlag = Not CBool(WshShell.run("ping -n 1 hostname",0,True))
If PINGFlag = True Then
	MsgBox "Ping Successful"
Else
	MsgBox "Ping Unsuccessful"
End If
howto/how_to_ping_in_vbscript.txt · Last modified: 2012/07/03 20:44 by smark
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0