Monitor all services on all servers?

Question

Hi all
I'm looking for the easiest way of monitoring all services with startupmode=auto and alerts when state!=running. I found this thread:
http://social.technet.microsoft.com/Forums/systemcenter/en-US/dbb175c4-8ec0-4427-9d10-9382044144e7/monitor-all-windows-services-on-multiple-servers-and-recover?forum=operationsmanagerauthoring
So I took this code
Dim oAPI, oBag
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE StartMode = 'Auto' AND Started = false")
If colListOfServices.Count > 0 Then
For Each objService in colListOfServices
If strDesc = "" Then
strDesc = objService.Caption
Else
StrDesc = StrDesc & ", " & objService.Caption
End if
Next
Call oBag.AddValue("Description", strDesc)
Call oBag.AddValue("State", "BAD")
Else
Call oBag.AddValue("State", "OK")
End if
Call oAPI.Return(oBag)
I used this in a two state monitor I created in our SCOM 2012 environment. For starters it runs every 2 minutes, it's enabled, monitor target is Windows Server 2008 Operating System, it's set to generate alerts on warning, the Unhealthy expression is:
Property[@Name='State'] Equals BAD
And the Healthy Expression is:
Property[@Name='State'] Equals GOOD
Unfortunately I'm getting no alerts at all. And I dont think I have any way of seeing if it's actually discovering all the services? AND I have no previous experience with vb scripting, but do have some powershell experience.
Any suggestions on how to get this up and running please?
Update: I just got alerts from all servers:
Workflow Runtime: Failed to run a process or script
The process started at 11:25:%1 failed to create System.PropertyBagData, no errors detected in the output. The process exited with 1.
Command executed "C:\Windows\System32\cscript.exe" /nologo "Company.ServiceMonitoring"

Answer 1

At the first point make sure that you are creating the service monitor in Authoring --> Management Pack Templates --> Windows Service.
The place where we change is within the discovery part and not monitor. Search for the text what you entered as Service Name while creating the service monitor. You should see something similar to this,
<Discovery ID="ServiceStateProbePage_5409ab4012384fb28dea99f892e28fec.DiscoveryRule" Enabled="false" Target="Windows!Microsoft.Windows.Computer" ConfirmDelivery="false" Remotable="true" Priority="Normal">
        <Category>Discovery</Category>
        <DiscoveryTypes>
          <DiscoveryClass TypeID="ServiceStateProbePage_5409ab4012384fb28dea99f892e28fec" />
        </DiscoveryTypes>
        <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.Win32ServiceInformationProviderWithClassSnapshotDataMapper">
          <ComputerName>$Target/Property[Type="Windows!Microsoft.Windows.Computer"]/NetworkName$</ComputerName>
          <ServiceName>------------ServiceName>
          <Frequency>60</Frequency>
          <ClassId>$MPElement[Name="ServiceStateProbePage_5409ab4012384fb28dea99f892e28fec"]$</ClassId>
          <InstanceSettings>
            <Settings>
              <Setting>
                <Name>$MPElement[Name="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Name>
                <Value>$Target/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Value>
              </Setting>
              <Setting>
                <Name>$MPElement[Name="MicrosoftSystemCenterNTServiceLibrary!Microsoft.SystemCenter.NTService"]/ServiceName$</Name>
                <Value>$Data/Property[@Name='Name']$</Value>
              </Setting>
              <Setting>
                <Name>$MPElement[Name="MicrosoftSystemCenterNTServiceLibrary!Microsoft.SystemCenter.NTService"]/ServiceProcessName$</Name>
                <Value>$Data/Property[@Name='BinaryPathName']$</Value>
              </Setting>
              <Setting>
                <Name>$MPElement[Name="MicrosoftSystemCenterNTServiceLibrary!Microsoft.SystemCenter.NTService"]/DisplayName$</Name>
                <Value>$Data/Property[@Name='DisplayName']$</Value>
              </Setting>
              <Setting>
                <Name>$MPElement[Name="MicrosoftSystemCenterNTServiceLibrary!Microsoft.SystemCenter.NTService"]/Description$</Name>
                <Value>$Data/Property[@Name='Description']$</Value>
              </Setting>
              <Setting>
                <Name>$MPElement[Name="System!System.Entity"]/DisplayName$</Name>
                <Value> </Value>
              </Setting>
            </Settings>
          </InstanceSettings>
        </DataSource>
      </Discovery>