CLIP 笔记

1、安装SCATUO

2、修改SCAUTO配置文件

3、修改SM配置文件

4、IM.close.incident

5、IM.update.incident

6、修改addanno.vbs如下

'on error resume next

Dim WshShell, bKey, objController, objRemoteScript

Set WshShell = WScript.CreateObject("WScript.Shell")
Set colNamedArguments = WScript.Arguments.Named

If WScript.Arguments.Count = 1 Then
 Msgid = colNamedArguments.Item("Id")
 'AnnotationNbr = colNamedArguments.Item("Nbr")

Else
 Wscript.Echo "Usage: addanno.vbs /Id:<msg id>"
 Wscript.Quit
End If

if Msgid = "" Then
 Wscript.Echo "Usage: addanno.vbs /Id:<msg id>"
 Wscript.Quit
Else
  wscript.echo "Msgid: " & Msgid
End if

SourceName = "localhost"

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set WMISrc = objLocator.ConnectServer(SourceName, "root\HewlettPackard\OpenView\data", "", "")
WMISrc.Security_.impersonationlevel = 3

 

Function GetCma( WMIPtr, MsgId, CmaName )

  Set MessageSet = WMIPtr.ExecQuery("Select * from OV_Message where Id='" & MsgId & "'")
  Value = ""

  For Each OV_Message In MessageSet
      Cmas = OV_Message.CMAs
      If IsNull(Cmas) Then
        Value = ""
      Else
        For each Cma in Cmas
          if Cma.name = CmaName then
            Value = Cma.value
          end if
        Next
      End if
  Next

  GetCma = Value

End Function

 

Function GetAnnotation ( WMIPtr, MsgId)
  Dim Annotations()

  ActualText =0
  Set MessageSet = WMIPtr.ExecQuery("Select * from OV_Message where Id='" & MsgId & "'")
 
  For Each OV_Message In MessageSet
 AnnoCount=OV_Message.NumberOfAnnotations
   if OV_Message.NumberOfAnnotations=0 then
    AnnoCount=1
   End If
      for j=1 to AnnoCount
   Error = OV_Message.GetAnnotationArray( j, 1, 0, Annotations )
        I = 1
        For each Anno in Annotations
   if instr(Anno.Text,"http://f5tpc.poc.com:8888")<>0 then
    ActualText=1
   End If
        Next
      next
     
  Next

  GetAnnotation = ActualText

End Function

 

 

 

 

 

Function GetText( WMIPtr, MsgId)

  Set MessageSet = WMIPtr.ExecQuery("Select * from OV_Message where Id='" & MsgId & "'")
  Value = ""

  For Each OV_Message In MessageSet
    Value = OV_Message.Text
  Next

  GetText = Value

End Function

Function NbrOfCmas ( WMIPtr, MsgId )
  I = 0

  Set MessageSet = WMIPtr.ExecQuery("Select * from OV_Message where Id='" & MsgId & "'")

  For Each OV_Message In MessageSet
      Cmas = OV_Message.CMAs

      If IsNull(Cmas) Then
        I = 0
      Else
        For each Cma in Cmas
          I = I + 1
        Next
      End If
  Next

  RemNbrOfCmas = I

End Function

Sub AddAnnotation( WMIPtr, MsgId, Text )

  Set MessageSet = WMIPtr.ExecQuery("Select * from OV_Message where Id='" & MsgId & "'")

  For Each OV_Message In MessageSet
    Error = OV_Message.AddAnnotation(Text)
  Next

End Sub

TestCma = GetCma( WMISrc, Msgid, "CauseEventId" )

if TestCma = "" Then
  wscript.echo "Cma CAUSE not found"
Wscript.Quit
Else
  wscript.echo "CMA CAUSE: " & TestCma

  MsgText = GetText( WMISRc, TestCma )
  if MsgText = "" Then
    wscript.echo "Msg not found" 
  Else
    wscript.echo "Text: " & MsgText

   if GetAnnotation(WMISrc, MsgId)=0 then
   AddAnnotation WMISrc, MsgId, "Correlated cause event is: " & MsgText & ". See

http://f5tpc.poc.com:8888/opr-console/eventDetails.jsf?id=" & MsgId & " for details on related events."
   End If
  End If
End if

 

 

7、在Tailoring-->Event Service中查看PMU,PMC情况（只能用search，不能用find）

8、如果无法更新工单，但是event in里面有相关pmu，只是pmu记录无incident id，那么检查时区是否为北京