Dell.Connections.0013.1.0.118Dell.Connections.001System.ApplicationLog.Library6.0.6278.031bf3856ad364e35Microsoft.SystemCenter.NetworkDevice.Library6.0.6278.031bf3856ad364e35Microsoft.SystemCenter.DataWarehouse.Library6.0.6278.031bf3856ad364e35System.Snmp.Library6.0.6278.031bf3856ad364e35Microsoft.Windows.Library6.0.6278.031bf3856ad364e35System.Library6.0.6278.031bf3856ad364e35Microsoft.SystemCenter.Library6.0.6278.031bf3856ad364e35System.Health.Library6.0.6278.031bf3856ad364e35Dell.Connections.DellHWGroupDell.Connections.DellServerGroupDell.Connections.DellHWGroupDell.Connections.DellPrinterGroupDell.Connections.DellServerDell.Connections.DellDRACDell.Connections.DellHWGroupDell.Connections.DellUnknownGroupDell.Connections.DellServerGroupDell.Connections.DellMonolithicServerGroupDell.Connections.DellServerGroupDell.Connections.DellModularSystemGroupDell.Connections.DellMonolithicServerGroupDell.Connections.DellMonolithicServerDell.Connections.DellModularSystemGroupDell.Connections.DellModularBladeDell.Connections.DellModularBladeDell.Connections.DellChassisDell.Connections.DellChassisDell.Connections.ChassisFansDell.Connections.ChassisFansDell.Connections.ChassisFansUnitDell.Connections.DellChassisDell.Connections.ChassisPowerSuppliesDell.Connections.ChassisPowerSuppliesDell.Connections.ChassisPowerSuppliesUnitDell.Connections.DellPrinterGroupDell.Connections.DellPrinterDell.Connections.DellUnknownGroupDell.Connections.DellUnknownDell.Connections.DellServerDell.Connections.ServerHWComponentsDell.Connections.DellServerDell.Connections.ServerServicesDell.Connections.DellServerDell.Connections.ServerBMCDell.Connections.ServerHWComponentsDell.Connections.ServerHWComponentsSensorsDell.Connections.ServerHWComponentsSensorsDell.Connections.ServerSensorTemperatureDell.Connections.ServerSensorTemperatureDell.Connections.ServerSensorTemperatureUnitDell.Connections.ServerHWComponentsSensorsDell.Connections.ServerSensorVoltageDell.Connections.ServerSensorVoltageDell.Connections.ServerSensorVoltageNumericUnitDell.Connections.ServerSensorVoltageDell.Connections.ServerSensorVoltageDiscreteUnitDell.Connections.ServerHWComponentsSensorsDell.Connections.ServerSensorCurrentsDell.Connections.ServerSensorCurrentsDell.Connections.ServerSensorCurrentsNumericUnitDell.Connections.ServerHWComponentsSensorsDell.Connections.ServerSensorBatteriesDell.Connections.ServerSensorBatteriesDell.Connections.ServerSensorBatteriesDiscreteUnitDell.Connections.ServerHWComponentsDell.Connections.ServerFansDell.Connections.ServerFansDell.Connections.ServerFansUnitDell.Connections.ServerHWComponentsDell.Connections.ServerPowerSuppliesDell.Connections.ServerPowerSuppliesDell.Connections.ServerPowerSuppliesUnitDell.Connections.ServerHWComponentsDell.Connections.ServerMemoryDell.Connections.ServerMemoryDell.Connections.ServerMemoryUnitDell.Connections.ServerHWComponentsDell.Connections.ServerProcessorsDell.Connections.ServerProcessorsDell.Connections.ServerProcessorsUnitDell.Connections.ServerHWComponentsDell.Connections.ServerIntrusionDell.Connections.ServerServicesDell.Connections.ServerServices.DSMEventManagerDell.Connections.ServerServicesDell.Connections.ServerServices.DSMSharedServicesDell.Connections.ServerServicesDell.Connections.ServerServices.DSMConnServiceDell.Connections.ServerServicesDell.Connections.ServerServices.DSMDataManagerDell.Connections.DellServerDell.Connections.DellStorageDell.Connections.DellStorageDell.Connections.DellStorageControllerDell.Connections.DellStorageControllerDell.Connections.ControllerBatteryDell.Connections.DellStorageControllerDell.Connections.ControllerVirtualDiskDell.Connections.DellStorageControllerDell.Connections.ControllerConnectorDell.Connections.ControllerConnectorDell.Connections.ControllerEnclosureDell.Connections.ControllerConnectorDell.Connections.ConnectorPhysicalDiskDell.Connections.ControllerEnclosureDell.Connections.EnclosurePhysicalDiskDell.Connections.ControllerEnclosureDell.Connections.EnclosureTemperatureDell.Connections.ControllerEnclosureDell.Connections.EnclosureFanDell.Connections.ControllerEnclosureDell.Connections.EnclosurePowerSupplyDell.Connections.ControllerEnclosureDell.Connections.EnclosureEMMDell.Connections.DellServerGroupDell.Connections.OOB_DRAC_GroupDell.Connections.DellServerGroupDell.Connections.OOB_CMC_GroupDell.Connections.OOB_DRAC_GroupDell.Connections.DRAC_5Dell.Connections.OOB_DRAC_GroupDell.Connections.DRACMCDell.Connections.DellServerDell.Connections.DellServer.BIOSDell.Connections.OOB_CMC_GroupDell.Connections.CMC$Config/IntervalSeconds$DellServerHWComponentDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Server HW Component Discovery
' Author: Vignesh Pandian, Muralidhar L
'
' Description:
' Discover all hardware components for a Dell server with instrumentation using CIM
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error Resume Next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
Dim FanFlag, MemFlag, PSFlag, ProcFlag, BaseboardType, TempFlag, VoltageFlag, CurrentFlag, BatteryFlag, IntrusionFlag
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
FanFlag = 0
MemFlag = 0
PSFlag = 0
ProcFlag = 0
TempFlag = 0
VoltageFlag = 0
CurrentFlag = 0
BatteryFlag = 0
IntrusionFlag = 0
Dim oAPI, oDiscoveryData, oInst, strComputer, objDellConnection, LogMessage
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
strComputer = TargetComputer
set objDellConnection = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\Dell")
If Err.Number <> 0 Then
LogMessage = "WMI Cimv2Dell Error Number : " & Err.Number & ". Description :" & Err.Description
Err.Clear
Else
If IsEmpty(objDellConnection) Then
LogMessage = "Unable to open WMI Namespace root-cimv2-dell. Check to see if the WMI service is enabled and running, and Install/Re-Install ServerAdministrator to ensure this WMI namespace exists. " & Err
Else
TempDiscover()
VoltageDiscover()
CurrentDiscover()
BatteryDiscover()
DiscoverProc()
DiscoverMem()
DiscoverIntrusion()
GetBaseBoardType()
If (BaseboardType = "10") Then
DiscoverFans()
DiscoverPS()
End If
End If
End If
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerHWComponents']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Hardware Components")
call oDiscoveryData.AddInstance(oInst)
If TempFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorTemperature']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Temperature")
call oDiscoveryData.AddInstance(oInst)
End If
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerHWComponentsSensors']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Sensors")
call oDiscoveryData.AddInstance(oInst)
If VoltageFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorVoltage']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Voltage")
call oDiscoveryData.AddInstance(oInst)
End If
If CurrentFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorCurrents']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Currents")
call oDiscoveryData.AddInstance(oInst)
End If
If BatteryFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorBatteries']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Batteries")
call oDiscoveryData.AddInstance(oInst)
End If
If FanFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerFans']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Fans")
call oDiscoveryData.AddInstance(oInst)
End If
If PSFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerPowerSupplies']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Power Supplies")
call oDiscoveryData.AddInstance(oInst)
End If
If ProcFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerProcessors']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Processors")
call oDiscoveryData.AddInstance(oInst)
End If
If MemFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerMemory']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Memory")
call oDiscoveryData.AddInstance(oInst)
End If
If IntrusionFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerIntrusion']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Intrusion")
call oDiscoveryData.AddInstance(oInst)
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
objDellConnection = Nothing
Function BatteryDiscover()
On Error Resume next
Dim sQuery, colItems, objItemSensor
sQuery = "Select * from CIM_DiscreteSensor WHERE SensorType = '13'"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If colItems is Nothing Then
LogMessage = "Unable to retrieve object" & sQuery
Else
For Each objItemSensor in colItems
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell info : " & Err.Number
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
End If
Err.Clear
ElseIf Not objItemSensor is Nothing Then
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorBatteriesDiscreteUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemSensor.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/DeviceID$", objItemSensor.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/CurrentReading$", objItemSensor.CurrentReading)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/OtherSensorTypeDescription$", objItemSensor.OtherSensorTypeDescription)
call oDiscoveryData.AddInstance(oInst)
BatteryFlag = 1
End If
Next
End If 'colItems is nothing
set colItems = Nothing
On Error Goto 0
End Function
Function CurrentDiscover()
On Error Resume next
Dim sQuery, colItems, objItemSensor
sQuery = "Select * from CIM_CurrentSensor"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If colItems is Nothing Then
LogMessage = "Unable to retrieve object" & sQuery
Else
For Each objItemSensor in colItems
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell info : " & Err.Number
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
End If
Err.Clear
ElseIf Not objItemSensor is Nothing Then
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorCurrentsNumericUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemSensor.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/DeviceID$", objItemSensor.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/CurrentReading$", objItemSensor.CurrentReading)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdCritical$", objItemSensor.LowerThresholdCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdNonCritical$", objItemSensor.LowerThresholdNonCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdCritical$", objItemSensor.UpperThresholdCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdNonCritical$", objItemSensor.UpperThresholdNonCritical)
call oDiscoveryData.AddInstance(oInst)
CurrentFlag = 1
End If
Next
End If 'colItems is nothing
set colItems = Nothing
On Error Goto 0
End Function
Function TempDiscover()
On Error Resume next
Dim sQuery, colItems, objItemSensor
Dim CurrentReading, LTCritical, LTNonCritical, UTCritical, UTNonCritical
sQuery = "Select * from CIM_TemperatureSensor"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If colItems is Nothing Then
LogMessage = "Unable to retrieve object" & sQuery
Else
For Each objItemSensor in colItems
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell info : " & Err.Number
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
End If
Err.Clear
ElseIf Not objItemSensor is Nothing Then
CurrentReading = objItemSensor.CurrentReading
LTCritical = objItemSensor.LowerThresholdCritical
LTNonCritical = objItemSensor.LowerThresholdNonCritical
UTCritical = objItemSensor.UpperThresholdCritical
UTNonCritical = objItemSensor.UpperThresholdNonCritical
If Instr(CurrentReading, "-") Then
CurrentReading = "N/A"
Else
CurrentReading = CurrentReading/10 & " C"
End If
If Instr(LTCritical, "-") Then
LTCritical = "N/A"
Else
LTCritical = LTCritical/10 & " C"
End If
If Instr(LTNonCritical, "-") Then
LTNonCritical = "N/A"
Else
LTNonCritical = LTNonCritical/10 & " C"
End If
If Instr(UTCritical, "-") Then
UTCritical = "N/A"
Else
UTCritical = UTCritical/10 & " C"
End If
If Instr(UTNonCritical, "-") Then
UTNonCritical = "N/A"
Else
UTNonCritical = UTNonCritical/10 & " C"
End If
Set oInst= oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorTemperatureUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemSensor.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/DeviceID$", objItemSensor.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/CurrentReading$", CurrentReading)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdCritical$", LTCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdNonCritical$", LTNonCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdCritical$", UTCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdNonCritical$", UTNonCritical)
call oDiscoveryData.AddInstance(oInst)
TempFlag = 1
End If
Next
End If 'colItems is nothing
set colItems = Nothing
On Error Goto 0
End Function
Function VoltageDiscover()
On Error Resume next
Dim sQuery, sQuery1, colItems, colItems1, objItemSensor, objItemSensor1
Dim CurrentReading, LTCritical, LTNonCritical, UTCritical, UTNonCritical
sQuery = "Select * from CIM_VoltageSensor"
sQuery1 = "Select * from CIM_DiscreteSensor WHERE SensorType = '3'"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
Set colItems1 = objDellConnection.ExecQuery(sQuery1)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If colItems is Nothing Then
LogMessage = "Unable to retrieve object" & sQuery
Else
For Each objItemSensor in colItems
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell info : " & Err.Number
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
End If
Err.Clear
ElseIf Not objItemSensor is Nothing Then
CurrentReading = objItemSensor.CurrentReading
If Instr(CurrentReading, "-") Then
CurrentReading = "N/A"
Else
CurrentReading = CurrentReading/1000 & " V"
End If
LTCritical = objItemSensor.LowerThresholdCritical
If Instr(LTCritical, "-") Then
LTCritical = "N/A"
Else
LTCritical = LTCritical/1000 & " V"
End If
LTNonCritical = objItemSensor.LowerThresholdNonCritical
If Instr(LTNonCritical, "-") Then
LTNonCritical = "N/A"
Else
LTNonCritical = LTNonCritical/1000 & " V"
End If
UTCritical = objItemSensor.UpperThresholdCritical
If Instr(UTCritical, "-") Then
UTCritical = "N/A"
Else
UTCritical = UTCritical/1000 & " V"
End If
UTNonCritical = objItemSensor.UpperThresholdNonCritical
If Instr(UTNonCritical, "-") Then
UTNonCritical = "N/A"
Else
UTNonCritical = UTNonCritical/1000 & " V"
End If
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorVoltageNumericUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemSensor.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/DeviceID$", objItemSensor.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/CurrentReading$", CurrentReading)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdCritical$", LTCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/LowerThresholdNonCritical$", LTNonCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdCritical$", UTCritical)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerNumericSensor']/UpperThresholdNonCritical$", UTNonCritical)
call oDiscoveryData.AddInstance(oInst)
VoltageFlag = 1
End If
Next
End If 'colItems is nothing
If (colItems1 is Nothing) Then
LogMessage = "Unable to retrieve object" & sQuery1
Else
For Each objItemSensor1 in colItems1
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell info : " & Err.Number
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
End If
Err.Clear
ElseIf (Not objItemSensor1 is Nothing) Then
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerSensorVoltageDiscreteUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemSensor1.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/DeviceID$", objItemSensor1.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/CurrentReading$", objItemSensor1.CurrentReading)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerDiscreteSensor']/OtherSensorTypeDescription$", objItemSensor1.OtherSensorTypeDescription)
call oDiscoveryData.AddInstance(oInst)
VoltageFlag = 1
End If
Next
End If 'colItems1 is Nothing
set colItems = Nothing
set colItems1 = Nothing
On Error Goto 0
End Function
Function DiscoverFans()
'Retrieving Fan Units
On Error resume next
Dim sQuery, colItems, objItemFans
sQuery = "Select * from CIM_Fan"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve Fan Unit"
Else
LogMessage = "Fan Unit query retrieved successfully"
For Each objItemFans in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItemFans is nothing Then
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerFansUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerFansUnit']/DeviceID$", objItemFans.DeviceID)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemFans.Name)
call oDiscoveryData.AddInstance(oInst)
FanFlag = 1
End If
Next
End If
Set colItems = Nothing
End Function
Function DiscoverPS()
'Retrieving PS Units
On Error resume next
Dim sQuery, colItems, objItemPS, TotalOutputPower
sQuery = "Select * from CIM_PowerSupply"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve PS Unit"
Else
LogMessage = "PS Unit query retrieved successfully"
For Each objItemPS in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItemPS is nothing Then
TotalOutputPower = objItemPS.TotalOutputPower
If (TotalOutputPower <= 0) Then
TotalOutputPower = "N/A"
Else
TotalOutputPower = TotalOutputPower/10
End If
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerPowerSuppliesUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerPowerSuppliesUnit']/DeviceID$", objItemPS.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerPowerSuppliesUnit']/TotalOutputPower$", TotalOutputPower)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerPowerSuppliesUnit']/IsSwitchingSupply$", objItemPS.IsSwitchingSupply)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemPS.Name)
call oDiscoveryData.AddInstance(oInst)
PSFlag = 1
End If
Next
End If
Set colItems = Nothing
End Function
Function DiscoverMem()
'Retrieving Mem Units
On Error resume next
Dim sQuery, colItems, objItemMem, MemoryType
sQuery = "Select * from CIM_PhysicalMemory"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve Mem Unit"
Else
LogMessage = "Mem Unit query retrieved successfully"
For Each objItemMem in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItemMem is nothing Then
MemoryType = objItemMem.MemoryType
If (MemoryType = 0) Then
MemoryType = "Unknown"
ElseIf (MemoryType = 1) Then
MemoryType = "Other"
ElseIf (MemoryType = 2) Then
MemoryType = "DRAM"
ElseIf (MemoryType = 3) Then
MemoryType = "Synchronous DRAM"
ElseIf (MemoryType = 4) Then
MemoryType = "Cache DRAM"
ElseIf (MemoryType = 5) Then
MemoryType = "EDO"
ElseIf (MemoryType = 6) Then
MemoryType = "EDRAM"
ElseIf (MemoryType = 7) Then
MemoryType = "VRAM"
ElseIf (MemoryType = 8) Then
MemoryType = "SRAM"
ElseIf (MemoryType = 9) Then
MemoryType = "RAM"
ElseIf (MemoryType = 10) Then
MemoryType = "ROM"
ElseIf (MemoryType = 11) Then
MemoryType = "Flash"
ElseIf (MemoryType = 12) Then
MemoryType = "EEPROM"
ElseIf (MemoryType = 13) Then
MemoryType = "FEPROM"
ElseIf (MemoryType = 14) Then
MemoryType = "EPROM"
ElseIf (MemoryType = 15) Then
MemoryType = "CDRAM"
ElseIf (MemoryType = 16) Then
MemoryType = "3DRAM"
ElseIf (MemoryType = 17) Then
MemoryType = "SDRAM"
ElseIf (MemoryType = 18) Then
MemoryType = "SGRAM"
ElseIf (MemoryType = 19) Then
MemoryType = "RDRAM"
ElseIf (MemoryType = 20) Then
MemoryType = "DDR"
ElseIf (MemoryType = 21) Then
MemoryType = "DDR2"
ElseIf (MemoryType = 22) Then
MemoryType = "DDR2 FB-DIMM"
End If
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerMemoryUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerMemoryUnit']/Tag$", objItemMem.Tag)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerMemoryUnit']/MemoryType$", MemoryType)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerMemoryUnit']/Capacity$", (objItemMem.Capacity)/(1024*1024) & " MB")
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemMem.Name)
call oDiscoveryData.AddInstance(oInst)
MemFlag = 1
End If
Next
End If
Set colItems = Nothing
End Function
Function DiscoverProc()
'Retrieving Proc Units
On Error resume next
Dim sQuery, colItems, objItemProc, a
sQuery = "Select * from CIM_Processor"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve Proc Unit"
Else
LogMessage = "Proc Unit query retrieved successfully"
For Each objItemProc in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItemProc is nothing Then
a = objItemProc.Status 'CR194360
If Not IsNull(a) Then 'CR194360
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerProcessorsUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerProcessorsUnit']/DeviceID$", objItemProc.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerProcessorsUnit']/CurrentClockSpeed$", objItemProc.CurrentClockSpeed & " MHz")
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemProc.Name)
call oDiscoveryData.AddInstance(oInst)
End If 'CR194360
ProcFlag = 1
End If
Next
End If
Set colItems = Nothing
End Function
Function DiscoverIntrusion()
'Retrieving Security Breach parameter
On Error resume next
Dim sQuery, colItems, objItem
sQuery = "Select * from DELL_Chassis"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve Security Breach parameter"
Else
LogMessage = "Security Breach parameter retrieved successfully"
For Each objItem in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItem is nothing Then
If objItem.SecurityBreach <> 2 Then
IntrusionFlag = 1
End If
End If
Next
End If
Set colItems = Nothing
End Function
Public Function GetBaseBoardType ()
'Retrieving Base board type
On Error resume next
Dim sQuery, colItems, objItem
sQuery = "Select * from DELL_Baseboard"
Set colItems = objDellConnection.ExecQuery(sQuery)
If Err.Number <> 0 Then
LogMessage = sQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
End If
Err.Clear
End If
If (colItems is Nothing) or (IsNull(colItems)) Then
LogMessage = "Unable to retrieve Base board type"
Else
LogMessage = "Base board type retrieved successfully"
For Each objItem in colItems
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItem is nothing Then
BaseBoardType = objItem.BaseboardType
End If
Next
End If
Set colItems = Nothing
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellServerBIOSDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
Option Explicit
On Error Resume Next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst, strComputer, LogMessage, objConnection, wbemObjectSet, objItemBIOS
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
strComputer = TargetComputer
Set objConnection = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If Err.Number <> 0 Then
LogMessage = "WMI Cimv2Dell Error Number : " & Err.Number & ". Description :" & Err.Description
Err.Clear
Else
If IsEmpty(objConnection) Then
LogMessage = "Unable to open WMI Namespace root-cimv2. Check to see if the WMI service is enabled and running " & Err
Else
'Retrieving the BIOS Information
Set wbemObjectSet = objConnection.ExecQuery("Select * from Win32_BIOS")
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
If (wbemObjectSet is Nothing) Or (isNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve BIOS information"
Else
LogMessage = "BIOS Information retrieved successfully"
For Each objItemBIOS in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
LogMessage = "Number:" & Err.Number & "Description:" & Err.Description
End If
'Object Retrieval
If not objItemBIOS is nothing Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellServer.BIOS']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItemBIOS.SerialNumber)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/Version$", objItemBIOS.Version)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/Manufacturer$", objItemBIOS.Manufacturer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/Name$", objItemBIOS.Name)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/SerialNumber$", objItemBIOS.SerialNumber)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/SMBIOSBIOSVersion$", objItemBIOS.SMBIOSBIOSVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/SMBIOSMajorVersion$", objItemBIOS.SMBIOSMajorVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/SMBIOSMinorVersion$", objItemBIOS.SMBIOSMinorVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/SMBIOSPresent$", objItemBIOS.SMBIOSPresent)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/PrimaryBIOS$", objItemBIOS.PrimaryBIOS)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/Status$", objItemBIOS.Status)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer.BIOS']/CurrentLanguage$", objItemBIOS.CurrentLanguage)
call oDiscoveryData.AddInstance(oInst)
End If
Next
End If
Set wbemObjectSet = Nothing
End If
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Set objConnection = Nothing
300System!System.Discovery.Data$Config/IntervalSeconds$DellServerBMCDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Server BMC Discovery
' Author: Vignesh Pandian
'
' Description:
' Discover BMC and DRAC components for a Dell server with instrumentation using CIM
' A02 revision - Fix for BSOD given racadm not being terminated.
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error Resume Next
Dim oArgs, bmcip, SourceID, ManagedEntityId, TargetComputer, msg, version, Message
Dim blsRacType, blsRacInstalled , blsRacGen4, RegError, rc, blsRacGen4Plus
Dim WshShell, oShell, objStdOut, oFile, fso, strLine, nPos, RacadmErrStream
Dim strRACURL, strRacType, strRacIpAddress, strRacPortNumber, strRacPortDec
Dim RacPath, drive, wintemp_path, filespec, filespec5Plus, filespec4
Dim Command10, Command11, Command2, Command3, a, b, RacExitFlag
Dim WshShell2, oShell2, objStdOut2 ' Exec cfgLan
Dim WshShell3, oShell3, objStdOut3 ' Run cfgLan
Const WAIT_LOOP = 1000000
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
bmcip = getBMC_IP()
strracUrl = GetRACUrl()
Dim vAPI
Set vAPI = CreateObject("MOM.ScriptAPI")
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
If Instr(bmcip,".") > 0 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerBMC']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "BMC")
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerBMC']/BMCIPAddress$", bmcip)
call oDiscoveryData.AddInstance(oInst)
Else
msg = "No BMC object will be created"
End If
If Instr(strracUrl,".") > 0 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellDRAC']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
If Instr(strracUrl,"i") > 0 Then
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "iDRAC")
strracUrl = Replace(strracUrl,"i","")
Else
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "DRAC")
End If
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellDRAC']/DracURL$", strracUrl)
call oDiscoveryData.AddInstance(oInst)
Else
msg = "No RAC object will be created"
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Set vAPI = Nothing
Function getBMC_IP
Dim objItemBmcIP, colItems, objDellConnection, strComputer, sBmcQuery, sBmcIP, UpdateBMC_IP, GetBmcIP, LogMessage
strComputer="."
set objDellConnection = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\Dell")
If Err.Number <> 0 Then
LogMessage = "WMI Cimv2Dell Error Number : " & Err.Number & ". Description :" & Err.Description
UpdateBMC_IP = 0
Err.Clear
Else
If IsEmpty(objDellConnection) Then
LogMessage = "Unable to open WMI Namespace root-cimv2-dell. Check to see if the WMI service is enabled and running, and Install/Re-Install ServerAdministrator to ensure this WMI namespace exists. " & Err
UpdateBMC_IP = 0
Else
sBmcQuery = "Select * from Dell_RemoteAccessServicePort"
Set colItems = objDellConnection.ExecQuery(sBmcQuery)
If Err.Number <> 0 Then
LogMessage = sBmcQuery & " Error Number:" & Err.Number & "Description:" & Err.Description
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for namespace root-cimv2-dell"
UpdateBMC_IP = 0
End If
Err.Clear
End If
If colItems is Nothing Then
LogMessage = "Unable to retrieve RemoteAccessServicePort object"
Else
LogMessage = "RemoteAccessServicePort object retrieved successfully"
For Each objItemBmcIP in colItems
If Err.Number <> 0 Then
If Err.Number = -2147023169 Then
LogMessage = "RPC Failure occurred for cimv2\dell - bmc info : " & Err.Number
UpdateBMC_IP = 0
ElseIf Err.Number = -2147217389 Then
LogMessage = "If BMC present, Please Install/Re-Install ServerAdministrator on Dell Server : " & fqdn2 & Err.Number
Msg = 1
UpdateBMC_IP = 1
Else
LogMessage = "Object RetrievalLoop Error Number:" & Err.Number & "Description:" & Err.Description
UpdateBMC_IP = 0
End If
Err.Clear
End If
If Not objItemBmcIP is Nothing Then
sBmcIP = objItemBmcIP.AccessInfo
End If
Next
End If 'colItems is nothing
Set colItems = Nothing
End If 'dellconnection is noting
On Error GoTo 0
End If 'error on dellconnection
'Check sBmcIP values
If sBmcIP = "" Then
GetBmcIP = -1
If Msg <> 1 AND UpdateBMC_IP = 1 Then
LogMessage = "BMC physically not present for the Dell Server / Invalid Configuration of BMC / OMSA ReInstallation needed"
End If
Else ' if sBmcIP contains an ip
getBMC_IP = sBmcIP
End If
Set objItemBmcIP = Nothing
Set colItems = Nothing
Set objDellConnection = Nothing
End Function
'***************************************************************
' Function Additions for RAC
' Functions:
' ExecRacUrl() - Exec racadm and Parse StdOut
' RunRacUrl() - Run racadm and Parse File
' CheckVBScriptEngine() - Check VBScript Version
' GetRACADMPath() - Get racadm.exe path
' GetRACInstallRoot() - Get Drive letter of path
' bFileExists() - Check whether file exists
' HexToDec() - convert Hex to Decimal number
' MOMDebugLog() - Send LogMessage to MOMDebugLog
' GetPathParameter() - Get RACADM path and drive letter
' GetTempFolderPath() - Get Win Temp Folder path
' GetRACFileGUID() - Get 2 GUIDs for IP, Port File
'***************************************************************
Public Function GetRACUrl
Dim objAlert, strLaunchRACURL, RACAgentExist, strAlertDesc
Dim version, rc, rac, RegError, sRACUrl
Dim LogMessage, Message
RACAgentExist = 0
RacExitFlag = 0
sRACUrl = 0
Dim version1
version1 = CheckVBScriptEngine()'Check VBScript engine version
If version1 = True Then
' Exec , Read from Standard Output
rc = ExecRACURL (RACAgentExist, strLaunchRACURL)
If rc <> 0 Then
Message = "Main: ExecRACURL error : " & rc
RacExitFlag = 1
Exit Function
End If
ElseIf version1 = False Then
' Run , Redirect to file and Read from File
rc =RunRACURL (RACAgentExist, strLaunchRACURL)
If rc <> 0 Then
Message = "Main: RunRACURL error : " & rc
RacExitFlag = 1
Exit Function
End If
Else
Message = "CheckVBScriptEngine Error : " & version1
RacExitFlag = 1
Exit Function
End If
Message = "Main:RACURL (AgentExist,URL) - " & RACAgentExist & "," & strLaunchRACURL
If RacExitFlag = 0 Then
If RACAgentExist = 1 Then ' If RAC Agent exists
sRACUrl = strLaunchRACURL
End If
End If
Set objAlert = Nothing
Set strLaunchRACURL = Nothing
Set strAlertDesc = Nothing
Set rc = Nothing
GetRACUrl = sRACUrl
End Function
'*****************************************************************
' ExecRacUrl
' Routine to Exec Cmd and Read From Standard Output
'*****************************************************************
Function ExecRacUrl(ByRef RacAgent, ByRef RacUrl)
blsRacInstalled = 0 ' IP address Existence
blsRacGen4Plus = 0 ' Port Existence (subset of RacInstalled)
RegError = 0
a = 0
b = 0
Command10 = "racadm.exe getconfig -g cfgCurrentLanNetworking"
Command11 = "racadm.exe getconfig -g cfgLanNetworking"
Command2 = "racadm.exe getconfig -g cfgRacTuning"
Command3 = "racadm.exe getconfig -g idRacInfo"
GetPathParameter RacPath, drive
If RacExitFlag = 1 Then
ExecRacUrl = -1
Exit Function
End If
'''
Set WshShell = CreateObject("WScript.Shell")
Command3 = RacPath & "\" & Command3
Message = "ExecRacUrl: Cmd for RACType - " & Command3
Set oShell = WshShell.Exec(Command3)
WScript.Sleep(5000)
Do While oShell.Status <> 1
WScript.Sleep(0)
a = a + 1
b = a Mod WAIT_LOOP
If b = 0 Then
Message = "Exit ExecCmd. Reason: RACADM idRacInfo not responding for " & WAIT_LOOP & " loops."
oShell.Terminate()
Exit Do
End If
Loop
Set objStdOut = oShell.StdOut
If Not oShell.StdErr.AtEndOfStream Then
RacadmErrStream = "STDERR: " + oShell.StdErr.ReadAll
Message = "RACADM Standard Error - " & RacadmErrStream
ExecRacUrl = -1
Exit Function
Else
Do While Not objStdOut.AtEndOfStream
strLine = objStdOut.ReadLine
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for RACType " & strLine
ExecRacUrl = -1
Exit Function
ElseIf Instr(LCase(strLine),Lcase("idRacType")) Then
nPos = Instr(LCase(strLine), "=")
strRacType = Trim(strLine)
strRacType = Mid(strRacType,nPos+1,5)
strRacType = Trim(strRacType)
blsRacType = 1
Message = "Detected DRAC Type (hex)= " & strRacType
End If
Loop
End If
oShell.Terminate()
Set oShell = Nothing
Set WshShell = Nothing
If blsRacType = 1 Then
If Instr(Lcase(strRacType),"3") OR Instr(Lcase(strRacType),"4") OR Instr(Lcase(strRacType),"5") OR Instr(Lcase(strRacType),"7")Then
'Method1 for DRAC4 or below
Set WshShell = CreateObject("WScript.Shell")
Command10 = RacPath & "\" & Command10
Message = "ExecRacUrl: Cmd for IPAddress (DRAC4 or lesser) - " & Command10
Set oShell = WshShell.Exec(Command10)
WScript.Sleep(5000)
Do While oShell.Status <> 1
WScript.Sleep(0)
a = a + 1
b = a Mod WAIT_LOOP
If b = 0 Then
Message = "Exit ExecCmd. Reason: RACADM cfgCurrentlanNetworking not responding for " & WAIT_LOOP & " loops."
oShell.Terminate()
Exit Do
End If
Loop
Set objStdOut = oShell.StdOut
Do While Not objStdOut.AtEndOfStream
strLine = objStdOut.ReadLine
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for IPaddr (DRAC4 or lesser)" & strLine
ExecRacUrl = -1
Exit Function
End If
If Instr(LCase(strLine),Lcase("cfgNicCurrentIpAddress")) Then
nPos = Instr(LCase(strLine), "=")
strRacIpAddress = Trim(strLine)
strRacIpAddress = Mid(strRacIpAddress,nPos+1,16)
blsRacInstalled = 1
End If
Loop
oShell.Terminate()
Set oShell = Nothing
Set WshShell = Nothing
ElseIf (Instr(Lcase(strRacType),"6") OR Instr(Lcase(strRacType),"8")) Then
'Method2
Set WshShell2 = CreateObject("WScript.Shell")
Command11 = RacPath & "\" & Command11
Message = "ExecRacUrl: Cmd for IPAddress (DRAC5/iDRAC) - " & Command11
Set oShell2 = WshShell2.Exec(Command11)
WScript.Sleep(5000)
Do While oShell2.Status <> 1
WScript.Sleep(0)
a = a + 1
b = a Mod WAIT_LOOP
If b = 0 Then
Message = "Exit ExecCmd. Reason: RACADM cfgLanNetworking not responding for " & WAIT_LOOP & " loops."
oShell.Terminate()
Exit Do
End If
Loop
Set objStdOut2 = oShell2.StdOut
Do While Not objStdOut2.AtEndOfStream
strLine = objStdOut2.ReadLine
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for IPaddr " & strLine
ExecRacUrl = -1
Exit Function
End If
If Instr(LCase(strLine),Lcase("cfgNicIpAddress")) Then
nPos = Instr(LCase(strLine), "=")
strRacIpAddress = Trim(strLine)
strRacIpAddress = Mid(strRacIpAddress,nPos+1,16)
blsRacInstalled = 1
End If
Loop
oShell2.Terminate()
Set oShell2 = Nothing
Set WshShell2 = Nothing
Else ' When DRAC Type is nether 3,4,5,6,7
Message = "Unsupported DRAC Type = " & strRacType
End If
End If
'''
Set oShell = Nothing
Set objStdOut = Nothing
If blsRacInstalled = 1 Then
' If Command10 runs and IpAddress was found
Set WshShell = CreateObject("WScript.Shell")
Command2 = RacPath & "\" & Command2
Message = "ExecRacUrl: Cmd for PortNumber - " & Command2
Set oShell = WshShell.Exec(trim(Command2))
WScript.Sleep(5000)
Do While oShell.Status <> 1
WScript.Sleep(0)
a = a + 1
b = a Mod WAIT_LOOP
If b = 0 Then
Message = "Exit ExecCmd. Reason: RACADM port cmd not responding for " & WAIT_LOOP & " loops."
oShell.Terminate()
Exit Do
End If
Loop
Set objStdOut = oShell.StdOut
Do While Not objStdOut.AtEndOfStream
strLine = objStdOut.ReadLine
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for Port " & strLine
Exit Function
End If
If Instr(LCase(strLine),LCase("cfgRacTuneHttpsPort")) Then
nPos = Instr(LCase(strLine), "=")
strRacPortNumber= Trim(strLine)
If Instr(strRacPortNumber,"0x") Then
strRacPortNumber= Mid(strRacPortNumber,nPos+1+2,16) '+2 to compensate 0x
Message = "Hex httpsPort value from cfgRacTuning = " & strRacPortNumber
strRacPortNumber = HexToDec(strRacPortNumber)
Message = "Hex to Dec convert result in = " & strRacPortNumber
Else
strRacPortNumber= Mid(strRacPortNumber,nPos+1,16) '
Message = "RAC5Plus Decimal Port = " & strRacPortNumber
End If
blsRacGen4Plus = 1
End If
Loop
oShell.Terminate()
Set oShell = Nothing
Set WshShell = Nothing
If blsRacGen4Plus = 1 Then
strRACURL = "https://" & strRacIpAddress & ":" & strRacPortNumber
Else
strRACURL = "https://" & strRacIpAddress
End If
If Instr(strRacType,"8") Then
strRACURL = "i" & strRACURL
End If
End If ' If blsRacInstalled = 1
RacAgent = blsRacInstalled
RacUrl = strRACURL
Set objStdOut = Nothing
If Err <> 0 Then
ExecRacUrl = Err.Number
Message = "ExecRACUrl ErrorNo= " & Err.No & ", Description: " & Err.Desc
Err.Clear
End If
End Function
'**********************************************************
' CheckVBScriptEngine()
' Check VBScript engine version:
'**********************************************************
Function CheckVBScriptEngine()
Dim bIsCompatV, var
Const VBSCRIPT_MIN_VERSION = 5.6
Err.Clear
var = ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion
If (CInt(var)) < VBSCRIPT_MIN_VERSION Then
bIsCompatV = False
Else
bIsCompatV = True
End If
If Err <> 0 Then
CheckVBScriptEngine = Err.Number
Message = "VBScriptEngine Error = " & Err.Number
Else
CheckVBScriptEngine = bIsCompatV
End If
End Function
'*****************************************************************
'GetRacadmPath
'Routine to read the registry to query the OMSA Install Path
'*****************************************************************
Function GetRACADMPath(ByRef o_sPath)
Const DEF_RACADM_PATH = "C:\Program Files\Dell\OpenManage\RAC\MN"
Const RACADM_REG_INTALL_PATH = "HKEY_LOCAL_MACHINE\SOFTWARE\Dell Computer Corporation\OpenManage\Remote Access Card Managed Node\PATH"
Const RACADM64_REG_INTALL_PATH = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432node\Dell Computer Corporation\OpenManage\Remote Access Card Managed Node\PATH"
Dim strRacadmKey, tmp
strRacadmKey = RACADM_REG_INTALL_PATH
Set oShell = CreateObject ("WScript.Shell")
o_sPath = ""
On Error Resume Next
o_sPath = oShell.RegRead(strRacadmKey)
If o_sPath = "" Then
o_sPath = oShell.RegRead(RACADM64_REG_INTALL_PATH)
If Err <> 0 Then
Err.Clear
End If
End If
If o_sPath = "" Then
tmp = DEF_RACADM_PATH & "\racadm.exe"
If(bFileExists(tmp)) Then
o_sPath = DEF_RACADM_PATH
Message = "RACADM Registry is empty, Using Default Path" & DEF_RACADM_PATH
Err.Clear
Else
RegError = 1
End If
End If
If Err <> 0 Then
GetRACADMPath = Err.Number
End If
Set oShell = Nothing
End Function
'*****************************************************************
'GetOMInstallRoot
'Routine to determine the Drive letter where OMSA is installed
'*****************************************************************
Private Function GetRACInstallRoot(ByRef path, ByVal RACInstallPath)
On Error Resume Next
Err.Clear
' Return the root drive of the OMInstall Path
path = Left(RACInstallPath, 2)
If Err <> 0 Then
GetRACInstallRoot = Err.Number
End If
End Function
'*****************************************************************
' RunRacUrl
'Routine to use Run - Redirect to file and Read from File,Del File
'*****************************************************************
Function RunRacUrl(ByRef RacAgent, ByRef RacUrl)
RegError = 0
Const ForReading = 1
Dim guid1, guid2, guid3, guid4
Command10 = " getconfig -g cfgCurrentLanNetworking"
Command11 = " getconfig -g cfgLanNetworking"
Command2 = " getconfig -g cfgRacTuning"
Command3 = " getconfig -g idRacInfo"
blsRacInstalled = 0 ' will have IP address
blsRacGen4Plus = 0 ' will have Port (subset of RacInstalled)
GetPathParameter RacPath, drive
GetTempFolderPath wintemp_path, drive
GetRACFileGUID guid1, guid2
If RacExitFlag = 1 Then
Exit Function
End If
filespec = wintemp_path & "\" & guid1 & ".txt"
Command3 = "cmd /c " & chr(34) & RacPath & "\racadm.exe" & Chr(34) & Command3 & " > " & filespec
Message = "Run: Command for DRAC Type - " & Command3
Set oShell3 = CreateObject ("WScript.Shell")
rc = oShell3.run(Command3,0,true)
WScript.Sleep(5000)
Do While bFileExists(filespec) <> -1
WScript.Sleep(0)
Loop
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(filespec, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for idRacInfo " & strLine
rc = DelFile(filespec)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec
End If
RunRacUrl = -1
Exit Function 'Add MP22UT.X01
End If
If Instr(LCase(strLine),Lcase("idRacType")) Then
nPos = Instr(LCase(strLine), "=")
strRacType = Trim(strLine)
strRacType = Mid(strRacType,nPos+1,5)
strRacType = Trim(strRacType)
Message = "Detected DRAC Type (hex)= " & strRacType
blsRacType = 1
End If
Loop
Set oShell3 = Nothing
'Set objStdOut = Nothing
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
rc = DelFile(filespec)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec
End If
Set filespec = Nothing
'''''''
If blsRacType = 1 Then
GetRACFileGUID guid3, guid4
If Instr(Lcase(strRacType),"3") OR Instr(Lcase(strRacType),"4") OR Instr(Lcase(strRacType),"5") OR Instr(Lcase(strRacType),"7")Then
'Method1 for DRAC4 or below
filespec4 = wintemp_path & "\" & guid4 & ".txt"
'Set WshShell3 = CreateObject("WScript.Shell")
Command10 = "cmd /c " & chr(34) & RacPath & "\racadm.exe" & Chr(34) & Command10 & " > " & filespec4
Set oShell3 = CreateObject ("WScript.Shell")
rc = oShell3.run(Command10,0,true)
WScript.Sleep(5000)
Message = "IPADDR: RunRacUrl: Run " & Command10
' Loop Until file RAC1Guid.txt is created
Do While bFileExists(filespec4) <> -1
WScript.Sleep(0)
Loop
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(filespec4, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for IPaddr " & strLine
rc = DelFile(filespec4)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec4
End If
RunRacUrl = -1
Exit Function
End If
If Instr(LCase(strLine),Lcase("cfgNicCurrentIpAddress")) Then
nPos = Instr(LCase(strLine), "=")
strRacIpAddress = Trim(strLine)
strRacIpAddress = Mid(strRacIpAddress,nPos+1,16)
blsRacInstalled = 1
End If
Loop
Set oShell3 = Nothing
'Set objStdOut = Nothing
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
rc = DelFile(filespec4)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec4
End If
Set filespec4 = Nothing
ElseIf Instr(Lcase(strRacType),"6") Then
' Method for DRAC5
filespec5Plus = wintemp_path & "\" & guid3 & ".txt"
'Set WshShell3 = CreateObject("WScript.Shell")
Command11 = "cmd /c " & chr(34) & RacPath & "\racadm.exe" & Chr(34) & Command11 & " > " & filespec5Plus
Set oShell3 = CreateObject ("WScript.Shell")
rc = oShell3.run(Command11,0,true)
WScript.Sleep(5000)
' Infinite Loop Until file RAC3Guid.txt is created
Do While bFileExists(filespec5Plus) <> -1
WScript.Sleep(0)
Loop
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(filespec5Plus, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for IPaddr cfgLan " & strLine
rc = DelFile(filespec5Plus)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec5Plus
End If
RunRacUrl = -1
Exit Function
End If
If Instr(LCase(strLine),Lcase("cfgNicIpAddress")) Then
nPos = Instr(LCase(strLine), "=")
strRacIpAddress = Trim(strLine)
strRacIpAddress = Mid(strRacIpAddress,nPos+1,16)
blsRacInstalled = 1
End If
Loop
Set oShell3 = Nothing
'Set WshShell3 = Nothing
'Set objStdOut = Nothing
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
rc = DelFile(filespec5Plus)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec5Plus
End If
Set filespec5Plus = Nothing
' End of RAC5+ If clause
Else ' When DRAC Type is nether 3,4,5,6,7
Message = "Unsupported DRAC Type = " & strRacType
End If
Else
Message = "DRAC Type not found via idRacInfo command. "
End If ' End of blsRacType IF clause
' Output OMSA CLI to file RACGuid1.txt, wait until RUN Command is completed
' RAC5+ cfgLanNetworking in place of cfgCurrentLanNetworking (Invalid Group)
If blsRacInstalled = 1 Then
' If Command10/Command11 runs and IpAddress was found
Set oShell = CreateObject("WScript.Shell")
filespec = wintemp_path & "\" & guid2 & ".txt"
Command2 = "cmd /c " & chr(34) & RacPath & "\racadm.exe" & Chr(34) & Command2 & " > " & filespec
rc = oShell.run(Command2,0,true)
WScript.Sleep(5000)
If rc <> 0 Then
Message = "PORT: RunRacUrl: OShellRun ERROR: " & rc & " for " & Command2
rc = DelFile(filespec)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec
End If
Exit Function
Else
Message = "PORT: RunRacUrl: Run " & Command2
' Infinite Loop Until file RAC2Guid is created
Do While bFileExists(filespec) <> -1
WScript.Sleep(0)
Loop
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(filespec, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
RacAgent = 0
Message = "Error in Racadm Output for Port " & strLine
rc = DelFile(filespec)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec
End If
Exit Function
End If
If Instr(LCase(strLine),LCase("cfgRacTuneHttpsPort")) Then
nPos = Instr(LCase(strLine), "=")
strRacPortNumber= Trim(strLine)
If Instr(strRacPortNumber,"0x") Then
strRacPortNumber= Mid(strRacPortNumber,nPos+1+2,16) '+2 to compensate 0x
Message = "Hex httpsPort value from cfgRacTuning = " & strRacPortNumber
strRacPortNumber = HexToDec(strRacPortNumber)
Message = "Hex to Dec convert result in = " & strRacPortNumber
Else
strRacPortNumber= Mid(strRacPortNumber,nPos+1,16)
Message = "RAC5Plus decimal number = " & strRacPortNumber
End If
blsRacGen4Plus = 1
End If
Loop
oFile.close
'Clean up the CLI Output : Delete racGuid2.txt
rc = DelFile(filespec)
If rc <> 0 Then
Message = "Error! - DelFile " & filespec
End If
Set filespec = Nothing
End If 'PORT oShellCommand executed
Set oShell = Nothing
End If ' if blsRacInstalled = 1
If blsRacGen4Plus = 1 Then
strRACURL = "https://" & strRacIpAddress & ":" & strRacPortNumber
Else
strRACURL = "https://" & strRacIpAddress
End If
RacAgent = blsRacInstalled
RacUrl = strRACURL
If Err <> 0 Then
RunRacUrl = Err.Number
End If
End Function
'*****************************************************************
'bFileExists
'Routine to determine if the OMSA Report file is created
'*****************************************************************
Function bFileExists(ByVal filespec1)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
bFileExists = (fso.FileExists(filespec1))
Set fso = Nothing
End Function
'*****************************************************************
' HexToDec
' Routine to Convert Hex Number to Decimal value
'*****************************************************************
Function HexToDec(ByVal Number)
Dim lngResult,intIndex
Dim strDigit, intDigit, intValue
lngResult=0
For intIndex=len(Number) to 1 step -1
strDigit=Mid(Number,intIndex,1)
intDigit=Instr("0123456789ABCDEF",ucase(strDigit))-1
If intDigit>=0 Then
intValue=intDigit*(16^(len(Number)-intIndex))
lngResult=lngResult+intValue
Else
lngResult=0
int intIndex=0
End If
Next
Number=Trim(lngResult)
HexToDec = Number
End Function
'*****************************************************************
' Function MOMDebugLog
' Add LogMessage Header - ScriptName and Time and Logging it.
'*****************************************************************
Function MOMDebugLog (ByVal strMessage)
LogMessage = "(" & SCRIPT_NAME & ")" & "-" & "[" & Now() & "] --- "
LogMessage = LogMessage & strMessage
' ScriptContext.echo LogMessage
End Function
'*****************************************************************
'DeleteFile
'Routine to delete the OMSA Report file
'*****************************************************************
Function DelFile(ByVal filespec2)
Dim fso, oFile
If bFileExists(filespec2) Then
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile filespec2, True
Set fso = Nothing
Message = "OMREPORT Output File deleted - " & filespec2
End If
If Err <> 0 Then
DelFile = Err.Number
End If
End Function
'*****************************************************************
'GetPathParameter - Common to RunRacUrl and ExecRacUrl
'Routine to get RACADM path and drive letter
'*****************************************************************
Function GetPathParameter(ByRef o_racpath, ByRef o_drive)
Dim rac_path, drive_letter
rc = GetRACADMPath(rac_path)
If rc <> 0 Then
Message = "GetPathParameter:GetRACADMPath Error - " & rc
RacExitFlag = 1
Exit Function
Else
Message = "GetPathParameter:GetRACADMPath - " & rac_path
End If
rc = GetRACInstallRoot(drive_letter, rac_path)
If rc <> 0 Then
Message = "GetPathParameter:GetRACInstallRoot Error - " & rc
RacExitFlag = 1
Exit Function
Else
Message = "GetPathParameter:GetRACInstallRoot - " & drive_letter
End If
If RegError = 1 Then
Message = "RAC Hardware / Agent not installed on Server"
RacExitFlag = 1
Exit Function
End If
o_racpath = rac_path
o_drive = drive_letter
If Err <> 0 Then
GetPathParameter = Err.Number
End If
End Function
'*****************************************************************
'GetTempFolderPath
'Routine to Get Win Temp Folder path
'*****************************************************************
Function GetTempFolderPath(ByRef WinTempFolder, ByVal drive_letter)
Dim FldrExistFlag, fso
FldrExistFlag = False
dim wshShell : Set wshShell = Createobject("WScript.Shell")
dim wshSysEnv : Set wshSysEnv = wshShell.Environment
dim strSysTempFolder : strSysTempFolder = wshSysEnv("TEMP")
dim wshPrcEnv : Set wshPrcEnv = wshShell.Environment("Process")
strSysTempFolder = Replace(strSysTempFolder, "%SystemRoot%", wshPrcEnv("SYSTEMROOT"), 1, -1, vbTextCompare)
WinTempFolder = strSysTempFolder
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(WinTempFolder)) Then
FldrExistFlag = True
Else
FldrExistFlag = False
End If
If WinTempFolder = "" OR FldrExistFlag = False Then
WinTempFolder = drive_letter
End If
Message = "Current CLI output will be stored in Folder - " & WinTempFolder
Set wshShell = Nothing
Set wshSysEnv = Nothing
Set strSysTempFolder = Nothing
Set wshPrcEnv = Nothing
If Err <> 0 Then
GetTempFolderPath = Err.Number
End If
End Function
'*****************************************************************
'GetRACFileGUID
'Routine to generate 2 unique GUIDs for ip and port info files
'*****************************************************************
Function GetRACFileGUID(ByRef guid3, ByRef guid4)
Dim TypeLib, NewGUID
Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
guid3 = (left(NewGUID, len(NewGUID)-2))
Set TypeLib = Nothing
Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
guid4 = (left(NewGUID, len(NewGUID)-2))
Set TypeLib = Nothing
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellServerServicesDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Server Services Discovery
' Author: Vignesh Pandian
'
' Description:
' Discover all OpenManage Windows services for a Dell server with instrumentation.
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error Resume Next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
Dim ServiceFlag
Dim DSMEventMgrFlag, DSMDataMgrFlag, DSMConnServiceFlag, DSMSharedServicesFlag
Dim DSMEventMgrDesc, DSMDataMgrDesc, DSMConnServiceDesc, DSMSharedServicesDesc
Dim DSMEventMgrDispName, DSMDataMgrDispName, DSMConnServiceDispName, DSMSharedServicesDispName
Dim DSMEventMgrStartMode, DSMDataMgrStartMode, DSMConnServiceStartMode, DSMSharedServicesStartMode
Dim LogMessage, ErrorMessage
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
ServiceFlag = getOMServices()
If ServiceFlag=1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerServices']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "OMServices")
call oDiscoveryData.AddInstance(oInst)
' Call oAPI.LogScriptEvent("VigServices2True",999,1,"Executed" + DSMEventMgrDispName + DSMDataMgrDispName + DSMConnServiceDispName + DSMSharedServicesDispName)
If DSMEventMgrFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerServices.DSMEventManager']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", DSMEventMgrDispName)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMEventManager']/Description$", DSMEventMgrDesc)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMEventManager']/StartMode$", DSMEventMgrStartMode)
call oDiscoveryData.AddInstance(oInst)
End If
If DSMDataMgrFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerServices.DSMDataManager']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", DSMDataMgrDispName)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMDataManager']/Description$", DSMDataMgrDesc)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMDataManager']/StartMode$", DSMDataMgrStartMode)
call oDiscoveryData.AddInstance(oInst)
End If
If DSMConnServiceFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerServices.DSMConnService']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", DSMConnServiceDispName)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMConnService']/Description$", DSMConnServiceDesc)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMConnService']/StartMode$", DSMConnServiceStartMode)
call oDiscoveryData.AddInstance(oInst)
End If
If DSMSharedServicesFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ServerServices.DSMSharedServices']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", DSMSharedServicesDispName)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMSharedServices']/Description$", DSMSharedServicesDesc)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ServerServices.DSMSharedServices']/StartMode$", DSMSharedServicesStartMode)
call oDiscoveryData.AddInstance(oInst)
End If
Else
' Call oAPI.LogScriptEvent("VigServices2",999,1,"False")
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Function getOMServices
Dim strComputer, WbemServices, wbemObjectSet, wbemObject, sQuery, OMServicesFlag
strComputer="."
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If IsEmpty(WbemServices) Then
MOMDebugLog "Unable to open WMI Namespace root-cimv2. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
sQuery = "SELECT * FROM Win32_Service WHERE Name = 'omsad'"
Set wbemObjectSet = wbemServices.ExecQuery(sQuery)
If IsEmpty(wbemObjectSet) Or Err.Number <> 0 Then
MOMDebugLog "The Query '" & sQuery & "' returned an invalid result set. Please check to see if this is a valid WMI Query." & Err.Description
Else
For Each wbemObject In wbemObjectSet
If Err.Number <> 0 Then
ErrorMessage = "Win32_Service SubObjectQuery Error Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
Err.Clear
End If
DSMSharedServicesFlag = 1
DSMSharedServicesDispName = wbemObject.DisplayName
DSMSharedServicesDesc = wbemObject.Description
DSMSharedServicesStartMode = wbemObject.StartMode
Next
End If
Set wbemObjectSet = Nothing
sQuery = "SELECT * FROM Win32_Service WHERE Name = 'Server Administrator'"
Set wbemObjectSet = wbemServices.ExecQuery(sQuery)
If IsEmpty(wbemObjectSet) Or Err.Number <> 0 Then
MOMDebugLog "The Query '" & sQuery & "' returned an invalid result set. Please check to see if this is a valid WMI Query." & Err.Description
Else
For Each wbemObject In wbemObjectSet
If Err.Number <> 0 Then
ErrorMessage = "Win32_Service SubObjectQuery Error Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
Err.Clear
End If
DSMConnServiceFlag = 1
DSMConnServiceDispName = wbemObject.DisplayName
DSMConnServiceDesc = wbemObject.Description
DSMConnServiceStartMode = wbemObject.StartMode
Next
End If
Set wbemObjectSet = Nothing
sQuery = "SELECT * FROM Win32_Service WHERE Name = 'dcstor32'"
Set wbemObjectSet = wbemServices.ExecQuery(sQuery)
If IsEmpty(wbemObjectSet) Or Err.Number <> 0 Then
MOMDebugLog "The Query '" & sQuery & "' returned an invalid result set. Please check to see if this is a valid WMI Query." & Err.Description
Else
For Each wbemObject In wbemObjectSet
If Err.Number <> 0 Then
ErrorMessage = "Win32_Service SubObjectQuery Error Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
Err.Clear
End If
DSMDataMgrFlag = 1
DSMDataMgrDispName = wbemObject.DisplayName
DSMDataMgrDesc = wbemObject.Description
DSMDataMgrStartMode = wbemObject.StartMode
Next
End If
Set wbemObjectSet = Nothing
sQuery = "SELECT * FROM Win32_Service WHERE Name = 'dcevt32'"
Set wbemObjectSet = wbemServices.ExecQuery(sQuery)
If IsEmpty(wbemObjectSet) Or Err.Number <> 0 Then
MOMDebugLog "The Query '" & sQuery & "' returned an invalid result set. Please check to see if this is a valid WMI Query." & Err.Description
Else
For Each wbemObject In wbemObjectSet
If Err.Number <> 0 Then
ErrorMessage = "Win32_Service SubObjectQuery Error Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
Err.Clear
End If
DSMEventMgrFlag = 1
DSMEventMgrDispName = wbemObject.DisplayName
DSMEventMgrDesc = wbemObject.Description
DSMEventMgrStartMode = wbemObject.StartMode
Next
End If
Set wbemObjectSet = Nothing
End If
getOMServices = DSMEventMgrFlag OR DSMDataMgrFlag OR DSMConnServiceFlag OR DSMSharedServicesFlag
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellChassisDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Chassis Discovery
' Author: Muralidhar L
'
' Description:
' Discover all Chassis hardware components for a Dell server with instrumentation using CIM
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error Resume Next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim strComputer, WbemServices, wbemObjectSet, wbemObject, sQuery
Dim ChassisSerialNumber, FanFlag, PSFlag
strComputer="."
FanFlag = 0
PSFlag = 0
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\dell")
If IsEmpty(WbemServices) Then
MOMDebugLog "Unable to open WMI Namespace root-cimv2-dell. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
GetChassisSerialNumber()
DiscoverFans()
DiscoverPS()
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellChassis']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Chassis: " & ChassisSerialNumber)
call oDiscoveryData.AddInstance(oInst)
If FanFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ChassisFans']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Fans")
call oDiscoveryData.AddInstance(oInst)
End If
If PSFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ChassisPowerSupplies']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Power Supplies")
call oDiscoveryData.AddInstance(oInst)
End If
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Public Function GetChassisSerialNumber()
'Retrieving the Chassis Serial Number
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select SerialNumber from DELL_BaseBoard WHERE BaseboardType = '13'")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Chassis Serial Number"
MOMDebugLog (LogMessage)
Else
LogMessage = "Chassis Serial Number retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
ChassisSerialNumber = objItem.SerialNumber
End If
Next
LogMessage = "Chassis Serial Number : " & ChassisSerialNumber
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Function DiscoverFans()
'Retrieving Fan Units
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from CIM_Fan")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Chassis Fan Unit"
MOMDebugLog (LogMessage)
Else
LogMessage = "Chassis Fan Unit retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ChassisFansUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ChassisFansUnit']/DeviceID$", objItem.DeviceID)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItem.Name)
call oDiscoveryData.AddInstance(oInst)
FanFlag = 1
End If
Next
End If
Set wbemObjectSet = Nothing
End Function
Function DiscoverPS()
'Retrieving PS Units
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from CIM_PowerSupply")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Chassis Power supply unit"
MOMDebugLog (LogMessage)
Else
LogMessage = "Chassis power supply Unit retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem, TotalOutputPower
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
TotalOutputPower = objItem.TotalOutputPower
If (TotalOutputPower <= 0) Then
TotalOutputPower = "N/A"
Else
TotalOutputPower = TotalOutputPower/10
End If
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ChassisPowerSuppliesUnit']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ChassisPowerSuppliesUnit']/DeviceID$", objItem.DeviceID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ChassisPowerSuppliesUnit']/TotalOutputPower$", TotalOutputPower)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ChassisPowerSuppliesUnit']/IsSwitchingSupply$", objItem.IsSwitchingSupply)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", objItem.Name)
call oDiscoveryData.AddInstance(oInst)
PSFlag = 1
End If
Next
End If
Set wbemObjectSet = Nothing
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellStorageDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Storage Discovery
' Author: Muralidhar
'
' Description:
' Discover all storage components for a Dell server with instrumentation using OMSS ClI
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error Resume Next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Dim strComputer, WbemServices, wbemObjectSet
strComputer=TargetComputer
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Const WAIT_LOOP = 1000000
Const SCRIPT_NAME = "Dell Agents State Monitoring"
Const OM_REPORT_STORAGE_CONTR = "Storage"
Const DEF_OMSA_BIN_PATH = "C:\Program Files\Dell\OpenManage\oma\bin"
Const OMSA_REG_INTALL_PATH = "HKEY_LOCAL_MACHINE\SOFTWARE\Dell Computer Corporation\Dell OMA\InstallPath"
Const OMSA64_REG_INTALL_PATH = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Dell Computer Corporation\Dell OMA\InstallPath"
'Dell Hardware Instrumentation
Dim StorageStatus
Dim s
Set s = New DellStorage
s.DiscoverStorageControllers()
If s.StorageControllerFlag = 1 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellStorage']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Storage")
call oDiscoveryData.AddInstance(oInst)
' Submit the data
Call oAPI.Return(oDiscoveryData)
End If
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Class DellStorage
Dim arrServerStatus, arrStorageStatus
Dim StorageControllerFlag
Dim RegError, LogMessage, Message, Message1
Dim a, b
Dim strLine, rc, LogMesg
Dim fso, oFile, filespec
Dim oShell, WshShell, objStdOut
Dim strCommand, strRepFilePath, wintemp_path
Dim ParseStartPos, ParseEndPos
Dim Index, StatusIndex, StatusValue
Dim AttrFlag, ValueFlag, PrevStatus, StorageStatusValue
Dim g_omsaBinPath, g_drive, g_tempFolder
Function DiscoverStorageControllers()
Dim OMSABinPath ' Store Path from Registry key
Dim drive ' Drive letter
Dim version
RegError = 0
' Get OMSA Lib Path
rc = GetOMABinPath(OMSABinPath)
If rc <> 0 Then
' Message = "GetOMSAHealth:GetOMABinPath Error"
' MOMDebugLog Message
WScript.Quit()
Else
' Message = "GetOMSAHealth:OMSABinPath = " & OMSABinPath
' MOMDebugLog Message
End If
' Get Install root path
rc = GetOMInstallRoot(drive, OMSABinPath) ' return the current absolute path or the root path for the OMSA Install
If rc <> 0 Then
' Message = "GetOMSAHealth:GetOMInstallRoot Error"
' MOMDebugLog Message
WScript.Quit()
Else
' Message = "GetOMSAHealth:GetOMInstallRoot = " & drive
' MOMDebugLog Message
End If
If RegError = 1 Then
Message = "Task Fail: OMSA not installed / OMSA Registry Value not found."
MOMDebugLog Message
WScript.Quit()
End If
' Check VBScript engine version
version = CheckVBScriptEngine()
If version = True OR version = False Then
RunCLI drive, OMSABinPath
Else
Message = "Error: VBScript corrupted/absent. Please Re-Install Windows Script 5.6 on the Agent"
MOMDebugLog Message
WScript.Quit()
End If
End Function
'*****************************************************************
'Function RunCLI
'Routine For CLI VB.Run (For Version < 5.6)
'*****************************************************************
Function RunCLI(ByVal targetDrive, ByVal strOMSABinPath)
Dim guid1,guid3
GetTempFolderPath wintemp_path, targetDrive
GetOMReportFileGUID guid1
RunStorageCLI targetDrive, strOMSABinPath
End Function
'*****************************************************************
'GetOMABinPath
'Routine to read the registry to query the OMA Install Path
'*****************************************************************
Function GetOMABinPath(o_sPath)
Dim strOMAKey
Dim oShell, tmp
Set oShell = CreateObject ("WScript.Shell")
o_sPath = ""
On Error Resume Next
o_sPath = oShell.RegRead(OMSA_REG_INTALL_PATH)
If o_sPath = "" Then
o_sPath = oShell.RegRead(OMSA64_REG_INTALL_PATH)
End If
If o_sPath = "" Then
tmp = DEF_OMSA_BIN_PATH & "\omreport.exe"
If(bFileExists(tmp)) Then
o_sPath = DEF_OMSA_BIN_PATH
Message = "GetOMABinPath - OMSABinPath is empty, Using Default Existing Path" & DEF_OMSA_BIN_PATH
MOMDebugLog Message
Else
RegError = 1
End If
Else
o_sPath = o_sPath & "\bin"
End If
g_omsaBinPath = o_sPath
If Err <> 0 Then
GetOMSABinPath = Err.Number
End If
End Function
'*****************************************************************
'GetOMInstallRoot
'Routine to determine the Drive letter where OMSA is installed
'*****************************************************************
Private Function GetOMInstallRoot(ByRef path, ByVal OMSAInstallPath)
On Error Resume Next
Err.Clear
' Return the root drive of the OMInstall Path
path = Left(OMSAInstallPath, 2)
g_drive = path
End Function
'*****************************************************************
'bFileExists
'Routine to determine if the OMSA Report file is created
'*****************************************************************
Function bFileExists(filespec1)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
bFileExists = (fso.FileExists(filespec1))
Set fso = Nothing
End Function
'*****************************************************************
'DelFile
'Routine to delete the OMSA Report file
'*****************************************************************
Function DelFile(ByVal filespec2)
Dim fso, oFile
If bFileExists(filespec2) Then
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile filespec2, True
Set fso = Nothing
End If
If Err <> 0 Then
DelFile = Err.Number
End If
End Function
'**********************************************************
' CheckVBScriptEngine()
' Check VBScript engine version:
'**********************************************************
Function CheckVBScriptEngine()
Dim bIsCompatV, var
Const VBSCRIPT_MIN_VERSION = 5.6
var = ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion
If (CInt(var)) < VBSCRIPT_MIN_VERSION Then
bIsCompatV = False
Else
bIsCompatV = True
End If
If Err <> 0 Then
CheckVBScriptEngine = Err.Number
Else
CheckVBScriptEngine = bIsCompatV
End If
End Function
'*****************************************************************
'Function RunStorageCLI - Called from RunCLI If StorageArrayManagerFlag = 0
'Routine For VB.Run (For Version < 5.6)
'*****************************************************************
Function RunStorageCLI (ByVal Drive2, ByVal OMSABinPath)
Dim guid22
GetTempFolderPath wintemp_path, Drive2
GetOMReportFileGUID guid22
a = 1
b = 0
strRepFilePath = wintemp_path & "\" & OM_REPORT_STORAGE_CONTR & guid22 & ".txt"
strCommand = "cmd /C " & chr(34) & OMSABinPath & "\" & "omreport.exe" & Chr(34) & " storage controller -fmt ssv -outc " & strRepFilePath
filespec = strRepFilePath
Set oShell = CreateObject ("WScript.Shell")
rc = oShell.run (strCommand,0,true)
If rc <> 0 Then
DelFile(strRepFilePath)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(filespec) <> -1
WScript.Sleep(0)
a = a + 1
b = a Mod WAIT_LOOP
If b = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
' Parse TXT File
ParseStorageFile filespec
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(strRepFilePath)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set strRepFilePath = Nothing
Set strCommand = Nothing
Set oShell = Nothing
Set filespec = Nothing
End Function
'*****************************************************************
' Function ParseStorageFile
' Rollup GlobalStorageHealth from OMSS StorageController TXT Output
'*****************************************************************
Function ParseStorageFile(ByVal storagefilepath)
Dim objFSO, objFile, strLine, strTempLine, strLineSearchCriteria, valueArray, valueSeperator
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(storagefilepath)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(storagefilepath, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
If (UBound(valueArray) <> 21) Then
strTempLine = objFile.ReadLine
strLine = strLine & strTempLine
valueArray = split(strLine, valueSeperator, -1)
End If
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellStorageController']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/SlotID$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/State$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/FirmwareVer$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/MinReqFirmwareVer$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DriverVer$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/MinReqDriverVer$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/NumOfConnectors$", valueArray(9))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/RebuildRate$", valueArray(10))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/BGIRate$", valueArray(11))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/CheckConsistencyRate$", valueArray(12))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/ReConstructRate$", valueArray(13))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/AlarmState$", valueArray(14))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/ClusterMode$", valueArray(15))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/SCSIInitiatorID$", valueArray(16))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/CacheMemorySize$", valueArray(17))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/PatrolReadMode$", valueArray(18))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/PatrolReadState$", valueArray(19))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/PatrolReadRate$", valueArray(20))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/PatrolReadIterations$", valueArray(21))
call oDiscoveryData.AddInstance(oInst)
StorageControllerFlag = 1
DiscoverControllerBattery valueArray(0)
DiscoverControllerConnector valueArray(0)
DiscoverControllerVirtualDisk valueArray(0)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & storagefilepath
MOMDebugLog Message
End If
End Function
'*****************************************************************
' Function MOMDebugLog
' Add LogMessage Header - ScriptName and Time and Logging it.
'*****************************************************************
Function MOMDebugLog (ByVal strMessage)
LogMessage = "(" & SCRIPT_NAME & ")" & "-" & "[" & Now() & "] --- "
LogMessage = LogMessage & strMessage
End Function
'*****************************************************************
'GetTempFolderPath
'Routine to Get Win Temp Folder path
'*****************************************************************
Function GetTempFolderPath(ByRef WinTempFolder, ByVal drive_letter)
Dim FldrExistFlag, fso
FldrExistFlag = False
dim wshShell : Set wshShell = Createobject("WScript.Shell")
dim wshSysEnv : Set wshSysEnv = wshShell.Environment
dim strSysTempFolder : strSysTempFolder = wshSysEnv("TEMP")
dim wshPrcEnv : Set wshPrcEnv = wshShell.Environment("Process")
strSysTempFolder = Replace(strSysTempFolder, "%SystemRoot%", wshPrcEnv("SYSTEMROOT"), 1, -1, vbTextCompare)
WinTempFolder = strSysTempFolder
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(WinTempFolder)) Then
FldrExistFlag = True
Else
FldrExistFlag = False
End If
If WinTempFolder = "" OR FldrExistFlag = False Then
WinTempFolder = drive_letter
End If
g_tempFolder = WinTempFolder
Set wshShell = Nothing
Set wshSysEnv = Nothing
Set strSysTempFolder = Nothing
Set wshPrcEnv = Nothing
If Err <> 0 Then
GetTempFolderPath = Err.Number
End If
End Function
'*****************************************************************
'GetOMReportFileGUID
'Routine to generate unique GUIDs for OMREPORT FILE
'*****************************************************************
Function GetOMReportFileGUID(ByRef o_guid)
Dim TypeLib, NewGUID
Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
o_guid = (left(NewGUID, len(NewGUID)-2))
Set TypeLib = Nothing
End Function
Function DiscoverControllerBattery (ByVal controllerID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "_battery.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage battery controller=" & controllerID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ControllerBattery']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/RechargeCount$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/MaxRechargeCount$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/PredictedCapacityStatus$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/LearnState$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/NextLearnTime$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerBattery']/MaxLearnDelay$", valueArray(9))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverControllerVirtualDisk (ByVal controllerID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "_vdisk.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage vdisk controller=" & controllerID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/Progress$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/Layout$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/Size$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/DeviceName$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/Type$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/ReadPolicy$", valueArray(9))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/WritePolicy$", valueArray(10))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/CachePolicy$", valueArray(11))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerVirtualDisk']/StripeElementSize$", valueArray(12))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverControllerConnector (ByVal controllerID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "_connector.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage connector controller=" & controllerID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ControllerConnector']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ConnectorType$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/Termination$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/SCSIRate$", valueArray(6))
call oDiscoveryData.AddInstance(oInst)
DiscoverEnclosure controllerID, valueArray(0)
DiscoverConnectorPhysicalDisk controllerID, valueArray(0)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverEnclosure (ByVal controllerID, ByVal connectorID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "_enclosure.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage enclosure controller=" & controllerID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
If (StrComp(Trim(connectorID), Trim(valueArray(4))) = 0) Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ControllerEnclosure']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/Connector$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/TargetID$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/Configuration$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/FirmwareVersion$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ServiceTag$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/AssetTag$", valueArray(9))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/AssetName$", valueArray(10))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/BackplanePartNum$", valueArray(11))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/SplitbusPartNum$", valueArray(12))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/EnclosurePartNum$", valueArray(13))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/SASAddress$", valueArray(14))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/EnclosureAlarm$", valueArray(15))
call oDiscoveryData.AddInstance(oInst)
DiscoverEnclosurePhysicalDisk controllerID, connectorID, valueArray(0)
DiscoverTemperature controllerID, connectorID, valueArray(0)
DiscoverFan controllerID, connectorID, valueArray(0)
DiscoverPowerSupply controllerID, connectorID, valueArray(0)
DiscoverEMM controllerID, connectorID, valueArray(0)
End If
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverEnclosurePhysicalDisk (ByVal controllerID, ByVal connectorID, ByVal enclosureID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "enclosure_pdisk.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage pdisk controller=" & controllerID & " connector=" & connectorID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
Dim tempArray, tempSeperator, tempEnclosureID, encIDArray
tempSeperator = ":"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
tempArray = split(valueArray(0), tempSeperator, -1)
If (UBound(tempArray) = 2) Then
encIDArray = split(enclosureID, tempSeperator, -1)
If (UBound(encIDArray) = 1) Then
tempEnclosureID = encIDArray(1)
Else
tempEnclosureID = encIDArray(0)
End If
If (StrComp(Trim(tempEnclosureID), Trim(tempArray(1))) = 0) Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", enclosureID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/FailurePredicted$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/Progress$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/Type$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/Capacity$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/UsedRaidDiskSpace$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/AvailableRaidDiskSpace$", valueArray(9))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/HotSpare$", valueArray(10))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/VendorID$", valueArray(11))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/ProductID$", valueArray(12))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/Revision$", valueArray(13))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/SerialNumber$", valueArray(14))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/NegotiatedSpeed$", valueArray(15))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/CapableSpeed$", valueArray(16))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/ManufactureDay$", valueArray(17))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/ManufactureWeek$", valueArray(18))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/ManufactureYear$", valueArray(19))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePhysicalDisk']/SASAddress$", valueArray(20))
call oDiscoveryData.AddInstance(oInst)
End If
End If
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverConnectorPhysicalDisk (ByVal controllerID, ByVal connectorID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "_connector_pdisk.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage pdisk controller=" & controllerID & " connector=" & connectorID & " -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
Dim tempArray, tempSeperator
tempSeperator = ":"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
tempArray = split(valueArray(0), tempSeperator, -1)
If (UBound(tempArray) <> 2) Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/FailurePredicted$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/Progress$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/Type$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/Capacity$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/UsedRaidDiskSpace$", valueArray(8))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/AvailableRaidDiskSpace$", valueArray(9))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/HotSpare$", valueArray(10))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/VendorID$", valueArray(11))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/ProductID$", valueArray(12))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/Revision$", valueArray(13))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/SerialNumber$", valueArray(14))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/NegotiatedSpeed$", valueArray(15))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/CapableSpeed$", valueArray(16))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/ManufactureDay$", valueArray(17))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/ManufactureWeek$", valueArray(18))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/ManufactureYear$", valueArray(19))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ConnectorPhysicalDisk']/SASAddress$", valueArray(20))
call oDiscoveryData.AddInstance(oInst)
End If
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverTemperature (ByVal controllerID, ByVal connectorID, ByVal enclosureID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "enclosure_temps.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage enclosure controller=" & controllerID & " enclosure=" & enclosureID & " info=temps -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.EnclosureTemperature']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", enclosureID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/Reading$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/MinWarningThreshold$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/MaxWarningThreshold$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/MinFailureThreshold$", valueArray(7))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureTemperature']/MaxFailureThreshold$", valueArray(8))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverFan (ByVal controllerID, ByVal connectorID, ByVal enclosureID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "enclosure_fans.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage enclosure controller=" & controllerID & " enclosure=" & enclosureID & " info=fans -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.EnclosureFan']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", enclosureID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureFan']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureFan']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureFan']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureFan']/PartNumber$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureFan']/Speed$", valueArray(5))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverPowerSupply (ByVal controllerID, ByVal connectorID, ByVal enclosureID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "enclosure_ps.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage enclosure controller=" & controllerID & " enclosure=" & enclosureID & " info=pwrsupplies -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.EnclosurePowerSupply']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", enclosureID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePowerSupply']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePowerSupply']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePowerSupply']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosurePowerSupply']/PartNumber$", valueArray(4))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
Function DiscoverEMM (ByVal controllerID, ByVal connectorID, ByVal enclosureID)
Dim file_path, command, file_spec, x, y, o_Shell, result
Dim objFSO, objFile, strLine, strLineSearchCriteria, valueArray, valueSeperator
x = 1
y = 0
file_path = g_tempFolder & "\" & OM_REPORT_STORAGE_CONTR & "controller_" & controllerID & "enclosure_emms.txt"
command = "cmd /C " & chr(34) & g_omsaBinPath & "\" & "omreport.exe" & Chr(34) & " storage enclosure controller=" & controllerID & " enclosure=" & enclosureID & " info=emms -fmt ssv -outc " & file_path
file_spec = file_path
Set o_Shell = CreateObject ("WScript.Shell")
result = o_Shell.run (command,0,true)
If result <> 0 Then
DelFile(file_path)
Else
' Infinite Loop Until file OM_REPORT_FILE_NAME is created
Do While bFileExists(file_spec) <> -1
WScript.Sleep(0)
x = x + 1
y = x Mod WAIT_LOOP
If y = 0 Then
MOMDebugLog "Exit RunCmd. Reason: OMREPORT STORAGE not responding for " & WAIT_LOOP & " loops."
Exit Do
End If
Loop
strLineSearchCriteria = "ID;"
valueSeperator = ";"
If(bFileExists(file_spec)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (IsObject(objFSO) = True) Then
Set objFile = objFSO.OpenTextFile(file_spec, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If (InStr(strLine, strLineSearchCriteria) = 1) Then
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
valueArray = split(strLine, valueSeperator, -1)
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.EnclosureEMM']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellStorageController']/DeviceID$", controllerID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerConnector']/ID$", connectorID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.ControllerEnclosure']/ID$", enclosureID)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/ID$", valueArray(0))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/Status$", valueArray(1))
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", valueArray(2))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/State$", valueArray(3))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/PartNumber$", valueArray(4))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/FirmwareVersion$", valueArray(5))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/SCSIRate$", valueArray(6))
call oInst.AddProperty("$MPElement[Name='Dell.Connections.EnclosureEMM']/Type$", valueArray(7))
call oDiscoveryData.AddInstance(oInst)
Loop
End If
Loop
objFile.Close
Else
Message = "Error: FileSystem object not created using CreateObject - Scripting.FileSystemObject"
MOMDebugLog Message
End If
Set objFSO = Nothing
Else
Message = "Storage CLI TXT Output File does not exist - " & file_spec
MOMDebugLog Message
End If
' Clean up the CLI Output : Delete OM_REPORT_FILE_NAME for STORAGE
DelFile(file_path)
End If ' End of If Condition for rc<>0 for oshell.run(omreport storage controller)
Set file_path = Nothing
Set command = Nothing
Set o_Shell = Nothing
Set file_spec = Nothing
End Function
End Class
300System!System.Discovery.Data$Config/IntervalSeconds$DellSystemDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell System Discovery
' Author: Muralidhar L
'
' Description:
' Progressive discovery from Microsoft.Win.Computer to Dell System based on BIOS manufacturer (using CIM)
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error resume next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim strComputer, WbemServices, wbemObjectSet, wbemObject, sQuery
Dim Manufacturer
strComputer="."
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If IsEmpty(WbemServices) Then
MOMDebugLog "Unable to open WMI Namespace root-cimv2. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
GetManufacturerName()
If Instr(Manufacturer, "Dell") Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellSystem']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oDiscoveryData.AddInstance(oInst)
End If
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Public Function GetManufacturerName ()
'Retrieving ManufactuferName
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("select * from win32_bios")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) or (IsNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve Manufacturer"
MOMDebugLog (LogMessage)
Else
LogMessage = "Manufacturer Name retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
Manufacturer = objItem.Manufacturer
End If
Next
End If
Set wbemObjectSet = Nothing
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellServerDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Server Discovery
' Author: Muralidhar L
'
' Description:
' Progressive discovery from DellSystem to DellServer using CIM and adding attributes.
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
On Error resume next
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer,LogMessage
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim strComputer, WbemServices, wbemObjectSet, wbemObject, sQuery
Dim arrURL, arrURL1
Dim Model, AssetTag, ServiceTag, OperatingSystem,OperatingSystemVersion, OMSAURL, BIOSVersion, OMSAVersion, IPMIVersion
Dim IPAddresses, TOECapable, TOEEnable, RequiredOMSAVersion
strComputer="."
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If IsEmpty(WbemServices) Then
LogMessage = "Unable to open WMI Namespace root-cimv2. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
Dim tModel
GetSystemModelType()
tModel = Model
Model = LCase(Model)
If ((Instr(Model, "poweredge")) OR (Instr(Model, "powervault"))) Then
GetCIM_OperatingSystemAttributes()
GetCIM_OperatingSystemType()
GetWin32_BIOSAttributes()
GetIPAddress()
On Error Resume Next
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\dell")
If Err.Number = -2147217394 Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellUnknown']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", "Unknown: " & TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Name$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Description$", "Please install OMSA 5.3 or above from support.dell.com")
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", TargetComputer)
call oDiscoveryData.AddInstance(oInst)
Err.Clear
Else
If IsEmpty(WbemServices) Then
LogMessage = "Unable to open WMI Namespace root-cimv2-dell. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
GetDell_SoftwareFeatureAttributes()
RequiredOMSAVersion = "5.3"
If OMSAVersion<RequiredOMSAVersion Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellUnknown']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", "Unknown: " & TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Name$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Description$", "Please upgrade OMSA to 5.3 or above from support.dell.com")
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", TargetComputer)
call oDiscoveryData.AddInstance(oInst)
Else
GetDell_ChassisAttributes()
GetDell_RemoteAccessServicePortAttributes()
GetDell_NetworkPortAttributes()
CollectESMlogEvent()
If AssetTag="" Then
AssetTag = "Not Available"
End If
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellServer']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/IPAddress$", IPAddresses)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/OMSAURL$", OMSAURL)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/AssetTag$", AssetTag)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/ServiceTag$", ServiceTag)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/Model$", tModel)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/OperatingSystem$", OperatingSystem)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/OperatingSystemVersion$", OperatingSystemVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/BiosVersion$", BIOSVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/OMSAVersion$", OMSAVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/IPMIVersion$", IPMIVersion)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/TOECapable$", TOECapable)
call oInst.AddProperty("$MPElement[Name='Dell.Connections.DellServer']/TOEEnable$", TOEEnable)
call oDiscoveryData.AddInstance(oInst)
End If
End If
End If
On Error Goto 0
End If
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Public Function GetDell_NetworkPortAttributes ()
'Retrieving TOE Attributes
On Error resume next
TOECapable = ""
TOEEnable = ""
Set wbemObjectSet = wbemServices.ExecQuery("Select * from DELL_NetworkPort")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) or (IsNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve TOE Attributes"
MOMDebugLog (LogMessage)
Else
LogMessage = "TOE Attributes retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
TOECapable = objItem.NicTOECapability
TOEEnable = objItem.IsTOEEnable
If TOECapable = "0" Then
TOECapable = "None"
ElseIf TOECapable = "1" Then
TOECapable = "Unknown"
ElseIf TOECapable = "2" Then
TOECapable = "Available"
ElseIf TOECapable = "4" Then
TOECapable = "Not Available"
ElseIf TOECapable = "8" Then
TOECapable = "Can't be determined"
ElseIf TOECapable = "16" Then
TOECapable = "Driver Not Responding"
End If
End If
Next
LogMessage = "TOECapable : " & TOECapable & " TOEEnable : " & TOEEnable
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetIPAddress ()
'Retrieving the IP Address
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) or (IsNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve IP address of the system"
MOMDebugLog (LogMessage)
Else
LogMessage = "IP address object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemIPAddress
Dim STR
IPAddresses = ""
For Each objItemIPAddress in wbemObjectSet
'Error Handling
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemIPAddress is nothing Then
If isarray(objItemIPAddress.IPAddress) Then
For each STR in objItemIPAddress.IPAddress
If ((STR <> "") AND (STR <> "0.0.0.0")) Then
If IPAddresses = "" Then
IPAddresses = STR
Else
IPAddresses = IPAddresses & ", " & STR
End If
End If
Next
End If
End If
Next
LogMessage = "Function: IP address(es) of the system : " & IPAddresses
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetSystemModelType ()
' Retrieving the System Model Type
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_ComputerSystem")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) or (IsNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve system model type information"
MOMDebugLog (LogMessage)
Else
LogMessage = "System model type object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemModel
For Each objItemModel in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemModel is nothing Then
Model = objItemModel.Model
End If
Next
LogMessage = "Function: Dell System Model : " & Model
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetDell_SoftwareFeatureAttributes ()
'Retrieving Dell_SoftwareFeature Attributes
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("select * from Dell_SoftwareFeature")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Dell_SoftwareFeature Attributes"
MOMDebugLog (LogMessage)
Else
LogMessage = "Dell_SoftwareFeature attributes retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
arrURL = Split(objItem.OmsaURL, ",")
arrURL1 = Split(arrURL(0), "?")
OMSAURL = Trim(arrURL1(0))
OMSAVersion = objItem.Version
End If
Next
LogMessage = "OMSA URL : " & OMSAURL & " OMSA Version : " & OMSAVersion
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetDell_ChassisAttributes ()
'Retrieving the Dell_Chassis Attributes
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Dell_Chassis")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Dell_Chassis Attributes"
MOMDebugLog (LogMessage)
Else
LogMessage = "Dell_Chassis Attributes retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
AssetTag = objItem.AssetTag
ServiceTag = objItem.SerialNumber
End If
Next
LogMessage = "Asset Tag : " & AssetTag & " Service Tag : " & ServiceTag
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetCIM_OperatingSystemAttributes()
' Retrieving the Operating System
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from CIM_OperatingSystem")
'Code for adding Storage Server in OS Name
Dim regOSProductSuiteName,objShell,arrOSProductSuiteName,ProductSuiteStrValue
regOSProductSuiteName = "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductSuite"
Set objShell = CreateObject("WScript.Shell")
arrOSProductSuiteName = objShell.RegRead(regOSProductSuiteName)
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) Or (isNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve Operating system information"
MOMDebugLog (LogMessage)
Else
LogMessage = "Operating system object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemOperatingSystem
For Each objItemOperatingSystem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemOperatingSystem is nothing Then
OperatingSystem = objItemOperatingSystem.Caption
Dim OperatingSystemVersionArray
OperatingSystemVersionArray=split(objItemOperatingSystem.Version,".")
OperatingSystemVersion = "Version " & OperatingSystemVersionArray(0) & "." & OperatingSystemVersionArray(1) &" (Build " & OperatingSystemVersionArray(2) & ":" & objItemOperatingSystem.CSDVersion & ")"
'Code for adding Storage Server in OS Name
if Not isnull(arrOSProductSuiteName) Then
For Each ProductSuiteStrValue in arrOSProductSuiteName
If Instr(ProductSuiteStrValue,"Storage") And Instr(OperatingSystem,"Server 2003") Then
OperatingSystem = Replace(OperatingSystem,"Server 2003","Storage Server 2003")
Exit For
End If
Next
End If
End If
Next
LogMessage = "Function: Dell Server OS : " & OperatingSystem
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetCIM_OperatingSystemType()
' Retrieving the Operating System Type
On Error resume next
Dim wbemObjectSet_CIM_ComputerSystem
Set wbemObjectSet_CIM_ComputerSystem = wbemServices.ExecQuery("Select * from CIM_ComputerSystem")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet_CIM_ComputerSystem is Nothing) Or (isNull(wbemObjectSet_CIM_ComputerSystem)) Then
LogMessage = "Unable to retrieve Computer System information"
MOMDebugLog (LogMessage)
Else
LogMessage = "Computer System object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemComputerSystem
For Each objItemComputerSystem in wbemObjectSet_CIM_ComputerSystem
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemComputerSystem is nothing Then
if Instr(LCase(objItemComputerSystem.SystemType), "x86") Then
OperatingSystemVersion = OperatingSystemVersion & " (x86)"
End if
if Instr(LCase(objItemComputerSystem.SystemType), "x64") Then
OperatingSystemVersion = OperatingSystemVersion & " (x64)"
End if
End If
Next
End If
if Instr(OperatingSystem,"Server") And Instr(OperatingSystem,"2008") Then
'to check if the Operating System is Server Core / Full Installation
GetLonghornVersion()
End if
Set wbemObjectSet = Nothing
End Function
Public Function GetLonghornVersion()
On Error resume next
Dim wbemObjectSet_WIN32_OperatingSystem
Set wbemObjectSet_WIN32_OperatingSystem = wbemServices.ExecQuery("Select * from Win32_OperatingSystem")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet_WIN32_OperatingSystem is Nothing) Or (isNull(wbemObjectSet_WIN32_OperatingSystem)) Then
LogMessage = "Unable to retrieve Operating System information"
MOMDebugLog (LogMessage)
Else
LogMessage = "Operating System object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemOperatingSystem
For Each objItemOperatingSystem in wbemObjectSet_WIN32_OperatingSystem
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemOperatingSystem is nothing Then
Dim OS_SKU
OS_SKU = objItemOperatingSystem.OperatingSystemSKU
if (OS_SKU=12) or (OS_SKU=13) or (OS_SKU=14) Then
OperatingSystemVersion = OperatingSystemVersion & " Server Core Installation"
Else
OperatingSystemVersion = OperatingSystemVersion & " Server Full Installation"
End if
End If
Next
End If
End Function
Public Function GetWin32_BIOSAttributes()
On Error resume next
'Retrieving the BIOSVersion
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_BIOS")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) Or (isNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve BIOSVersion information"
MOMDebugLog (LogMessage)
Else
LogMessage = "BIOSVersion object retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemBIOSVersion
For Each objItemBIOSVersion in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemBIOSVersion is nothing Then
BIOSVersion = objItemBIOSVersion.SMBIOSBIOSVersion
End If
Next
LogMessage = "Function: BIOS Version : " & BIOSVersion
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function GetDell_RemoteAccessServicePortAttributes()
On Error resume next
'Retrieving IPMI Version
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Dell_RemoteAccessServicePort")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If (wbemObjectSet is Nothing) Or (isNull(wbemObjectSet)) Then
LogMessage = "Unable to retrieve IPMI Version"
MOMDebugLog (LogMessage)
Else
LogMessage = "IPMI Version retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItemIPMIVersion
For Each objItemIPMIVersion in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItemIPMIVersion is nothing Then
IPMIVersion = objItemIPMIVersion.VersionString
End If
Next
LogMessage = "Function: IPMI Version : " & IPMIVersion
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Function CollectESMlogEvent()
Dim wbemServicesESM,OutputFileName,OutputFolderName
OutputFileName = "C:\DellReports\dellesm.log"
OutputFolderName = "C:\DellReports\"
On Error resume next
Set wbemServicesESM = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\dell")
Set wbemObjectSet = wbemServicesESM.ExecQuery("Select * from DELL_EsmLog")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
On Error Goto 0
Err.Clear
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve ESM Log"
MOMDebugLog (LogMessage)
Else
LogMessage = "ESM Log retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
On Error Resume Next
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
WriteToFile OutputFolderName,OutputFileName,objItem.LogRecord
End If
Next
On Error Goto 0
End If
Set wbemObjectSet = Nothing
End Function
Public Function WriteToFile(strFolderName,strFileName,strMsg)
Dim objFSO, objTextFile, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
If not objFSO.FolderExists(strFolderName) Then
objFSO.CreateFolder (strFolderName)
End If
Set objFSO = nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFileName) Then
Else
Set objFile = objFSO.CreatetextFile(strFileName)
End If
Set objFile = Nothing
Const ForAppending = 8
Set objTextFile = objFSO.OpentextFile(strFileName, ForAppending, True)
objTextFile.WriteLine(strMsg)
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
End Function
Function MOMDebugLog (ByVal str1)
End Function
300System!System.Discovery.Data$Config/IntervalSeconds$DellServerClassificationDiscovery.vbs$MPElement$ $Target/Id$ $Config/Computer$
'**********************************************************************************
' Script Name - Dell Server Classification Discovery
' Author: Muralidhar L
'
' Description:
' Classify Dell Monolithic and Modular Servers using CIM
'
' (c) Copyright Dell Inc. 2007 - All rights reserved
'**********************************************************************************
Option Explicit
Dim oArgs
Set oArgs = WScript.Arguments
if oArgs.Count < 3 Then
Wscript.Quit -1
End If
Dim SourceID, ManagedEntityId, TargetComputer
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
Dim oAPI, oDiscoveryData, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim strComputer, WbemServices, wbemObjectSet, wbemObject, sQuery
Dim BaseBoardType, DescModel
strComputer="."
Set WbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2\dell")
If IsEmpty(WbemServices) Then
MOMDebugLog "Unable to open WMI Namespace root-cimv2-dell. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists." & Err.Description
Else
GetBaseBoardType()
AddModelDesc()
If (BaseboardType = "13") Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellModularBlade']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Name$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Description$", "Dell Modular Blade - " & DescModel)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oDiscoveryData.AddInstance(oInst)
ElseIf (BaseboardType = "10") Then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Dell.Connections.DellMonolithicServer']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/DeviceID$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Name$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.LogicalDevice']/Description$", "Dell Monolithic Server - " & DescModel)
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oDiscoveryData.AddInstance(oInst)
End If
End If
' Submit the data
Call oAPI.Return(oDiscoveryData)
Set oDiscoveryData = Nothing
Set oAPI = Nothing
Public Function GetBaseBoardType ()
'Retrieving the BaseBoardType
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from DELL_Baseboard")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve BaseBoardType"
MOMDebugLog (LogMessage)
Else
LogMessage = "Base board type retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
BaseBoardType = objItem.BaseboardType
End If
Next
LogMessage = "BaseBoardType : " & BaseBoardType
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
Public Function AddModelDesc ()
'Retrieving the ModelType
On Error resume next
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Dell_Chassis")
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
If wbemObjectSet is Nothing Then
LogMessage = "Unable to retrieve Dell_Chassis"
MOMDebugLog (LogMessage)
Else
LogMessage = "Dell_chassis retrieved successfully"
MOMDebugLog (LogMessage)
Dim objItem
For Each objItem in wbemObjectSet
'Error checking
If Err.Number <> 0 Then
ErrorMessage = "Number:" & Err.Number & "Description:" & Err.Description
MOMDebugLog (ErrorMessage)
End If
'Object Retrieval
If not objItem is nothing Then
DescModel = objItem.Model
End If
Next
LogMessage = "ModelType : " & DescModel
MOMDebugLog (LogMessage)
End If
Set wbemObjectSet = Nothing
End Function
300System!System.Discovery.DataSystem!System.Discovery.MapperSchemaSystem!System.ExpressionEvaluatorSchema300$Config/IPStart$$Config/IPEnd$$Config/CommunityString$$Config/Timeout$$Config/OIDProps$$Config/Expression$$Config/ClassId$$Config/InstanceSettings$System!System.Discovery.DataSystem!System.Discovery.MapperSchemaSystem!System.ExpressionEvaluatorSchema300$Config/IPStart$$Config/IPEnd$$Config/CommunityString$$Config/Timeout$$Config/OIDProps$$Config/Expression$$Config/ClassId$$Config/InstanceSettings$System!System.Discovery.DataSystem!System.ExpressionEvaluatorSchema$Config/ComputerName$$Config/LogName$$Config/EventExpression$$Config/ScriptName$$Config/Arguments$$Config/ScriptBody$$Config/TimeoutSeconds$$Config/SuccessExpression$$Config/WarningExpression$$Config/CriticalExpression$$Config/Interval$false$Config/IP$$Config/CommunityString$$Config/SnmpVarBinds$SnmpVarBinds/SnmpVarBind[1]/ValueEqual3SnmpVarBinds/SnmpVarBind[1]/ValueEqual5SnmpVarBinds/SnmpVarBind[1]/ValueEqual4$Config/Interval$false$Config/IP$$Config/CommunityString$$Config/SnmpVarBinds$SnmpVarBinds/SnmpVarBind[1]/ValueEqual2SnmpVarBinds/SnmpVarBind[1]/ValueEqual5SnmpVarBinds/SnmpVarBind[1]/ValueEqual3$Config/Interval$false$Config/IP$$Config/CommunityString$$Config/SnmpVarBinds$SnmpVarBinds/SnmpVarBind[1]/ValueEqual3SnmpVarBinds/SnmpVarBind[1]/ValueEqual5SnmpVarBinds/SnmpVarBind[1]/ValueEqual4Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellServerGroup"]$$MPElement[Name="DellHWGroup.Contains.DellServerGroup"]$$MPElement[Name="Dell.Connections.DellPrinterGroup"]$$MPElement[Name="DellHWGroup.Contains.DellPrinterGroup"]$$MPElement[Name="Dell.Connections.DellUnknownGroup"]$$MPElement[Name="DellHWGroup.Contains.DellUnknownGroup"]$Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellMonolithicServerGroup"]$$MPElement[Name="DellServerGroup.Contains.DellMonolithicServerGroup"]$$MPElement[Name="Dell.Connections.DellModularSystemGroup"]$$MPElement[Name="DellServerGroup.Contains.DellModularSystemGroup"]$$MPElement[Name="Dell.Connections.OOB_DRAC_Group"]$$MPElement[Name="DellServerGroup.Contains.DellOOB_DRAC_Group"]$$MPElement[Name="Dell.Connections.OOB_CMC_Group"]$$MPElement[Name="DellServerGroup.Contains.DellOOB_CMC_Group"]$Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellUnknown"]$$MPElement[Name="DellUnknownGroup.Contains.DellUnknown"]$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellMonolithicServer"]$$MPElement[Name="DellMonolithicServerGroup.Contains.DellMonolithicServer"]$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellModularBlade"]$$MPElement[Name="DellModularSystemGroup.Contains.DellModularBlade"]$Discovery$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/CommunityString$300.1.3.6.1.2.1.43.11.1.1.6.1.1.1.3.6.1.2.1.43.11.1.1.5.1.1.1.3.6.1.2.1.43.11.1.1.9.1.1.1.3.6.1.2.1.43.11.1.1.8.1.1.1.3.6.1.2.1.43.8.2.1.14.1.1.1.3.6.1.2.1.43.8.2.1.15.1.1.1.3.6.1.2.1.43.8.2.1.18.1.1.1.3.6.1.2.1.43.8.2.1.9.1.1.1.3.6.1.2.1.43.8.2.1.13.1.4.1.3.6.1.2.1.43.9.2.1.8.1.1.1.3.6.1.2.1.43.9.2.1.9.1.1.1.3.6.1.2.1.43.9.2.1.12.1.1.1.3.6.1.2.1.43.9.2.1.4.1.1.1.3.6.1.2.1.43.9.2.1.7.1.1.1.3.6.1.2.1.43.6.1.1.2.1.1.1.3.6.1.2.1.43.6.1.1.3.1.1.1.3.6.1.2.1.25.3.2.1.5.1.1.3.6.1.2.1.1.5.0.1.3.6.1.2.1.1.1.0.1.3.6.1.2.1.1.4.0.1.3.6.1.2.1.1.6.0.1.3.6.1.2.1.1.2.0.1.3.6.1.2.1.2.1.0$MPElement[Name="Dell.Connections.DellPrinter"]$$MPElement[Name="Dell.Connections.DellPrinter"]/Status$$data/SnmpVarBinds/SnmpVarBind[7]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/SupplyType$$data/SnmpVarBinds/SnmpVarBind[22]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/SupplyDescription$$data/SnmpVarBinds/SnmpVarBind[23]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/SupplyLevel$$data/SnmpVarBinds/SnmpVarBind[21]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/SupplyMaxLevel$$data/SnmpVarBinds/SnmpVarBind[20]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/InputName$$data/SnmpVarBinds/SnmpVarBind[15]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/InputVendorName$$data/SnmpVarBinds/SnmpVarBind[19]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/InputModel$$data/SnmpVarBinds/SnmpVarBind[18]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/InputDescription$$data/SnmpVarBinds/SnmpVarBind[17]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/InputMaxCapacity$$data/SnmpVarBinds/SnmpVarBind[16]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/OutputName$$data/SnmpVarBinds/SnmpVarBind[10]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/OutputVendorName$$data/SnmpVarBinds/SnmpVarBind[14]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/OutputModel$$data/SnmpVarBinds/SnmpVarBind[13]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/OutputDescription$$data/SnmpVarBinds/SnmpVarBind[12]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/OutputMaxCapacity$$data/SnmpVarBinds/SnmpVarBind[11]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/CoverDescription$$data/SnmpVarBinds/SnmpVarBind[9]/Value$$MPElement[Name="Dell.Connections.DellPrinter"]/CoverStatus$$data/SnmpVarBinds/SnmpVarBind[8]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/Name$$data/SnmpVarBinds/SnmpVarBind[6]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/SystemDescription$$data/SnmpVarBinds/SnmpVarBind[5]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/SystemContact$$data/SnmpVarBinds/SnmpVarBind[4]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/SystemLocation$$data/SnmpVarBinds/SnmpVarBind[3]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/SystemOID$$data/SnmpVarBinds/SnmpVarBind[2]/Value$SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.100.1.1094471969SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.51.1094472978SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.236.11.5.1SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.51.1094472982SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.11.2.3.9.1SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.641.1SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.100.1.1094472232SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.3SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.51.1094473222SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.1SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.51.1094473221SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.52.1094473223SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.10898.10.2SnmpVarBinds/SnmpVarBind[2]/ValueContainsSubstring1.3.6.1.4.1.674.100.1.1094471968Discovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DellPrinter"]$$MPElement[Name="DellPrinterGroup.Contains.DellPrinter"]$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery21600$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$Discovery$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/CommunityString$300.1.3.6.1.2.1.1.1.0.1.3.6.1.2.1.1.2.0.1.3.6.1.2.1.1.3.0.1.3.6.1.2.1.1.5.0.1.3.6.1.4.1.674.10892.2.1.1.1.0.1.3.6.1.4.1.674.10892.2.1.1.2.0.1.3.6.1.4.1.674.10892.2.1.1.3.0.1.3.6.1.4.1.674.10892.2.1.1.4.0.1.3.6.1.4.1.674.10892.2.1.1.5.0.1.3.6.1.4.1.674.10892.2.1.1.7.0.1.3.6.1.4.1.674.10892.2.1.1.11.0.1.3.6.1.4.1.674.10892.2.1.2.1.0$MPElement[Name="Dell.Connections.DRAC_5"]$$MPElement[Name="Dell.Connections.DRAC_5"]/FirmwareVer$$data/SnmpVarBinds/SnmpVarBind[1]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/SysServiceTag$$data/SnmpVarBinds/SnmpVarBind[2]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdUrl$$data/SnmpVarBinds/SnmpVarBind[3]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdVer$$data/SnmpVarBinds/SnmpVarBind[4]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdManf$$data/SnmpVarBinds/SnmpVarBind[5]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdDesc$$data/SnmpVarBinds/SnmpVarBind[6]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdShortName$$data/SnmpVarBinds/SnmpVarBind[7]/Value$$MPElement[Name="Dell.Connections.DRAC_5"]/ProdName$$data/SnmpVarBinds/SnmpVarBind[8]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$MPElement[Name="Dell.Connections.DRAC_5"]/System_UpTime$$data/SnmpVarBinds/SnmpVarBind[10]/Value$SnmpVarBinds/SnmpVarBind[11]/ValueContainsSubstring1.3.6.1.4.1.8072.3.2.10SnmpVarBinds/SnmpVarBind[7]/ValueContainsSubstringDRACDiscovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DRAC_5"]$$MPElement[Name="OOB_DRAC_Group.Contains.DRAC_5"]$Discovery$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/CommunityString$300.1.3.6.1.2.1.1.1.0.1.3.6.1.2.1.1.2.0.1.3.6.1.2.1.1.3.0.1.3.6.1.2.1.1.5.0.1.3.6.1.4.1.674.10892.2.1.1.1.0.1.3.6.1.4.1.674.10892.2.1.1.2.0.1.3.6.1.4.1.674.10892.2.1.1.3.0.1.3.6.1.4.1.674.10892.2.1.1.4.0.1.3.6.1.4.1.674.10892.2.1.1.5.0.1.3.6.1.4.1.674.10892.2.1.1.7.0.1.3.6.1.4.1.674.10892.2.1.1.6.0.1.3.6.1.4.1.674.10892.2.1.2.1.0$MPElement[Name="Dell.Connections.DRACMC"]$$MPElement[Name="Dell.Connections.DRACMC"]/FirmwareVer$$data/SnmpVarBinds/SnmpVarBind[1]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/SysServiceTag$$data/SnmpVarBinds/SnmpVarBind[2]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdUrl$$data/SnmpVarBinds/SnmpVarBind[3]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdVer$$data/SnmpVarBinds/SnmpVarBind[4]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdManf$$data/SnmpVarBinds/SnmpVarBind[5]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdDesc$$data/SnmpVarBinds/SnmpVarBind[6]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdShortName$$data/SnmpVarBinds/SnmpVarBind[7]/Value$$MPElement[Name="Dell.Connections.DRACMC"]/ProdName$$data/SnmpVarBinds/SnmpVarBind[8]/Value$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$MPElement[Name="Dell.Connections.DRACMC"]/System_UpTime$$data/SnmpVarBinds/SnmpVarBind[10]/Value$SnmpVarBinds/SnmpVarBind[11]/ValueContainsSubstring1.3.6.1.4.1.674.10892.2SnmpVarBinds/SnmpVarBind[7]/ValueContainsSubstringMCDiscovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.DRACMC"]$$MPElement[Name="OOB_DRAC_Group.Contains.DRACMC"]$Discovery$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/CommunityString$300.1.3.6.1.4.1.674.10892.2.3.1.9.0.1.3.6.1.2.1.1.5.0.1.3.6.1.2.1.1.1.0.1.3.6.1.2.1.1.4.0.1.3.6.1.2.1.1.6.0.1.3.6.1.2.1.1.2.0.1.3.6.1.2.1.2.1.0.1.3.6.1.4.1.674.10892.2.1.1.1.0.1.3.6.1.4.1.674.10892.2.1.1.2.0.1.3.6.1.4.1.674.10892.2.1.1.3.0.1.3.6.1.4.1.674.10892.2.1.1.4.0.1.3.6.1.4.1.674.10892.2.1.1.5.0.1.3.6.1.4.1.674.10892.2.1.1.6.0.1.3.6.1.4.1.674.10892.2.1.1.7.0.1.3.6.1.4.1.674.10892.2.1.1.8.0.1.3.6.1.4.1.674.10892.2.1.2.1.0$MPElement[Name="Dell.Connections.CMC"]$$MPElement[Name="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$Target/Property[Type="NetworkDevice!Microsoft.SystemCenter.NetworkDevice"]/IPAddress$$MPElement[Name="Dell.Connections.CMC"]/Name$$data/SnmpVarBinds/SnmpVarBind[9]/Value$$MPElement[Name="Dell.Connections.CMC"]/ShortProductName$$data/SnmpVarBinds/SnmpVarBind[8]/Value$$MPElement[Name="Dell.Connections.CMC"]/Description$$data/SnmpVarBinds/SnmpVarBind[7]/Value$$MPElement[Name="Dell.Connections.CMC"]/Manufacturer$$data/SnmpVarBinds/SnmpVarBind[6]/Value$$MPElement[Name="Dell.Connections.CMC"]/Version$$data/SnmpVarBinds/SnmpVarBind[5]/Value$$MPElement[Name="Dell.Connections.CMC"]/ServiceTag$$data/SnmpVarBinds/SnmpVarBind[4]/Value$$MPElement[Name="Dell.Connections.CMC"]/OOBURL$$data/SnmpVarBinds/SnmpVarBind[3]/Value$$MPElement[Name="Dell.Connections.CMC"]/ChassisName$$data/SnmpVarBinds/SnmpVarBind[2]/Value$$MPElement[Name="Dell.Connections.CMC"]/Firmware$$data/SnmpVarBinds/SnmpVarBind[1]/Value$SnmpVarBinds/SnmpVarBind[6]/ValueContainsSubstringDellSnmpVarBinds/SnmpVarBind[9]/ValueContainsSubstringChassis Management ControllerDiscovery$MPElement$$Target/Id$$MPElement[Name="Dell.Connections.CMC"]$$MPElement[Name="OOB_CMC_Group.Contains.CMC"]$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2048PublisherNameEqualServer Administrator12Dell OMSS Device failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2049PublisherNameEqualServer Administrator11Dell OMSS Physical Disk removed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2050PublisherNameEqualServer Administrator11Dell OMSS Physical disk offline$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2051PublisherNameEqualServer Administrator11Dell OMSS Physical disk degraded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2054PublisherNameEqualServer Administrator11Dell OMSS Virtual disk deleted$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2056PublisherNameEqualServer Administrator12Dell OMSS Virtual disk failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2057PublisherNameEqualServer Administrator11Dell OMSS Virtual disk degraded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2076PublisherNameEqualServer Administrator12Dell OMSS Virtual disk check consistency failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2077PublisherNameEqualServer Administrator12Dell OMSS Virtual disk format failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2079PublisherNameEqualServer Administrator12Dell OMSS Virtual disk initialization failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2080PublisherNameEqualServer Administrator12Dell OMSS Physical disk initialize failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2081PublisherNameEqualServer Administrator12Dell OMSS Virtual disk reconfiguration failed $Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2082PublisherNameEqualServer Administrator12Dell OMSS Virtual disk rebuild failed $Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2083PublisherNameEqualServer Administrator12Dell OMSS Physical disk rebuild failed $Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2094PublisherNameEqualServer Administrator11Dell OMSS Predictive failure reported$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2100PublisherNameEqualServer Administrator11Dell OMSS Temperature max warning threshold exceed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2101PublisherNameEqualServer Administrator11Dell OMSS Temperature below min warning threshold$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2102PublisherNameEqualServer Administrator12Dell OMSS Temperature max failure threshold exceed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2103PublisherNameEqualServer Administrator12Dell OMSS Temperature below min failure threshold$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2106PublisherNameEqualServer Administrator11Dell OMSS Smart FPT exceeded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2107PublisherNameEqualServer Administrator12Dell OMSS Smart config change$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2108PublisherNameEqualServer Administrator11Dell OMSS Smart warning$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2109PublisherNameEqualServer Administrator11Dell OMSS Smart warning temperature$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2110PublisherNameEqualServer Administrator11Dell OMSS Smart warning degraded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2111PublisherNameEqualServer Administrator11Dell OMSS Failure prediction threshold exceeded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2112PublisherNameEqualServer Administrator12Dell OMSS Enclosure was shutdown$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2120PublisherNameEqualServer Administrator11Dell OMSS Enclosure firmware mismatch$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2122PublisherNameEqualServer Administrator11Dell OMSS Redundancy degraded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2123PublisherNameEqualServer Administrator11Dell OMSS Redundancy lost$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2129PublisherNameEqualServer Administrator12Dell OMSS BGI failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2131PublisherNameEqualServer Administrator11Dell OMSS Firmware version mismatch$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2132PublisherNameEqualServer Administrator11Dell OMSS Driver version mismatch$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2135PublisherNameEqualServer Administrator11Dell OMSS Array Manager is installed on the system$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2137PublisherNameEqualServer Administrator11Dell OMSS Communication timeout$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2145PublisherNameEqualServer Administrator11Dell OMSS Controller battery low$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2146PublisherNameEqualServer Administrator11Dell OMSS Bad block replacement error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2147PublisherNameEqualServer Administrator11Dell OMSS Bad block sense error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2148PublisherNameEqualServer Administrator11Dell OMSS Bad block medium error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2149PublisherNameEqualServer Administrator11Dell OMSS Bad block extended sense error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2150PublisherNameEqualServer Administrator11Dell OMSS Bad block extended medium error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2163PublisherNameEqualServer Administrator12Dell OMSS Rebuild completed with errors$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2165PublisherNameEqualServer Administrator11Dell OMSS RAID controller config file can't be opened.$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2166PublisherNameEqualServer Administrator11Dell OMSS RAID controller config file out of date or corrupted$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2167PublisherNameEqualServer Administrator11Dell OMSS Current kernel and SCSI driver version are older$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2168PublisherNameEqualServer Administrator11Dell OMSS Non-RAID SCSI driver version is older$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2169PublisherNameEqualServer Administrator12Dell OMSS Controller battery needs to be replaced$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2171PublisherNameEqualServer Administrator11Dell OMSS Controller battery temperature is above normal$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2173PublisherNameEqualServer Administrator11Dell OMSS Unsupported configuration detected$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2174PublisherNameEqualServer Administrator11Dell OMSS Controller battery has been removed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2178PublisherNameEqualServer Administrator11Dell OMSS Controller battery Learn cycle timed out$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2182PublisherNameEqualServer Administrator12Dell OMSS Invalid SAS configuration detected$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2186PublisherNameEqualServer Administrator11Dell OMSS Controller cache has been discarded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2187PublisherNameEqualServer Administrator11Dell OMSS Single-bit ECC error limit exceeded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2191PublisherNameEqualServer Administrator12Dell OMSS Multiple enclosures are attached to the controller$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2201PublisherNameEqualServer Administrator11Dell OMSS Global hot spare failed. $Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2203PublisherNameEqualServer Administrator11Dell OMSS Dedicated hot spare failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2206PublisherNameEqualServer Administrator11Dell OMSS Only hot spare available is a SATA disk$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2207PublisherNameEqualServer Administrator11Dell OMSS Only hot spare available is a SAS disk$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2211PublisherNameEqualServer Administrator11Dell OMSS Physical disk is not supported$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2213PublisherNameEqualServer Administrator11Dell OMSS Recharge count maximum exceeded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2246PublisherNameEqualServer Administrator11Dell OMSS Controller battery degraded$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2264PublisherNameEqualServer Administrator11Dell OMSS Device is missing$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2265PublisherNameEqualServer Administrator11Dell OMSS Device is in an unknown state$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2268PublisherNameEqualServer Administrator12Dell OMSS Storage Management has lost communication with the controller$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2270PublisherNameEqualServer Administrator12Dell OMSS Physical disk Clear operation failed$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$Alert$Target/Property[Type="Windows!Microsoft.Windows.LogicalDevice"]/DeviceID$SystemEventDisplayNumberEqual2272PublisherNameEqualServer Administrator12Dell OMSS Patrol Read found an uncorrectable media error$Data/EventDescription$$Data/EventDisplayNumber$$Data/Channel$$Data/PublisherName$$Data/LoggingComputer$$Data/EventCategory$$Data/EventLevel$$Data/UserName$$Data/EventNumber$$Data/EventDescription$