Huawei.E9000.Snmp.Monitor.SnmpTrapPowersupply

Huawei.BladeServer.Huawei.E9000.Snmp.Monitor.SnmpTrapPowersupply (UnitMonitor)

Description for the new unit monitor.

Element properties:

Source Code:

<UnitMonitor ID="Huawei.BladeServer.Huawei.E9000.Snmp.Monitor.SnmpTrapPowersupply" Accessibility="Public" Enabled="true" Target="E9000.PowerSupply" ParentMonitorID="Health!System.Health.AvailabilityState" Remotable="true" Priority="Normal" TypeID="Huawei.Server.EventTriggeredScriptMonitorType.3StateScriptMonitorType" ConfirmDelivery="false">

  <Category>AvailabilityHealth</Category>

  <OperationalStates>

    <OperationalState ID="Success" MonitorTypeStateID="Success" HealthState="Success"/>

    <OperationalState ID="Warning" MonitorTypeStateID="Warning" HealthState="Warning"/>

    <OperationalState ID="Critical" MonitorTypeStateID="Critical" HealthState="Error"/>

  </OperationalStates>

  <Configuration>

    <IP>$Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/SNMPAddress$</IP>

    <CommunityString>$RunAs[Name="NetworkLibrary!System.NetworkManagement.Snmp.MonitoringAccount"]/CommunityString$</CommunityString>

    <Version>$Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/SNMPVersion$/</Version>

    <!--<AllTraps>false</AllTraps>-->

    <OIDProps>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.8</OIDProp>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.257</OIDProp>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.258</OIDProp>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.1042</OIDProp>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.1793</OIDProp>

      <OIDProp>1.3.6.1.4.1.2011.2.82.1.82.500.10.2824</OIDProp>

    </OIDProps>

    <ScriptName>powerTrapEventMonitor.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$ $Target/Property[Type="NetworkLibrary!System.NetworkManagement.LogicalDevice"]/Index$  $RunAs[Name="NetworkLibrary!System.NetworkManagement.Snmp.MonitoringAccount"]/CommunityString$ $Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/SNMPAddress$ </Arguments>

    <ScriptBody><Script>

    '**********************************************************************************

    ' Script Name - HuaweiServerMemoryUnit

    ' Author:

    ' Description:

    ' Determine Unit Monitor health for Server disk

    '

    ' (c) Copyright Huawei Inc. 2013 - All rights reserved

    '**********************************************************************************

    Option Explicit

    On Error Resume Next





    Dim oArgs

    Dim exePath, snmpVer, arr, host, ws, debugFlag

    Dim powersupplyStatus,powersupplyNum,community,ipAddr,powersupply_HealthOID,powersupply_Health,CurrentTime,prmDeviceID



    Set oArgs = WScript.Arguments

    prmDeviceID = oArgs(1)

    powersupplyNum =  oArgs(2)

    community =  oArgs(3)

    ipAddr =  oArgs(4)





    exePath = "C:\"&amp;"Program Files"&amp;"\Huawei\snmp\snmpget.exe"

    snmpVer = "2c"

    debugFlag = 0





    Set ws = CreateObject("WScript.Shell")

    host = WScript.FullName



    If LCase( right(host, len(host)-InStrRev(host,"\")) ) = "wscript.exe" Then

    ws.run "cscript """  &amp; WScript.ScriptFullName  &amp; chr(34), 0

    WScript.Quit

    End If





    MOMDebugLog("------------------pdMonitor start------------------")

    CurrentTime = Hour(Now)&amp; ":" &amp; Minute(Now)  &amp;":" &amp;Second(Now)

    MOMDebugLog("122"  &amp;  prmDeviceID)

    MOMDebugLog("powersupplyNum :"  &amp;  powersupplyNum )

    MOMDebugLog("SNMPAddr :"  &amp;  ipAddr)

    MOMDebugLog("time now :"  &amp;  CurrentTime)

    powersupply_HealthOID = "1.3.6.1.4.1.2011.2.82.1.82.100.4.2001.1.3."&amp;powersupplyNum



    powersupply_Health = getOidResult( powersupply_HealthOID)

    MOMDebugLog("powersupply_Health:"  &amp; powersupply_Health)



    powersupplyStatus = powersupply_Health

    IF len(powersupplyStatus)=0 or len(powersupplyStatus)&gt;2  or powersupplyStatus =chr(10) Then

    powersupplyStatus = -1

    Elseif powersupplyStatus = chr(13) Then

    powersupplyStatus = -1

    End IF

    powersupplyStatus = powersupplyStatus



    If powersupplyStatus = 2 Then

    powersupplyStatus = "Warning"

    MOMDebugLog( "Raw Status: "  &amp;  powersupplyStatus)

    ElseIf powersupplyStatus = 3 OR powersupplyStatus = 4 OR powersupplyStatus = 5 OR powersupplyStatus = 6 OR powersupplyStatus = 7 Then

    powersupplyStatus = "Critical"

    MOMDebugLog(" Raw Status: "  &amp;  powersupplyStatus)

    else

    powersupplyStatus = "OK"

    MOMDebugLog(" Raw Status: "  &amp;  powersupplyStatus)

    End If



    MOMDebugLog("time now :"  &amp;  CurrentTime)

    MOMDebugLog("------------------pdMonitor end------------------")

    Dim oAPI, oBag

    Set oAPI = CreateObject("MOM.ScriptAPI")

    Set oBag = oAPI.CreatePropertyBag()

    Call oBag.AddValue("Status",powersupplyStatus)

    Call oAPI.Return(oBag)

    oBag = Nothing

    '*****************************************************************

    ' Function getOidResult

    ' query OID value through snmp interface.

    '*****************************************************************

    Public Function getOidResult (ByVal Oid)

    Dim cmd, result, getResult, arr



    cmd = exePath  &amp; " -v "  &amp; snmpVer  &amp; " -c "  &amp; community  &amp; " -r 3 -t 20 -O vq "   &amp;  ipAddr  &amp; " "  &amp;  Oid

    Set getResult = ws.Exec(cmd)

    result = getResult.StdOut.ReadAll

    Set getResult = Nothing

    IF len(result )&gt;1 Then

    IF (Mid(result ,1,1)=chr(34) And  Mid(result ,len(result )-1,1)=chr(34))  Then

    result = Mid(result ,2,len(result)-3)  &amp; chr(32)

    End IF

    End IF

    getOidResult = result



    End Function





    '*****************************************************************

    ' Function MOMDebugLog

    ' Add LogMessage Header - ScriptName and Time and Logging it.

    '*****************************************************************

    Public Function MOMDebugLog (ByVal strMessage)

    IF debugFlag = 1 then

    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    Set fso=CreateObject("Scripting.FileSystemObject")

    if fso.folderExists("C:\scomLog") then

    Dim fso, f

    Set f = fso.OpenTextFile("c:\scomLog\PowersupplyTrapMonitor.txt", ForAppending, True)

    f.WriteLine strMessage

    f.Close

    End if

    End if

    End Function



  </Script></ScriptBody>

    <TimeoutSeconds>600</TimeoutSeconds>

    <SuccessExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='Status']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">OK</Value>

        </ValueExpression>

      </SimpleExpression>

    </SuccessExpression>

    <WarningExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='Status']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">Warning</Value>

        </ValueExpression>

      </SimpleExpression>

    </WarningExpression>

    <CriticalExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='Status']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">Critical</Value>

        </ValueExpression>

      </SimpleExpression>

    </CriticalExpression>

  </Configuration>

</UnitMonitor>