Monitor Windows NT/2000 services

This example monitors Microsoft SQL Server service and automatically starts it if it is not running.

ServiceGetStatus "MSSQLServer"

// verify that the service is running or starting
Dim status, string
Dim running, boolean
ServiceGetStatus "MSSQLServer", status

IsEqual status, "RUNNING", running
IfThen running, DONE

IsEqual status, ""START PENDING", running
IfThen running, DONE

START_SERVICE:
ServiceStart "MSSQLServer"

// verify that the service is running or starting
ServiceGetStatus "MSSQLServer", status

IsEqual status, "RUNNING", running
If running, NOTIFY_OK, NOTIFY_FAIL

NOTIFY_OK:
MailSend "SMTP", "myname", "myspassword", "sysadmin@mycompany", &
      "SQL-Server Restarted", "24x7 Scheduler detected that SQL-Server was not running and successfully restarted it"
exit

NOTIFY_FAIL:
MailSend "SMTP", "myname", "myspassword", "sysadmin@mycompany", &
      "SQL-Server Restart Failed", "24x7 Scheduler detected that SQL-Server was not running, but was not able to restart it"

DONE:
// Done
Exit