Listing 1: Excerpt from ServiceMonitor.wsf

<job>
  <?job error="True" debug="True" ?>
  <runtime>
    <unnamed name="ServiceName" helpstring="the Windows
      Service list to monitor." required="true" type="string" />
    <named name="Machine" 
      helpstring="determine the WMI system to connect to. 
      (default=LocalHost)" required="false" type="string"/>
    <named name="User" helpstring="determine the UserID to
      perform the remote connection. (default=none)" 
      required="false" type="string"/>
' BEGIN CALLOUT A
    <named name="Password" helpstring="determine the password
      to perform the remote connection. (default=none)"
      required="false" type="string"/>
' END CALLOUT A
  </runtime>

  <script language="VBScript" 
    src=".\Functions\TinyErrorHandler.vbs" />
  <script language="VBScript" 
    src=".\Functions\PauseScript.vbs" />
  <script language="VBScript" 
    src=".\Functions\LoopSvcStartupRetry.vbs" />
  <script language="VBScript" 
    src=".\Functions\GenerateHTML.vbs" />
  <script language="VBScript" 
    src=".\Functions\SendMessageExtendedFunction.vbs" />

' BEGIN CALLOUT B
  <object progid="WbemScripting.SWbemLocator" 
    id="objWMILocator" reference="true"/>
  <object progid="WbemScripting.SWbemNamedValueSet" 
    id="objWMIInstanceSinkContext"/>
  <object progid="WbemScripting.SWbemDateTime" 
    id="objWMIDateTime" />
' END CALLOUT B

' BEGIN CALLOUT C
  <script language="VBScript">
' END CALLOUT C
  <![CDATA[

  Option Explicit
  Const cComputerName = "LocalHost"
  Const cWMINameSpace = "root/cimv2"
  Const cWMIClass = "Win32_Service"
  Const cWMIQuery = "Select * from __InstanceModificationEvent " _
    & "Within 10 Where TargetInstance ISA 'Win32_Service'"
  Const cPauseBetweenRestart = 2
  Const cRestartLimit = 3
  Const cTargetRecipient = "Alain.Lissoir@LissWare.NET"
  Const cSourceRecipient = "#SMTP@LissWare.NET"
  Const cSMTPServer = "smtp.LissWare.Net" 
  Const cSMTPPort = 25 
' BEGIN CALLOUT D
  Const cSMTPAuthenticate = 1
  Const cSMTPUserName = "#SMTP"
  Const cSMTPPassword = "Password1"
' END CALLOUT D
  Const cSMTPSSL = True
  Const cSMTPSendUsing = 2
  Const cSMTPConnectionTimeout = 60
  Dim strUserID, strPassword, strComputerName 

  Class clsMonitoredService
    Public strServiceName
    Public intServiceRetryCounter
  End Class 

  Dim clsService(), strWMIQuery, intIndice, boolSvcStatus
  Dim objWMISink, objWMIServices, objWMIInstance
  Dim strSMTPPassword
  On Error Resume Next

  If WScript.Arguments.Unnamed.Count = 0 Then
    WScript.Arguments.ShowUsage()
    WScript.Quit
  Else
    For intIndice = 0 To WScript.Arguments.Unnamed.Count - 1
      ReDim Preserve clsService(intIndice)
      Set clsService(intIndice) = New clsMonitoredService
      clsService(intIndice).strServiceName = Ucase _
        (WScript.Arguments.Unnamed.Item(intIndice))
      clsService(intIndice).intServiceRetryCounter = 0
    Next 
  End If

' BEGIN CALLOUT E
  strSMTPPassword = cSMTPPassword 
  strUserID = WScript.Arguments.Named("User")
  If Len(strUserID) = 0 Then strUserID = ""
  strPassword = WScript.Arguments.Named("strPassword")
  If Len(strPassword) = 0 Then strPassword = ""
' END CALLOUT E

  strComputerName = WScript.Arguments.Named("Machine")
  If Len(strComputerName) = 0 
    Then strComputerName = cComputerName
  Set objWMISink = _
    WScript.CreateObject ("WbemScripting.SWbemSink", "SINK_")
  objWMILocator.Security_.AuthenticationLevel = _
    wbemAuthenticationLevelDefault
  objWMILocator.Security_.ImpersonationLevel = _
    wbemImpersonationLevelImpersonate
  Set objWMIServices = _
    objWMILocator.ConnectServer(strComputerName, _
    cWMINameSpace, strUserID, strPassword)
  If Err.Number Then ErrorHandler (Err)

BEGIN COMMENT
' .
' .
' .
END COMMENT

  ]]>
  </script>
</job>