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)