DIM CSV3, objFSO, objTextFile, strNextLine, arrServiceList, String3, objshell

Const ForReading = 1
Const EVENT_ERROR = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\monitor.log", ForReading)
Set objShell = Createobject("WScript.Shell")

String3 = "'Computer_Room1'"






Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    arrServiceList = Split(strNextLine , " ")
    CSV3 = arrServiceList(5)
Loop
       If CSV3=String3 Then
         'objshell.logevent EVENT_ERROR, _
        '"Temperature Alert: " & CSV3 & " over Limit. Check Room"

Dim objEvt
  Set objEvt = ScriptContext.CreateEvent
  objEvt.Message = "Temperature Alert: " & CSV3 & " over Limit. Check Room"
  objEvt.EventType =  2 ' 2 = EVENTLOG_WARNING_TYPE

  ' Submit the event to MOM.
  ScriptContext.Submit(objEvt)

  ' Free the event object.
  Set objEvt = Nothing



End If