Problem with Script Monitoring scom 2012 r2

Question

Hello,
i have some problem. i create 2 state monitoring and it works fine but. mu task is to monitor any changes
i have xml file where is returned some values 
<Item>
<Name>#16</Name>
<Value>NA</Value>
</Item>
when everything is ok value is NA .but when not ok it write here count of problem per server  ex
<Item>
<Name>#16</Name>
<Value>server 1 230</Value>
</Item>
 and in alert it returns as server 1 230 errors.but in script may be that it will change on
<Item>
<Name>#16</Name>
<Value>server 1 230 | server 2 340</Value>
</Item>
but script couldn't get that this is new alert.  what can i do for this. i couldn't found  to resolve alert  after time automatically 

Answer 1

i have one problem now. 
when i run script (vbs) on witch is read from file it don't work 
this is code witch don't work
Dim oAPI, oBag,sComputerName
sComputerName = WScript.Arguments(0)
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("http://" + sComputerName + "/metrics/info.xml")
strQuery = "/Info/Item/Value"
Set colNodes = xmlDoc.selectNodes( strQuery )
Set objNode = colNodes.Item(16)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\SCOM\NetworkDevice\tms.txt", 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Wscript.Echo strLine
Loop
objFile.Close
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Call oBag.AddValue("ComputerName",sComputerName)
Call oBag.AddValue("Tvalue",objNode.text)
Call oBag.AddValue("Tvalue2",strLine)
oAPI.Return(oBag)
this is witch works fine
Dim oAPI, oBag,sComputerName
sComputerName = WScript.Arguments(0)
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("http://" + sComputerName + "/metrics/info.xml")
strQuery = "/Info/Item/Value"
Set colNodes = xmlDoc.selectNodes( strQuery )
Set objNode = colNodes.Item(16)
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Call oBag.AddValue("ComputerName",sComputerName)
Call oBag.AddValue("Tvalue",objNode.text)
oAPI.Return(oBag)
tms.txt is file witch contains sole text string. example (test)