Call oBag.AddValue(“ret”,strReturn)
Call oBag.AddValue(“ret2″,strReturn2)

Then in the description you would add somthing like this
$Data/Context/Property[@Name='ret']$
$Data/Context/Property[@Name='ret'2]$

Thx for your script, i could adapt it and test it in my MP.
But i have a question :
In the Alerting part, in the alert description box, I tried this :
“Test :
$Property[@Name='ret']$
$Data/Context/Property[@Name='ret']$
$Property[@Name='State']$
$Data/Context/Property[@Name='State']$
”

but in the alert description, I only get

“Test :

{0}
{1}
{2}
{3}”

Do you know how I can get strings contained in the oBag ??

Regards.

Download this one. http://www.scom2k7.com/downloads/countnumberoffileswithscom.zip

The process started at 2:52:48 PM failed to create System.PropertyBagData. Errors found in output:

C:\Program Files\System Center Operations Manager 2007\Health Service State\Monitoring Host Temporary Files 39\546\CheckFolder.vbs(13, 25) Microsoft VBScript compilation error: Invalid character

I think it’s referencing the following line:Set oBag = oAPI.CreateTypedPropertyBag(StateDataType)

Here’s what I have in my script. Any ideas?

‘ Enter a script that outputs a property bag
‘ Example VBScript:
‘
‘ Dim oAPI, oBag
‘ Set oAPI = CreateObject(“MOM.ScriptAPI”)
‘ Set oBag = oAPI.CreatePropertyBag()
‘ Call oBag.AddValue(“Status”,”OK”)
‘ Call oAPI.Return(oBag)

On Error Resume Next

Dim oAPI, oBag, objFSO, objFldr
Set oAPI = CreateObject(“MOM.ScriptAPI“)
Set oBag = oAPI.CreateTypedPropertyBag(StateDataType)
Set oArgs = WScript.Arguments
MessageText = “”
If oArgs.Count Then
Call oAPI.LogScriptEvent(“Check.Folder.vbs”, 500, 0, “Script aborted. Not enough parameters provided.”)
WScript.Quit -1
End If
strFldr = oArgs(0)
NumberOfFiles = int(oArgs(1))
Set objFSO=CreateObject(“Scripting.FileSystemObject”)
Set objFldr=objFSO.GetFolder(strFldr)
If objFldr.Files.Count > NumberOfFiles Then
strReturn = “Number of Files in “ & strFldr& ” is greater than “ & NumberOfFiles
Call oBag.AddValue(“State”,“BAD”)
Call oBag.AddValue(“ret“,strReturn)

Else
Call oBag.AddValue(“State”,“GOOD”)

End If
Call oAPI.Return(oBag)