SQLPing.vbs

' Script:sqlping.vbs
' Purpose:Test remote connectivity and log error to Application log if connectivity problems
' Author:Chad Miller (cmille19@tampabay.rr.com)
' Created:August 8 2006

On ERROR RESUME NEXT

Do While True
Wscript.Echo "Connecting..."

Set oServer = CreateObject("SQLDmo.SqlServer")
oServer.LoginTimeout = 10
oServer.LoginSecure = True 
oServer.Connect "MyServer" ' Change Server Name

IF err.number <> 0 Then 
' An error connecting has occurred write error to local Application log
' Note this is not the Application log on the SQL Server, but rather
' The Application on the machine the script is run from
Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "eventcreate /T Error /ID 100 /L Application /D " & _
Chr(34) & "Timeout on MyServer has occurred." & Chr(34) & " /SO " & Chr(34) & "Timeout" & Chr(34) ' Change Server Name
WshShell.Run strcommand
Wscript.Echo "Fail"
else
Wscript.Echo "Success"
End If

oServer.DisConnect 
Set oServer = Nothing
' Sleep for 1 minute
Wscript.Echo "Sleeping..."
Wscript.Sleep 60000

Loop