Huawei.Bmc.Snmp.Monitor.FanStatus

Huawei.RackServer.Huawei.Bmc.Snmp.Monitor.FanStatus (UnitMonitor)

Description for the new unit monitor.

Element properties:

Source Code:

<UnitMonitor ID="Huawei.RackServer.Huawei.Bmc.Snmp.Monitor.FanStatus" Accessibility="Internal" Enabled="true" Target="Huawei.Bmc.Snmp.Fan" ParentMonitorID="Health!System.Health.AvailabilityState" Remotable="true" Priority="Normal" TypeID="Windows!Microsoft.Windows.TimedScript.ThreeStateMonitorType" ConfirmDelivery="false">

  <Category>AvailabilityHealth</Category>

  <OperationalStates>

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

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

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

  </OperationalStates>

  <Configuration>

    <IntervalSeconds>1800</IntervalSeconds>

    <SyncTime/>

    <ScriptName>FanUnitMonitor.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$ $Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/PortNumber$ $Target/Host/Property[Type="NetworkLibrary!System.NetworkManagement.Node"]/SNMPVersion$</Arguments>

    <ScriptBody><Script>

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

    ' Script Name - FanUnitMonitor

    ' 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, port

    Dim FanStatus,FanNum,community,ipAddr,Fan_HealthOID,Fan_Health,CurrentTime,prmDeviceID



    Set oArgs = WScript.Arguments

    prmDeviceID = oArgs(1)

    FanNum =  oArgs(2)

    community =  oArgs(3)

    ipAddr =  oArgs(4)

    port =  oArgs(5)

    snmpVer = oArgs(6)



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

    IF snmpVer = "2" then

    snmpVer = "2c"

    END IF

    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



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

    Fan_HealthOID = "1.3.6.1.4.1.2011.2.235.1.1.8.50.1.4."&amp;FanNum

    Fan_Health = getOidResult( Fan_HealthOID)



    FanStatus = Fan_Health

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

    FanStatus = -1

    Elseif FanStatus = chr(13) Then

    FanStatus = -1

    End IF

    FanStatus = FanStatus



    If FanStatus = 2 Then

    FanStatus = "Warning"

    ElseIf FanStatus = 3 OR FanStatus = 4 Then

    FanStatus = "Error"

    else

    FanStatus = "OK"

    End If

    MOMDebugLog("time now :"  &amp;  CurrentTime &amp; " SNMPAddr:"  &amp;  ipAddr &amp; " FanNum:" &amp; FanNum &amp;" Fan_Health:"  &amp; Fan_Health &amp;" FanStatus: "  &amp;  FanStatus )



    Dim oAPI, oBag

    Set oAPI = CreateObject("MOM.ScriptAPI")

    Set oBag = oAPI.CreatePropertyBag()

    Call oBag.AddValue("Status",FanStatus)

    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;  port  &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\RunTimeMonitorFan.txt", ForAppending, True)

    f.WriteLine strMessage

    f.Close

    End if

    End if

    End Function



  </Script></ScriptBody>

    <TimeoutSeconds>600</TimeoutSeconds>

    <ErrorExpression>

      <SimpleExpression>

        <ValueExpression>

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

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

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

        </ValueExpression>

      </SimpleExpression>

    </ErrorExpression>

    <WarningExpression>

      <SimpleExpression>

        <ValueExpression>

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

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

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

        </ValueExpression>

      </SimpleExpression>

    </WarningExpression>

    <SuccessExpression>

      <SimpleExpression>

        <ValueExpression>

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

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

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

        </ValueExpression>

      </SimpleExpression>

    </SuccessExpression>

  </Configuration>

</UnitMonitor>