SQL query in SCOM monitor or rule

Question

Hello good people,
im looking for a script so I can create monitor's. The monitor mustl query against the ops database.
For example:
SELECT ManagedEntityGenericView.DisplayName, ManagedEntityGenericView.AvailabilityLastModified
 FROM ManagedEntityGenericView
 INNER JOIN ManagedTypeView ON ManagedEntityGenericView.MonitoringClassId = ManagedTypeView.Id
 WHERE (ManagedTypeView.Name = 'microsoft.systemCenter.agent') AND (ManagedEntityGenericView.IsAvailable = 0)
 ORDER BY ManagedEntityGenericView.DisplayName
this query will display " grey agents"...so the script I need must alert on output...no output: is healthy, otherwise the output must be put in an alert....Ive seen different scripts but none of them is working or is giving the right result.
Thx for reading this en hopefully you can provide me with a answer
kind regards

Answer 1

How should I adjust the following script si its suitable for my needs? the script works because its not generating any event id's but is not alerting also :-)
Dim objCN, strConnection
Set objCN = CreateObject("ADODB.Connection")
Dim objAPI, oBag
Set objAPI = CreateObject("MOM.ScriptAPI")
Set oBag = objAPI.CreateTypedPropertyBag(StateDataType)
strConnection = "Driver={SQL Server};Server=XXXXX;Database=XXXXX;Trusted_Connection=TRUE"
objCN.Open strConnection
Dim strSQLQuery
strSQLQuery = "SELECT ManagedEntityGenericView.DisplayName, ManagedEntityGenericView.AvailabilityLastModified FROM ManagedEntityGenericView INNER JOIN ManagedTypeView ON ManagedEntityGenericView.MonitoringClassId = ManagedTypeView.Id WHERE (ManagedTypeView.Name
= 'microsoft.systemCenter.agent') AND (ManagedEntityGenericView.IsAvailable = 0) ORDER BY ManagedEntityGenericView.DisplayName"
Dim objRS
Set objRS=CreateObject("ADODB.Recordset")
Set objRS = objCN.Execute(strSQLQuery)
Do Until objRS.EOF 'WScript.Echo objRS.Fields("Expr1?)
if objRS.Fields("Expr1?) = "SPECIFY TRIGGER FROM RESULT TO SET MONITOR in BAD State" then
Call oBag.AddValue("State","BAD") Call oBag.AddValue("Custom1?,objRS.Fields("Expr1?)) Call objAPI.Return(oBag)
else
Call oBag.AddValue("State","GOOD") Call objAPI.Return(oBag)