Xerox CentreWare Management Pack for Microsoft Operations Manager Support & Software ユーザーガイド

MOM Administrator Console 

15 

    elseif objEvent.EventNumber = EVENT_NUMBER_SERVICE_UNAVAILABLE Then

  

        objAlert.AlertLevel = ALERT_TYPE_SERVICE_UNAVAILABLE

  

        objAlert.ProblemState = PROBLEMSTATE_RED

  

    else

  

        objAlert.AlertLevel = ALERT_TYPE_INFORMATION 

 

        objAlert.ProblemState = PROBLEMSTATE_GREEN

  

    end if

  

    objAlert.AlertSource = objEvent.EventSource

  

    objAlert.Computer = objEvent.SourceComputer

  

    objAlert.ComputerDomain = objEvent.SourceDomain

  

    sMsgArray = Split(objEvent.Message,"~")

  

    sDeviceName = Trim(Right(sMsgArray(0), Len(sMsgArray(0)) - InStrRev(sMsgArray(0),":")))  

  

    sDeviceIP = Trim(Right(sMsgArray(1), Len(sMsgArray(1)) - InStrRev(sMsgArray(1),":")))

  

    if Err.number <> 0 Then

  

sErrMsg = sErrMsg + vbCrLf + "sDeviceIP: " + vbCrLf + CStr(Err.number) + vbCrLf + Err.Description

  

    end if

  

    Err.Clear

  

    sMessage = sDeviceIP

  

    if UBound(sMsgArray) >= 2 Then

  

   for iPos = 2 to UBound(sMsgArray)

  

        sMessage = sMessage + vbCrLf + sMsgArray(iPos)

  

        

  

         Next

  

    End if

  

   LastMessage = Trim(Right(sMsgArray(UBound(sMsgArray)), Len(sMsgArray(UBound(sMsgArray))) - 
 InStrRev(sMsgArray(UBound(sMsgArray)),":"))) 

 

   

  

    if Err.number <> 0 Then

  

         sErrMsg = sErrMsg + vbCrLf + "For Loop" + vbCrLf + CStr(Err.number) + vbCrLf + Err.Description

  

    end if

  

    Err.Clear

  

   

    objAlert.Owner = sDeviceName

  

    objAlert.Description = sMessage 

 

    

  

 

  

    if LastMessage <> "Low Paper" then

  

    ScriptContext.Submit(objAlert)

  

    if Err.number <> 0 Then

  

   sErrMsg = sErrMsg + objAlert.ServerRoleInstance + vbCrLf + objAlert.Component + vbCrLf + "Submit" + vbCrLf +  

  

CStr(Err.number) + vbCrLf + Err.Description

  

    end if

  

End if

  

    Err.Clear

  

Else

  

    Set objAlert = Nothing

  

End If

  

if sErrMsg <> "" Then

  

Set OErrEvent = MakeEvent(CStr(Err.number) + vbCrLf + objEvent.Message + vbCrLf + sErrMsg)

  

ScriptContext.Submit(OErrEvent)

  

Set OErrEvent = Nothing

  

End if

  

Set objEvent = Nothing