Manualsbrain.com
  1. Manuali
  2. Marche
  3. Xerox
  4. CentreWare Management Pack for Microsoft Operations Manager Support & Software
  5. Guida Utente

Xerox CentreWare Management Pack for Microsoft Operations Manager Support & Software Guida Utente

Scarica
Pagina di 33
Xerox CentreWare for Microsoft Operations Manager User Guide 
14 
************************************************************************ 
' VBScript source code
  
Const ALERT_TYPE_SUCCESS = 10
  
Const ALERT_TYPE_INFORMATION = 20  
  
Const ALERT_TYPE_WARNING = 30  
  
Const ALERT_TYPE_ERROR = 40
  
Const ALERT_TYPE_CRITICAL_ERROR = 50
  
Const ALERT_TYPE_SECURITY_ISSUE = 60
  
Const ALERT_TYPE_SERVICE_UNAVAILABLE = 70
  
Const EVENT_NUMBER_ERROR = 11111
  
Const EVENT_NUMBER_WARNING = 22222
  
Const EVENT_NUMBER_INFORMATION = 33333
  
Const EVENT_NUMBER_SERVICE_UNAVAILABLE = 44444
  
Const PROBLEMSTATE_NOTSET = 0
  
Const PROBLEMSTATE_GREEN = 1
  
Const PROBLEMSTATE_YELLOW = 2
  
Const PROBLEMSTATE_RED = 3
  
Dim objAlert
  
Dim objEvent
  
Dim OErrEvent
  
Dim sErrMsg
  
Dim sDeviceName
  
Dim sDeviceIP
  
Dim sMessage
  
Dim iPos
  
Dim sMsgArray
  
Dim LastMessage
  
On Error Resume Next
  
sErrMsg = ""
  
Function MakeEvent(strDescription)
  
    Dim objErrEvt
  
    Set objErrEvt = ScriptContext.CreateEvent()
  
objErrEvt.EventSource = "Xerox CW Script"
  
objErrEvt.EventNumber = 99999
  
objErrEvt.EventType = 1
  
objErrEvt.LoggingDomain = "workgroup"
  
objErrEvt.SourceDomain = "workgroup"
  
objErrEvt.Message = strDescription
  
    Set MakeEvent = objErrEvt
  
End Function
  
If (ScriptContext.IsEvent()) Then
  
    Set objEvent = ScriptContext.Event
  
    Set objAlert = ScriptContext.CreateAlert()
  
   
  
   'Set the role, subgroup role and instance details
  
    objAlert.ServerRole = "Xerox Printer"
  
    'objAlert.Component = "Printer Status"
  
    objAlert.ServerRoleInstance = ScriptContext.TargetComputer
  
   if objEvent.Category = "Availability" Then
  
        objAlert.Component = "Availability"
  
   Elseif objEvent.Category = "Paper Input" Then
  
        objAlert.Component = "Paper Input"
  
   Elseif objEvent.Category = "Output" Then
  
        objAlert.Component = "Output"
  
   Elseif objEvent.Category = "Paper Output" Then
  
        objAlert.Component = "Output"
  
   Elseif objEvent.Category = "Supplies" Then
  
        objAlert.Component = "Supplies"
  
   Elseif objEvent.Category = "Cover" Then
  
        objAlert.Component = "Cover"
  
   Elseif objEvent.Category = "Service" Then
  
        objAlert.Component = "Service"
  
   End if
  
   if objEvent.EventNumber = EVENT_NUMBER_ERROR Then
  
        objAlert.AlertLevel = ALERT_TYPE_CRITICAL_ERROR
  
        objAlert.ProblemState = PROBLEMSTATE_RED
  
    elseif objEvent.EventNumber = EVENT_NUMBER_WARNING Then
  
        objAlert.AlertLevel = ALERT_TYPE_WARNING 
 
        objAlert.ProblemState = PROBLEMSTATE_RED
  
    elseif objEvent.EventNumber = EVENT_NUMBER_INFORMATION Then
  
        objAlert.AlertLevel = ALERT_TYPE_INFORMATION 
 
        objAlert.ProblemState = PROBLEMSTATE_GREEN