Dell Chassis detailed discovery will discover chassis components that are a part of Dell chassis. Configure RunAs Accounts for the profile "Dell CMC Login Account" and associate it with Dell Chassis Management Controller (CMC) Objects.
Knowledge Base article:
Summary
Dell Chassis detailed discovery will discover chassis components that are a part of Dell chassis. Configure RunAs Accounts for the profile "Dell CMC Login Account" and associate it with Dell Chassis Management Controller (CMC) Objects.
Function getRemoteSetting()
Dim Port, Encoding, SkipCACheck, SkipCNCheck, SkipRevocationCheck, Authentication, Timeout
If DebugScript = False Then
Port = WsManProtocolParametersObj.getDefaultPort()
Encoding =WsManProtocolParametersObj.getDefaultEncoding()
SkipCACheck = WsManProtocolParametersObj.getDefaultSkipCACheck()
SkipCNCheck = WsManProtocolParametersObj.getDefaultSkipCNCheck()
SkipRevocationCheck = WsManProtocolParametersObj.getDefaultSkipRevocationCheck()
Authentication = WsManProtocolParametersObj.getDefaultAuthentication()
Timeout = WsManProtocolParametersObj.getDefaultTimeOut()
Else
Port = "443"
Encoding = "UTF-8"
SkipCACheck = "True"
SkipCNCheck = "True"
SkipRevocationCheck = "True"
Authentication = "Basic"
Timeout = "300"
End If
getRemoteSetting = Port & ";" & Encoding & ";" & SkipCACheck & ";" & SkipCNCheck & ";" & SkipRevocationCheck & ";" & Authentication & ";" & TimeOut
End Function
'#################################################################################################################################
</TemplateScriptConfiguration>
<ProfileDictionaryScript>
'#################################################################################################################################
'**************************************************************************************************
'ProfileDictionaryCreator code
'**************************************************************************************************
Class ProfileDictionaryCreator
Private profileInfoDict
Private Sub Class_Initialize
Set profileInfoDict = CreateObject("Scripting.Dictionary")
profileInfoDict.CompareMode = vbTextCompare
End Sub
Public Function GetProfileDictionary()
Set GetProfileDictionary = profileInfoDict
End Function
Public Function populateStorageProfileDictionary()
log.MOMDebugLog 1, "Entered PopualteProfileDictionary"
Dim Dell_Server_Storage_Controller_Obj
Set Dell_Server_Storage_Controller_Obj = New ProfileInformation
Dell_Server_Storage_Controller_Obj.setProfileName("Dell.Chassis.Storage.Controller")
Dim Dell_Server_Storage_Controller_FQDD
Set Dell_Server_Storage_Controller_FQDD = New AttributeProperty
Dell_Server_Storage_Controller_FQDD.setProtocol("wsman")
Dell_Server_Storage_Controller_FQDD.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_FQDD.setProtocolAttributeName("FQDD")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_FQDD)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("FQDD")
Dim Dell_Server_Storage_Controller_CacheMemorySize
Set Dell_Server_Storage_Controller_CacheMemorySize = New AttributeProperty
Dell_Server_Storage_Controller_CacheMemorySize.setProtocol("wsman")
Dell_Server_Storage_Controller_CacheMemorySize.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_CacheMemorySize.setProtocolAttributeName("CacheSizeInMB")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_CacheMemorySize)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("CacheMemorySize")
Dim Dell_Server_Storage_Controller_FirmwareVersion
Set Dell_Server_Storage_Controller_FirmwareVersion = New AttributeProperty
Dell_Server_Storage_Controller_FirmwareVersion.setProtocol("wsman")
Dell_Server_Storage_Controller_FirmwareVersion.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_FirmwareVersion.setProtocolAttributeName("ControllerFirmwareVersion")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_FirmwareVersion)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("FirmwareVersion")
Dim Dell_Server_Storage_Controller_Manufacturer
Set Dell_Server_Storage_Controller_Manufacturer = New AttributeProperty
Dell_Server_Storage_Controller_Manufacturer.setProtocol("wsman")
Dell_Server_Storage_Controller_Manufacturer.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_Manufacturer.setProtocolAttributeName("DeviceCardManufacturer")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_Manufacturer)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("Manufacturer")
Dim Dell_Server_Storage_Controller_SlotLength
Set Dell_Server_Storage_Controller_SlotLength = New AttributeProperty
Dell_Server_Storage_Controller_SlotLength.setProtocol("wsman")
Dell_Server_Storage_Controller_SlotLength.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SlotLength.setProtocolAttributeName("DeviceCardSlotLength")
Dell_Server_Storage_Controller_SlotLength.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_SlotLength.setAttributeValueMapping "3", "Short"
Dell_Server_Storage_Controller_SlotLength.setAttributeValueMapping "4", "Long"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SlotLength)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SlotLength")
Dim Dell_Server_Storage_Controller_SlotType
Set Dell_Server_Storage_Controller_SlotType = New AttributeProperty
Dell_Server_Storage_Controller_SlotType.setProtocol("wsman")
Dell_Server_Storage_Controller_SlotType.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SlotType.setProtocolAttributeName("DeviceCardSlotType")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SlotType)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SlotType")
Dim Dell_Server_Storage_Controller_DriverVersion
Set Dell_Server_Storage_Controller_DriverVersion = New AttributeProperty
Dell_Server_Storage_Controller_DriverVersion.setProtocol("wsman")
Dell_Server_Storage_Controller_DriverVersion.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_DriverVersion.setProtocolAttributeName("DriverVersion")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_DriverVersion)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("DriverVersion")
Dim Dell_Server_Storage_Controller_EncryptionCapability
Set Dell_Server_Storage_Controller_EncryptionCapability = New AttributeProperty
Dell_Server_Storage_Controller_EncryptionCapability.setProtocol("wsman")
Dell_Server_Storage_Controller_EncryptionCapability.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_EncryptionCapability.setProtocolAttributeName("EncryptionCapability")
Dell_Server_Storage_Controller_EncryptionCapability.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_EncryptionCapability.setAttributeValueMapping "0", "None"
Dell_Server_Storage_Controller_EncryptionCapability.setAttributeValueMapping "1", "Local Key Management Capable"
Dell_Server_Storage_Controller_EncryptionCapability.setAttributeValueMapping "2", "Dell Key Management Capable"
Dell_Server_Storage_Controller_EncryptionCapability.setAttributeValueMapping "3", "Local Key Management and Dell Key Management Capable"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_EncryptionCapability)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("EncryptionCapability")
Dim Dell_Server_Storage_Controller_HighAvailabilityMode
Set Dell_Server_Storage_Controller_HighAvailabilityMode = New AttributeProperty
Dell_Server_Storage_Controller_HighAvailabilityMode.setProtocol("wsman")
Dell_Server_Storage_Controller_HighAvailabilityMode.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_HighAvailabilityMode.setProtocolAttributeName("HighAvailabilityMode")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_HighAvailabilityMode)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("HighAvailabilityMode")
Dim Dell_Server_Storage_Controller_SPercSlot
Set Dell_Server_Storage_Controller_SPercSlot = New AttributeProperty
Dell_Server_Storage_Controller_SPercSlot.setProtocol("wsman")
Dell_Server_Storage_Controller_SPercSlot.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SPercSlot.setProtocolAttributeName("PCISlot")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SPercSlot)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SPercSlot")
Dim Dell_Server_Storage_Controller_PatrolReadState
Set Dell_Server_Storage_Controller_PatrolReadState = New AttributeProperty
Dell_Server_Storage_Controller_PatrolReadState.setProtocol("wsman")
Dell_Server_Storage_Controller_PatrolReadState.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_PatrolReadState.setProtocolAttributeName("PatrolReadState")
Dell_Server_Storage_Controller_PatrolReadState.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_PatrolReadState.setAttributeValueMapping "0", "Unknown"
Dell_Server_Storage_Controller_PatrolReadState.setAttributeValueMapping "1", "Stopped"
Dell_Server_Storage_Controller_PatrolReadState.setAttributeValueMapping "2", "Running"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_PatrolReadState)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("PatrolReadState")
Dim Dell_Server_Storage_Controller_ProductName
Set Dell_Server_Storage_Controller_ProductName = New AttributeProperty
Dell_Server_Storage_Controller_ProductName.setProtocol("wsman")
Dell_Server_Storage_Controller_ProductName.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_ProductName.setProtocolAttributeName("ProductName")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_ProductName)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("ProductName")
Dim Dell_Server_Storage_Controller_SecurityStatus
Set Dell_Server_Storage_Controller_SecurityStatus = New AttributeProperty
Dell_Server_Storage_Controller_SecurityStatus.setProtocol("wsman")
Dell_Server_Storage_Controller_SecurityStatus.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SecurityStatus.setProtocolAttributeName("SecurityStatus")
Dell_Server_Storage_Controller_SecurityStatus.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_SecurityStatus.setAttributeValueMapping "0", "Unknown"
Dell_Server_Storage_Controller_SecurityStatus.setAttributeValueMapping "1", "Encryption Capable"
Dell_Server_Storage_Controller_SecurityStatus.setAttributeValueMapping "2", "Security Key Assigned"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SecurityStatus)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SecurityStatus")
Dim Dell_Server_Storage_Controller_CachecadeCapability
Set Dell_Server_Storage_Controller_CachecadeCapability = New AttributeProperty
Dell_Server_Storage_Controller_CachecadeCapability.setProtocol("wsman")
Dell_Server_Storage_Controller_CachecadeCapability.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_CachecadeCapability.setProtocolAttributeName("CachecadeCapability")
Dell_Server_Storage_Controller_CachecadeCapability.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_CachecadeCapability.setAttributeValueMapping "0", "Not supported"
Dell_Server_Storage_Controller_CachecadeCapability.setAttributeValueMapping "1", "Supported"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_CachecadeCapability)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("CachecadeCapability")
Dim Dell_Server_Storage_Controller_SlicedVDCapability
Set Dell_Server_Storage_Controller_SlicedVDCapability = New AttributeProperty
Dell_Server_Storage_Controller_SlicedVDCapability.setProtocol("wsman")
Dell_Server_Storage_Controller_SlicedVDCapability.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SlicedVDCapability.setProtocolAttributeName("SlicedVDCapability")
Dell_Server_Storage_Controller_SlicedVDCapability.setAttributeValueMappingObject()
Dell_Server_Storage_Controller_SlicedVDCapability.setAttributeValueMapping "0", "Not supported"
Dell_Server_Storage_Controller_SlicedVDCapability.setAttributeValueMapping "1", "Supported"
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SlicedVDCapability)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SlicedVDCapability")
Dim Dell_Server_Storage_Controller_SASAddress
Set Dell_Server_Storage_Controller_SASAddress = New AttributeProperty
Dell_Server_Storage_Controller_SASAddress.setProtocol("wsman")
Dell_Server_Storage_Controller_SASAddress.setClassName("cimv2/DCIM_ControllerView")
Dell_Server_Storage_Controller_SASAddress.setProtocolAttributeName("SASAddress")
Dell_Server_Storage_Controller_Obj.setAttributePropertyObject(Dell_Server_Storage_Controller_SASAddress)
Dell_Server_Storage_Controller_Obj.setAttributeDictionary("SASAddress")
Dim Dell_Server_Storage_Controller_VirtualDisk_Obj
Set Dell_Server_Storage_Controller_VirtualDisk_Obj = New ProfileInformation
Dell_Server_Storage_Controller_VirtualDisk_Obj.setProfileName("Dell.Chassis.Storage.Controller.VirtualDisk")
'FQDD
Dim Dell_Server_Storage_Controller_VirtualDisk_FQDD
Set Dell_Server_Storage_Controller_VirtualDisk_FQDD = New AttributeProperty
'Bus Protocol
Dim Dell_Server_Storage_Controller_VirtualDisk_BusProtocol
Set Dell_Server_Storage_Controller_VirtualDisk_BusProtocol = New AttributeProperty
'Disk Cache Policy
Dim Dell_Server_Storage_Controller_VirtualDisk_DiskCachePolicy
Set Dell_Server_Storage_Controller_VirtualDisk_DiskCachePolicy = New AttributeProperty
'Lock Status
Dim Dell_Server_Storage_Controller_VirtualDisk_LockStatus
Set Dell_Server_Storage_Controller_VirtualDisk_LockStatus = New AttributeProperty
'Read Policy
Dim Dell_Server_Storage_Controller_VirtualDisk_ReadPolicy
Set Dell_Server_Storage_Controller_VirtualDisk_ReadPolicy = New AttributeProperty
'Remaining Redundancy
Dim Dell_Server_Storage_Controller_VirtualDisk_RemainingRedundancy
Set Dell_Server_Storage_Controller_VirtualDisk_RemainingRedundancy = New AttributeProperty
'Virtual disk Size
Dim Dell_Server_Storage_Controller_VirtualDisk_VirtualDiskSize
Set Dell_Server_Storage_Controller_VirtualDisk_VirtualDiskSize = New AttributeProperty
'VD Display Name
Dim Dell_Server_Storage_Controller_VirtualDisk_DisplayName
Set Dell_Server_Storage_Controller_VirtualDisk_DisplayName = New AttributeProperty
'Span Length
Dim Dell_Server_Storage_Controller_VirtualDisk_SpanLength
Set Dell_Server_Storage_Controller_VirtualDisk_SpanLength = New AttributeProperty
'Write Policy
Dim Dell_Server_Storage_Controller_VirtualDisk_WritePolicy
Set Dell_Server_Storage_Controller_VirtualDisk_WritePolicy = New AttributeProperty
'Virtual - Physical Disk IDs
Dim Dell_Server_Storage_Controller_VirtualDisk_PhysicalDiskIDs
Set Dell_Server_Storage_Controller_VirtualDisk_PhysicalDiskIDs = New AttributeProperty
Dell_Server_Storage_Controller_VirtualDisk_PhysicalDiskIDs.setProtocol("wsman")
Dell_Server_Storage_Controller_VirtualDisk_PhysicalDiskIDs.setClassName("cimv2/DCIM_VirtualDiskView")
Dell_Server_Storage_Controller_VirtualDisk_PhysicalDiskIDs.setProtocolAttributeName("PhysicalDiskIDs")
Dim Dell_Server_Storage_Controller_PhysicalDisk_Obj
Set Dell_Server_Storage_Controller_PhysicalDisk_Obj = New ProfileInformation
Dell_Server_Storage_Controller_PhysicalDisk_Obj.setProfileName("Dell.Chassis.Storage.Controller.PhysicalDisk")
'FQDD
Dim Dell_Server_Storage_Controller_PhysicalDisk_FQDD
Set Dell_Server_Storage_Controller_PhysicalDisk_FQDD = New AttributeProperty
'DriveFormFactor
Dim Dell_Server_Storage_Controller_PhysicalDisk_DriveFormFactor
Set Dell_Server_Storage_Controller_PhysicalDisk_DriveFormFactor = New AttributeProperty
'Manufacturer
Dim Dell_Server_Storage_Controller_PhysicalDisk_Manufacturer
Set Dell_Server_Storage_Controller_PhysicalDisk_Manufacturer = New AttributeProperty
'ManufacturedDay
Dim Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedDay
Set Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedDay = New AttributeProperty
'ManufacturedWeek
Dim Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedWeek
Set Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedWeek = New AttributeProperty
'ManufacturedYear
Dim Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedYear
Set Dell_Server_Storage_Controller_PhysicalDisk_ManufacturedYear = New AttributeProperty
'MaxCapableSpeed
Dim Dell_Server_Storage_Controller_PhysicalDisk_MaxCapableSpeed
Set Dell_Server_Storage_Controller_PhysicalDisk_MaxCapableSpeed = New AttributeProperty
'PartNumber
Dim Dell_Server_Storage_Controller_PhysicalDisk_PartNumber
Set Dell_Server_Storage_Controller_PhysicalDisk_PartNumber = New AttributeProperty
'SASAddress
Dim Dell_Server_Storage_Controller_PhysicalDisk_SASAddress
Set Dell_Server_Storage_Controller_PhysicalDisk_SASAddress = New AttributeProperty
'SecurityState
Dim Dell_Server_Storage_Controller_PhysicalDisk_SecurityState
Set Dell_Server_Storage_Controller_PhysicalDisk_SecurityState = New AttributeProperty
'SerialNumber
Dim Dell_Server_Storage_Controller_PhysicalDisk_SerialNumber
Set Dell_Server_Storage_Controller_PhysicalDisk_SerialNumber = New AttributeProperty
'SlotNumber
Dim Dell_Server_Storage_Controller_PhysicalDisk_SlotNumber
Set Dell_Server_Storage_Controller_PhysicalDisk_SlotNumber = New AttributeProperty
'SupportedEncryptionTypes
Dim Dell_Server_Storage_Controller_PhysicalDisk_SupportedEncryptionTypes
Set Dell_Server_Storage_Controller_PhysicalDisk_SupportedEncryptionTypes = New AttributeProperty
Dim Dell_Chassis_Storage_Enclosure_Obj
Set Dell_Chassis_Storage_Enclosure_Obj = New ProfileInformation
Dell_Chassis_Storage_Enclosure_Obj.setProfileName("Dell.Chassis.Storage.Controller.Enclosure")
Dim Dell_Chassis_Storage_Enclosure_FQDD
Set Dell_Chassis_Storage_Enclosure_FQDD = New AttributeProperty
Dell_Chassis_Storage_Enclosure_FQDD.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_FQDD.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_FQDD.setProtocolAttributeName("FQDD")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_FQDD)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("FQDD")
Dim Dell_Chassis_Storage_Controller_Enclosure_DisplayName
Set Dell_Chassis_Storage_Controller_Enclosure_DisplayName = New AttributeProperty
Dell_Chassis_Storage_Controller_Enclosure_DisplayName.setProtocol("wsman")
Dell_Chassis_Storage_Controller_Enclosure_DisplayName.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Controller_Enclosure_DisplayName.setProtocolAttributeName("ProductName")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Controller_Enclosure_DisplayName)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("DisplayName")
Dim Dell_Chassis_Storage_Enclosure_BayID
Set Dell_Chassis_Storage_Enclosure_BayID = New AttributeProperty
Dell_Chassis_Storage_Enclosure_BayID.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_BayID.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_BayID.setProtocolAttributeName("WiredOrder")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_BayID)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("BayID")
Dim Dell_Chassis_Storage_Enclosure_Connector
Set Dell_Chassis_Storage_Enclosure_Connector = New AttributeProperty
Dell_Chassis_Storage_Enclosure_Connector.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_Connector.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_Connector.setProtocolAttributeName("Connector")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_Connector)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("Connector")
Dim Dell_Chassis_Storage_Enclosure_ServiceTag
Set Dell_Chassis_Storage_Enclosure_ServiceTag = New AttributeProperty
Dell_Chassis_Storage_Enclosure_ServiceTag.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_ServiceTag.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_ServiceTag.setProtocolAttributeName("ServiceTag")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_ServiceTag)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("ServiceTag")
Dim Dell_Chassis_Storage_Enclosure_AssetTag
Set Dell_Chassis_Storage_Enclosure_AssetTag = New AttributeProperty
Dell_Chassis_Storage_Enclosure_AssetTag.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_AssetTag.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_AssetTag.setProtocolAttributeName("AssetTag")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_AssetTag)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("AssetTag")
Dim Dell_Chassis_Storage_Enclosure_NumberofSlots
Set Dell_Chassis_Storage_Enclosure_NumberofSlots = New AttributeProperty
Dell_Chassis_Storage_Enclosure_NumberofSlots.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_NumberofSlots.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_NumberofSlots.setProtocolAttributeName("SlotCount")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_NumberofSlots)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("NumberofSlots")
Dim Dell_Chassis_Storage_Enclosure_FirmwareRevision
Set Dell_Chassis_Storage_Enclosure_FirmwareRevision = New AttributeProperty
Dell_Chassis_Storage_Enclosure_FirmwareRevision.setProtocol("wsman")
Dell_Chassis_Storage_Enclosure_FirmwareRevision.setClassName("cimv2/DCIM_EnclosureView")
Dell_Chassis_Storage_Enclosure_FirmwareRevision.setProtocolAttributeName("Version")
Dell_Chassis_Storage_Enclosure_Obj.setAttributePropertyObject(Dell_Chassis_Storage_Enclosure_FirmwareRevision)
Dell_Chassis_Storage_Enclosure_Obj.setAttributeDictionary("FirmwareRevision")
'Blade Server View
Dim Dell_Chassis_Storage_BladeServer_Obj
Set Dell_Chassis_Storage_BladeServer_Obj = New ProfileInformation
Dell_Chassis_Storage_BladeServer_Obj.setProfileName("Dell.Chassis.BladeServer")
'Blade Server FQDD
Dim Dell_Chassis_BladeServer_FQDD
Set Dell_Chassis_BladeServer_FQDD = New AttributeProperty
'RAID VA View
Dim Dell_Chassis_Storage_RAIDVA_Obj
Set Dell_Chassis_Storage_RAIDVA_Obj = New ProfileInformation
Dell_Chassis_Storage_RAIDVA_Obj.setProfileName("Dell.Chassis.RAIDVAView")
'RAID VA FQDD
Dim Dell_Chassis_Storage_Controller_RAIDVA_FQDD
Set Dell_Chassis_Storage_Controller_RAIDVA_FQDD = New AttributeProperty
'RAID VA AssignedBladeFQDD
Dim Dell_Chassis_Storage_Controller_RAIDVA_AssignedBladeFQDD
Set Dell_Chassis_Storage_Controller_RAIDVA_AssignedBladeFQDD = New AttributeProperty
'RAID VA VirtualDiskIDs
Dim Dell_Chassis_Storage_Controller_RAIDVA_VirtualDiskIDs
Set Dell_Chassis_Storage_Controller_RAIDVA_VirtualDiskIDs = New AttributeProperty
'RAID VA CurrentAssignState
Dim Dell_Chassis_Storage_Controller_RAIDVA_CurrentAssignState
Set Dell_Chassis_Storage_Controller_RAIDVA_CurrentAssignState = New AttributeProperty
Dim Dell_Chassis_Storage_Controller_RAIDVA_VirtualDiskAccessPolicy
Set Dell_Chassis_Storage_Controller_RAIDVA_VirtualDiskAccessPolicy = New AttributeProperty
Public Function populateFanProfileDictionary
Dim Dell_Fan_Obj
Set Dell_Fan_Obj = New ProfileInformation
Dell_Fan_Obj.setProfileName("Dell.Chassis.Fan")
'FQDD
Dim Dell_Fan_FQDD
Set Dell_Fan_FQDD = New AttributeProperty
Dell_Fan_FQDD.setProtocol("wsman")
Dell_Fan_FQDD.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_Fan")
Dell_Fan_FQDD.setProtocolAttributeName("DeviceID")
Dell_Fan_Obj.setAttributePropertyObject(Dell_Fan_FQDD)
Dell_Fan_Obj.setAttributeDictionary("FQDD")
'Displayname
Dim Dell_Fan_DisplayName
Set Dell_Fan_DisplayName = New AttributeProperty
Dell_Fan_DisplayName.setProtocol("wsman")
Dell_Fan_DisplayName.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_Fan")
Dell_Fan_DisplayName.setProtocolAttributeName("ElementName")
Dell_Fan_Obj.setAttributePropertyObject(Dell_Fan_DisplayName)
Dell_Fan_Obj.setAttributeDictionary("DisplayName")
'ClassId
Dim Dell_Fan_ClassId
Set Dell_Fan_ClassId = New AttributeProperty
Dell_Fan_ClassId.setProtocol("wsman")
Dell_Fan_ClassId.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_Fan")
Dell_Fan_ClassId.setProtocolAttributeName("ClassId")
Dell_Fan_Obj.setAttributePropertyObject(Dell_Fan_ClassId)
Dell_Fan_Obj.setAttributeDictionary("ClassId")
Dim Dell_FanPackage_Obj
Set Dell_FanPackage_Obj = New ProfileInformation
Dell_FanPackage_Obj.setProfileName("Dell.FanPackage")
'Manufacturer
Dim Dell_Fan_Manufacturer
Set Dell_Fan_Manufacturer = New AttributeProperty
Dell_Fan_Manufacturer.setProtocol("wsman")
Dell_Fan_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_FanPackage")
Dell_Fan_Manufacturer.setProtocolAttributeName("Manufacturer")
Dell_FanPackage_Obj.setAttributePropertyObject(Dell_Fan_Manufacturer)
Dell_FanPackage_Obj.setAttributeDictionary("Manufacturer")
'ClassId
Dim Dell_Fan_Package_ClassId
Set Dell_Fan_Package_ClassId = New AttributeProperty
Dell_Fan_Package_ClassId.setProtocol("wsman")
Dell_Fan_Package_ClassId.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_FanPackage")
Dell_Fan_Package_ClassId.setProtocolAttributeName("ClassId")
Dell_FanPackage_Obj.setAttributePropertyObject(Dell_Fan_Package_ClassId)
Dell_FanPackage_Obj.setAttributeDictionary("ClassId")
Dim Dell_FanSlot_Obj
Set Dell_FanSlot_Obj = New ProfileInformation
Dell_FanSlot_Obj.setProfileName("Dell.FanSlot")
'Slot
Dim Dell_Fan_Slot
Set Dell_Fan_Slot = New AttributeProperty
Dell_Fan_Slot.setProtocol("wsman")
Dell_Fan_Slot.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_FanSlot")
Dell_Fan_Slot.setProtocolAttributeName("Number")
Dell_FanSlot_Obj.setAttributePropertyObject(Dell_Fan_Slot)
Dell_FanSlot_Obj.setAttributeDictionary("Slot")
'ClassId
Dim Dell_Fan_Slot_ClassId
Set Dell_Fan_Slot_ClassId = New AttributeProperty
Dell_Fan_Slot_ClassId.setProtocol("wsman")
Dell_Fan_Slot_ClassId.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_FanSlot")
Dell_Fan_Slot_ClassId.setProtocolAttributeName("ClassId")
Dell_FanSlot_Obj.setAttributePropertyObject(Dell_Fan_Slot_ClassId)
Dell_FanSlot_Obj.setAttributeDictionary("ClassId")
Public Function pcieDeviceProfileDictionary
'PCIeDevice Chassis Slot Profile Object
Dim Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj
Set Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj = New ProfileInformation
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setProfileName("Dell.Chassis.PCIeDevice.PCISlot")
Dim Dell_Chassis_Storage_PCIeDevice_FQDD
Set Dell_Chassis_Storage_PCIeDevice_FQDD = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_FQDD.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_FQDD.setClassName("cimv2/DCIM_ChassisPCISlot")
Dell_Chassis_Storage_PCIeDevice_FQDD.setProtocolAttributeName("FQDD")
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_FQDD)
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributeDictionary("FQDD")
Dim Dell_Chassis_Storage_PCIeDevice_Fabric
Set Dell_Chassis_Storage_PCIeDevice_Fabric = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_Fabric.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_Fabric.setClassName("cimv2/DCIM_ChassisPCISlot")
Dell_Chassis_Storage_PCIeDevice_Fabric.setProtocolAttributeName("Fabric")
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_Fabric)
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributeDictionary("Fabric")
Dim Dell_Chassis_Storage_PCIeDevice_SlotType
Set Dell_Chassis_Storage_PCIeDevice_SlotType = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_SlotType.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_SlotType.setClassName("cimv2/DCIM_ChassisPCISlot")
Dell_Chassis_Storage_PCIeDevice_SlotType.setProtocolAttributeName("Height")
Dell_Chassis_Storage_PCIeDevice_SlotType.setAttributeValueMappingObject()
Dell_Chassis_Storage_PCIeDevice_SlotType.setAttributeValueMapping "2", "Full Height"
Dell_Chassis_Storage_PCIeDevice_SlotType.setAttributeValueMapping "3", "Low Profile"
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_SlotType)
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributeDictionary("SlotType")
Dim Dell_Chassis_Storage_PCIeDevice_PCIeSlot
Set Dell_Chassis_Storage_PCIeDevice_PCIeSlot = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_PCIeSlot.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_PCIeSlot.setClassName("cimv2/DCIM_ChassisPCISlot")
Dell_Chassis_Storage_PCIeDevice_PCIeSlot.setProtocolAttributeName("NumberDescription")
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_PCIeSlot)
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributeDictionary("PCIeSlot")
Dim Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD
Set Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD.setClassName("cimv2/DCIM_ChassisPCISlot")
Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD.setProtocolAttributeName("DeviceFQDD")
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_PCIeDeviceFQDD)
Dell_Chassis_Storage_PCIeDevice_PCISlot_Obj.setAttributeDictionary("DeviceFQDD")
'PCI Device Chassis Device Object
Dim Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj
Set Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj = New ProfileInformation
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setProfileName("Dell.Chassis.PCIeDevice.PCIDeviceView")
Dim Dell_Chassis_Storage_PCIeDeviceFQDD
Set Dell_Chassis_Storage_PCIeDeviceFQDD = New AttributeProperty
Dell_Chassis_Storage_PCIeDeviceFQDD.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDeviceFQDD.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDeviceFQDD.setProtocolAttributeName("FQDD")
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDeviceFQDD)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("FQDD")
Dim Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD
Set Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD.setProtocolAttributeName("AssignedBladeSlotFQDD")
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_AssignedBladeSlotFQDD)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("AssignedSlot")
Dim Dell_Chassis_Storage_PCIeDevice_AssignedBlade
Set Dell_Chassis_Storage_PCIeDevice_AssignedBlade = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_AssignedBlade.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_AssignedBlade.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDevice_AssignedBlade.setProtocolAttributeName("AssignedBladeFQDD")
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_AssignedBlade)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("AssignedBlade")
Dim Dell_Chassis_Storage_PCIeDevice_Description
Set Dell_Chassis_Storage_PCIeDevice_Description = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_Description.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_Description.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDevice_Description.setProtocolAttributeName("Description")
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_Description)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("Description")
Dim Dell_Chassis_Storage_PCIeDevice_Databuswidth
Set Dell_Chassis_Storage_PCIeDevice_Databuswidth = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setProtocolAttributeName("DataBusWidth")
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMappingObject()
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0001", "Other"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0002", "Unknown"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0003", "8 bit"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0004", "16 bit"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0005", "32 bit"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0006", "64 bit"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0007", "128 bit"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0008", "1x or x1"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "0009", "2x or x2"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "000A", "4x or x4"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "000B", "8x or x8"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "000C", "12x or x12"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "000D", "16x or x16"
Dell_Chassis_Storage_PCIeDevice_Databuswidth.setAttributeValueMapping "000E", "32x or x32"
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_Databuswidth)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("Databuswidth")
Dim Dell_Chassis_Storage_PCIeDevice_Manufacturer
Set Dell_Chassis_Storage_PCIeDevice_Manufacturer = New AttributeProperty
Dell_Chassis_Storage_PCIeDevice_Manufacturer.setProtocol("wsman")
Dell_Chassis_Storage_PCIeDevice_Manufacturer.setClassName("cimv2/DCIM_ChassisPCIDeviceView")
Dell_Chassis_Storage_PCIeDevice_Manufacturer.setProtocolAttributeName("Manufacturer")
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PCIeDevice_Manufacturer)
Dell_Chassis_Storage_PCIeDevice_PCIDevice_Obj.setAttributeDictionary("Manufacturer")
'Chassis Power Supply Dell_PowerSupply profile object
Dim Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj
Set Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj = New ProfileInformation
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setProfileName("Dell.Chassis.PowerSupply.Dell_PowerSupply")
Dim Dell_Chassis_Storage_PowerSupply_FQDD
Set Dell_Chassis_Storage_PowerSupply_FQDD = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_FQDD.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_FQDD.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PowerSupply")
Dell_Chassis_Storage_PowerSupply_FQDD.setProtocolAttributeName("DeviceID")
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_FQDD)
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributeDictionary("FQDD")
Dim Dell_Chassis_Storage_PowerSupply_PSClassID
Set Dell_Chassis_Storage_PowerSupply_PSClassID = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_PSClassID.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_PSClassID.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PowerSupply")
Dell_Chassis_Storage_PowerSupply_PSClassID.setProtocolAttributeName("ClassId")
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_PSClassID)
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributeDictionary("ClassId")
Dim Dell_Chassis_Storage_PowerSupply_Capacity
Set Dell_Chassis_Storage_PowerSupply_Capacity = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_Capacity.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_Capacity.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PowerSupply")
Dell_Chassis_Storage_PowerSupply_Capacity.setProtocolAttributeName("TotalOutputPower")
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_Capacity)
Dell_Chassis_PowerSupply_Dell_PowerSupply_Obj.setAttributeDictionary("Capacity")
'Chassis Power SUpply Dell_PSPackage profile objct
Dim Dell_Chassis_PowerSupply_Dell_PSPackage_Obj
Set Dell_Chassis_PowerSupply_Dell_PSPackage_Obj = New ProfileInformation
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setProfileName("Dell.Chassis.PowerSupply.Dell_PSPackage")
Dim Dell_Chassis_Storage_PowerSupply_Name
Set Dell_Chassis_Storage_PowerSupply_Name = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_Name.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_Name.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_Name.setProtocolAttributeName("Name")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_Name)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("Name")
Dim Dell_Chassis_Storage_PowerSupply_PackClassID
Set Dell_Chassis_Storage_PowerSupply_PackClassID = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_PackClassID.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_PackClassID.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_PackClassID.setProtocolAttributeName("ClassId")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_PackClassID)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("ClassId")
Dim Dell_Chassis_Storage_PowerSupply_Manufacturer
Set Dell_Chassis_Storage_PowerSupply_Manufacturer = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_Manufacturer.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_Manufacturer.setProtocolAttributeName("Manufacturer")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_Manufacturer)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("Manufacturer")
Dim Dell_Chassis_Storage_PowerSupply_Model
Set Dell_Chassis_Storage_PowerSupply_Model = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_Model.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_Model.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_Model.setProtocolAttributeName("Model")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_Model)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("Model")
Dim Dell_Chassis_Storage_PowerSupply_SerialNumber
Set Dell_Chassis_Storage_PowerSupply_SerialNumber = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_SerialNumber.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_SerialNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_SerialNumber.setProtocolAttributeName("SerialNumber")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_SerialNumber)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("SerialNumber")
Dim Dell_Chassis_Storage_PowerSupply_PartNumber
Set Dell_Chassis_Storage_PowerSupply_PartNumber = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_PartNumber.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_PartNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSPackage")
Dell_Chassis_Storage_PowerSupply_PartNumber.setProtocolAttributeName("PartNumber")
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_PartNumber)
Dell_Chassis_PowerSupply_Dell_PSPackage_Obj.setAttributeDictionary("PartNumber")
'Chassis Power Supply Slot
Dim Dell_Chassis_PowerSupply_PowerSupplySlot_Obj
Set Dell_Chassis_PowerSupply_PowerSupplySlot_Obj = New ProfileInformation
Dell_Chassis_PowerSupply_PowerSupplySlot_Obj.setProfileName("Dell.Chassis.PowerSupply.Dell_PSSlot")
Dim Dell_Chassis_Storage_PowerSupply_PSSlot
Set Dell_Chassis_Storage_PowerSupply_PSSlot = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_PSSlot.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_PSSlot.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSSlot")
Dell_Chassis_Storage_PowerSupply_PSSlot.setProtocolAttributeName("Number")
Dell_Chassis_PowerSupply_PowerSupplySlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_PSSlot)
Dell_Chassis_PowerSupply_PowerSupplySlot_Obj.setAttributeDictionary("Slot")
Dim Dell_Chassis_Storage_PowerSupply_SlotClassID
Set Dell_Chassis_Storage_PowerSupply_SlotClassID = New AttributeProperty
Dell_Chassis_Storage_PowerSupply_SlotClassID.setProtocol("wsman")
Dell_Chassis_Storage_PowerSupply_SlotClassID.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PSSlot")
Dell_Chassis_Storage_PowerSupply_SlotClassID.setProtocolAttributeName("ClassId")
Dell_Chassis_PowerSupply_PowerSupplySlot_Obj.setAttributePropertyObject(Dell_Chassis_Storage_PowerSupply_SlotClassID)
Dell_Chassis_PowerSupply_PowerSupplySlot_Obj.setAttributeDictionary("ClassId")
Public Function cmcProfileDictionary
Dim Dell_Chassis_cmc_racadm_getmodinfo_Obj
Set Dell_Chassis_cmc_racadm_getmodinfo_Obj = New ProfileInformation
Dell_Chassis_cmc_racadm_getmodinfo_Obj.setProfileName("Dell.Chassis.cmc.racadm.getmodinfo")
Dim Dell_Chassis_cmc_racadm_powerstatus
Set Dell_Chassis_cmc_racadm_powerstatus = New AttributeProperty
Dell_Chassis_cmc_racadm_powerstatus.setProtocol("racadm")
Dell_Chassis_cmc_racadm_powerstatus.setClassName("getmodinfo")
Dell_Chassis_cmc_racadm_powerstatus.setProtocolAttributeName("<pwrState>")
Dell_Chassis_cmc_racadm_powerstatus.setSearchKey("cmc")
Dell_Chassis_cmc_racadm_getmodinfo_Obj.setAttributePropertyObject(Dell_Chassis_cmc_racadm_powerstatus)
Dell_Chassis_cmc_racadm_getmodinfo_Obj.setAttributeDictionary("powerstatus")
Dim Dell_Chassis_cmc_racadm_module
Set Dell_Chassis_cmc_racadm_module = New AttributeProperty
Dell_Chassis_cmc_racadm_module.setProtocol("racadm")
Dell_Chassis_cmc_racadm_module.setClassName("getmodinfo")
Dell_Chassis_cmc_racadm_module.setProtocolAttributeName("<module>")
Dell_Chassis_cmc_racadm_module.setSearchKey("cmc")
Dell_Chassis_cmc_racadm_getmodinfo_Obj.setAttributePropertyObject(Dell_Chassis_cmc_racadm_module)
Dell_Chassis_cmc_racadm_getmodinfo_Obj.setAttributeDictionary("module")
Dim Dell_Chassis_cmc_racadm_getversion_Obj
Set Dell_Chassis_cmc_racadm_getversion_Obj = New ProfileInformation
Dell_Chassis_cmc_racadm_getversion_Obj.setProfileName("Dell.Chassis.cmc.racadm.getversion")
Dim Dell_Chassis_cmc_racadm_FirmwareVersion_CMC
Set Dell_Chassis_cmc_racadm_FirmwareVersion_CMC = New AttributeProperty
Dell_Chassis_cmc_racadm_FirmwareVersion_CMC.setProtocol("racadm")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMC.setClassName("getversion")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMC.setProtocolAttributeName("<CMC>")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMC.setSearchKey("cmc")
Dell_Chassis_cmc_racadm_getversion_Obj.setAttributePropertyObject(Dell_Chassis_cmc_racadm_FirmwareVersion_CMC)
Dell_Chassis_cmc_racadm_getversion_Obj.setAttributeDictionary("CMC")
Dim Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion
Set Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion = New AttributeProperty
Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion.setProtocol("racadm")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion.setClassName("getversion")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion.setProtocolAttributeName("<CMC Version>")
Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion.setSearchKey("cmc")
Dell_Chassis_cmc_racadm_getversion_Obj.setAttributePropertyObject(Dell_Chassis_cmc_racadm_FirmwareVersion_CMCVersion)
Dell_Chassis_cmc_racadm_getversion_Obj.setAttributeDictionary("FirmwareVersion")
Dim Dell_Chassis_cmc_wsman_Obj
Set Dell_Chassis_cmc_wsman_Obj = New ProfileInformation
Dell_Chassis_cmc_wsman_Obj.setProfileName("Dell.Chassis.cmc.wsman")
Dim Dell_Chassis_cmc_wsman_Manufacturer
Set Dell_Chassis_cmc_wsman_Manufacturer = New AttributeProperty
Dell_Chassis_cmc_wsman_Manufacturer.setProtocol("wsman")
Dell_Chassis_cmc_wsman_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
Dell_Chassis_cmc_wsman_Manufacturer.setProtocolAttributeName("Manufacturer")
Dell_Chassis_cmc_wsman_Obj.setAttributePropertyObject(Dell_Chassis_cmc_wsman_Manufacturer)
Dell_Chassis_cmc_wsman_Obj.setAttributeDictionary("Manufacturer")
Dim Dell_Chassis_cmc_wsman_Model
Set Dell_Chassis_cmc_wsman_Model = New AttributeProperty
Dell_Chassis_cmc_wsman_Model.setProtocol("wsman")
Dell_Chassis_cmc_wsman_Model.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
Dell_Chassis_cmc_wsman_Model.setProtocolAttributeName("Model")
Dell_Chassis_cmc_wsman_Obj.setAttributePropertyObject(Dell_Chassis_cmc_wsman_Model)
Dell_Chassis_cmc_wsman_Obj.setAttributeDictionary("Model")
Dim Dell_Chassis_cmc_wsman_SerialNumber
Set Dell_Chassis_cmc_wsman_SerialNumber = New AttributeProperty
Dell_Chassis_cmc_wsman_SerialNumber.setProtocol("wsman")
Dell_Chassis_cmc_wsman_SerialNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
Dell_Chassis_cmc_wsman_SerialNumber.setProtocolAttributeName("SerialNumber")
Dell_Chassis_cmc_wsman_Obj.setAttributePropertyObject(Dell_Chassis_cmc_wsman_SerialNumber)
Dell_Chassis_cmc_wsman_Obj.setAttributeDictionary("SerialNumber")
Dim Dell_Chassis_cmc_wsman_PartNumber
Set Dell_Chassis_cmc_wsman_PartNumber = New AttributeProperty
Dell_Chassis_cmc_wsman_PartNumber.setProtocol("wsman")
Dell_Chassis_cmc_wsman_PartNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
Dell_Chassis_cmc_wsman_PartNumber.setProtocolAttributeName("PartNumber")
Dell_Chassis_cmc_wsman_Obj.setAttributePropertyObject(Dell_Chassis_cmc_wsman_PartNumber)
Dell_Chassis_cmc_wsman_Obj.setAttributeDictionary("PartNumber")
Public Function cmcWsmanProfileDictionary
Dim CMC_Wsman_Obj
Set CMC_Wsman_Obj = New ProfileInformation
CMC_Wsman_Obj.setProfileName("Dell.Chassis.cmc.wsman")
Dim CMC_Manufacturer
Set CMC_Manufacturer = New AttributeProperty
CMC_Manufacturer.setProtocol("wsman")
CMC_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
CMC_Manufacturer.setProtocolAttributeName("Manufacturer")
CMC_Wsman_Obj.setAttributePropertyObject(CMC_Manufacturer)
CMC_Wsman_Obj.setAttributeDictionary("Manufacturer")
Dim CMC_Model
Set CMC_Model = New AttributeProperty
CMC_Model.setProtocol("wsman")
CMC_Model.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/DCIM_ModularChassisView")
CMC_Model.setProtocolAttributeName("Model")
CMC_Wsman_Obj.setAttributePropertyObject(CMC_Model)
CMC_Wsman_Obj.setAttributeDictionary("Model")
Dim CMC_SerialNumber
Set CMC_SerialNumber = New AttributeProperty
CMC_SerialNumber.setProtocol("wsman")
CMC_SerialNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
CMC_SerialNumber.setProtocolAttributeName("SerialNumber")
CMC_Wsman_Obj.setAttributePropertyObject(CMC_SerialNumber)
CMC_Wsman_Obj.setAttributeDictionary("SerialNumber")
Dim CMC_PartNumber
Set CMC_PartNumber = New AttributeProperty
CMC_PartNumber.setProtocol("wsman")
CMC_PartNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_ChMgrPackage")
CMC_PartNumber.setProtocolAttributeName("PartNumber")
CMC_Wsman_Obj.setAttributePropertyObject(CMC_PartNumber)
CMC_Wsman_Obj.setAttributeDictionary("PartNumber")
Dim CMC_Wsman_FirmwareVersion
Set CMC_Wsman_FirmwareVersion = New AttributeProperty
CMC_Wsman_FirmwareVersion.setProtocol("wsman")
CMC_Wsman_FirmwareVersion.setClassName("cimv2/DCIM_ModularChassisView")
CMC_Wsman_FirmwareVersion.setProtocolAttributeName("MgmtControllerFirmwareVersion")
CMC_Wsman_Obj.setAttributePropertyObject(CMC_Wsman_FirmwareVersion)
CMC_Wsman_Obj.setAttributeDictionary("FirmwareVersion")
Public Function ioModuleProfileDictionay
'IO Module compoonent--Dell_PassThroughModule--Ws-Man
Dim Dell_Chassis_IOModule_wsman_Obj
Set Dell_Chassis_IOModule_wsman_Obj = New ProfileInformation
Dell_Chassis_IOModule_wsman_Obj.setProfileName("Dell.Chassis.IOModule.wsman.dell_passthroughmodule")
Dim Dell_Chassis_IOModule_wsman_FQDD
Set Dell_Chassis_IOModule_wsman_FQDD = New AttributeProperty
Dell_Chassis_IOModule_wsman_FQDD.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_FQDD.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
Dell_Chassis_IOModule_wsman_FQDD.setProtocolAttributeName("DeviceID")
Dell_Chassis_IOModule_wsman_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_FQDD)
Dell_Chassis_IOModule_wsman_Obj.setAttributeDictionary("FQDD")
Dim Dell_Chassis_IOModule_wsman_Slot
Set Dell_Chassis_IOModule_wsman_Slot = New AttributeProperty
Dell_Chassis_IOModule_wsman_Slot.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_Slot.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
Dell_Chassis_IOModule_wsman_Slot.setProtocolAttributeName("Name")
Dell_Chassis_IOModule_wsman_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_Slot)
Dell_Chassis_IOModule_wsman_Obj.setAttributeDictionary("Slot")
Dim Dell_Chassis_IOModule_wsman_FabricType
Set Dell_Chassis_IOModule_wsman_FabricType = New AttributeProperty
Dell_Chassis_IOModule_wsman_FabricType.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_FabricType.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
Dell_Chassis_IOModule_wsman_FabricType.setProtocolAttributeName("LinkTechnologies")
Dell_Chassis_IOModule_wsman_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_FabricType)
Dell_Chassis_IOModule_wsman_Obj.setAttributeDictionary("FabricType")
Dim Dell_Chassis_IOModule_wsman_passthrough_classID
Set Dell_Chassis_IOModule_wsman_passthrough_classID = New AttributeProperty
Dell_Chassis_IOModule_wsman_passthrough_classID.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_passthrough_classID.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
Dell_Chassis_IOModule_wsman_passthrough_classID.setProtocolAttributeName("ClassId")
Dell_Chassis_IOModule_wsman_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_passthrough_classID)
Dell_Chassis_IOModule_wsman_Obj.setAttributeDictionary("classID")
'IOmodule- wsman- dell_iompackage
Dim Dell_Chassis_IOModule_wsman_iom_Obj
Set Dell_Chassis_IOModule_wsman_iom_Obj = New ProfileInformation
Dell_Chassis_IOModule_wsman_iom_Obj.setProfileName("Dell.Chassis.IOModule.wsman.dell_iompackage")
Dim Dell_Chassis_IOModule_wsman_Manufacturer
Set Dell_Chassis_IOModule_wsman_Manufacturer = New AttributeProperty
Dell_Chassis_IOModule_wsman_Manufacturer.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_Manufacturer.setProtocolAttributeName("Manufacturer")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_Manufacturer)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("Manufacturer")
Dim Dell_Chassis_IOModule_wsman_Model
Set Dell_Chassis_IOModule_wsman_Model = New AttributeProperty
Dell_Chassis_IOModule_wsman_Model.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_Model.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_Model.setProtocolAttributeName("Model")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_Model)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("Model")
Dim Dell_Chassis_IOModule_wsman_SerialNumber
Set Dell_Chassis_IOModule_wsman_SerialNumber = New AttributeProperty
Dell_Chassis_IOModule_wsman_SerialNumber.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_SerialNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_SerialNumber.setProtocolAttributeName("SerialNumber")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_SerialNumber)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("SerialNumber")
Dim Dell_Chassis_IOModule_wsman_PartNumber
Set Dell_Chassis_IOModule_wsman_PartNumber = New AttributeProperty
Dell_Chassis_IOModule_wsman_PartNumber.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_PartNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_PartNumber.setProtocolAttributeName("PartNumber")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_PartNumber)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("PartNumber")
Dim Dell_Chassis_IOModule_wsman_iom_Name
Set Dell_Chassis_IOModule_wsman_iom_Name = New AttributeProperty
Dell_Chassis_IOModule_wsman_iom_Name.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_iom_Name.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_iom_Name.setProtocolAttributeName("Name")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_iom_Name)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("Name")
Dim Dell_Chassis_IOModule_wsman_iompack_classid
Set Dell_Chassis_IOModule_wsman_iompack_classid = New AttributeProperty
Dell_Chassis_IOModule_wsman_iompack_classid.setProtocol("wsman")
Dell_Chassis_IOModule_wsman_iompack_classid.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
Dell_Chassis_IOModule_wsman_iompack_classid.setProtocolAttributeName("ClassId")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_wsman_iompack_classid)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("classID")
Dim CMC_IOModule_IPAddress
Set CMC_IOModule_IPAddress = New AttributeProperty
CMC_IOModule_IPAddress.setProtocol("wsman")
CMC_IOModule_IPAddress.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_IPAddress.setProtocolAttributeName("IPv4Address")
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributePropertyObject(CMC_IOModule_IPAddress)
Dell_Chassis_IOModule_wsman_iom_Obj.setAttributeDictionary("IPAddress")
'IOModule-getioinfo-racadm
Dim Dell_Chassis_IOModule_racadm_ioinfo_Obj
Set Dell_Chassis_IOModule_racadm_ioinfo_Obj = New ProfileInformation
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setProfileName("Dell.Chassis.IOModule.racadm.getioinfo")
Dim Dell_Chassis_IOModule_ioinfo_Name
Set Dell_Chassis_IOModule_ioinfo_Name = New AttributeProperty
Dell_Chassis_IOModule_ioinfo_Name.setProtocol("racadm")
Dell_Chassis_IOModule_ioinfo_Name.setClassName("getioinfo")
Dell_Chassis_IOModule_ioinfo_Name.setProtocolAttributeName("switchline")
Dell_Chassis_IOModule_ioinfo_Name.setSearchKey("switch")
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_ioinfo_Name)
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributeDictionary("switchline")
Dim Dell_Chassis_IOModule_SubnetMask
Set Dell_Chassis_IOModule_SubnetMask = New AttributeProperty
Dell_Chassis_IOModule_SubnetMask.setProtocol("racadm")
Dell_Chassis_IOModule_SubnetMask.setClassName("getioinfo")
Dell_Chassis_IOModule_SubnetMask.setProtocolAttributeName("subnet mask")
Dell_Chassis_IOModule_SubnetMask.setSearchKey("switch")
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_SubnetMask)
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributeDictionary("SubnetMask")
Dim Dell_Chassis_IOModule_Gateway
Set Dell_Chassis_IOModule_Gateway = New AttributeProperty
Dell_Chassis_IOModule_Gateway.setProtocol("racadm")
Dell_Chassis_IOModule_Gateway.setClassName("getioinfo")
Dell_Chassis_IOModule_Gateway.setProtocolAttributeName("gateway")
Dell_Chassis_IOModule_Gateway.setSearchKey("switch")
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributePropertyObject(Dell_Chassis_IOModule_Gateway)
Dell_Chassis_IOModule_racadm_ioinfo_Obj.setAttributeDictionary("Gateway")
Public Function ioModuleWsmanProfileDictionary
'IO Module compoonent--Dell_PassThroughModule--Ws-Man
Dim CMC_IOModule_Obj
Set CMC_IOModule_Obj = New ProfileInformation
CMC_IOModule_Obj.setProfileName("Dell.Chassis.IOModule.wsman.dell_passthroughmodule")
Dim CMC_IOModule_FQDD
Set CMC_IOModule_FQDD = New AttributeProperty
CMC_IOModule_FQDD.setProtocol("wsman")
CMC_IOModule_FQDD.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
CMC_IOModule_FQDD.setProtocolAttributeName("DeviceID")
CMC_IOModule_Obj.setAttributePropertyObject(CMC_IOModule_FQDD)
CMC_IOModule_Obj.setAttributeDictionary("FQDD")
Dim CMC_IOModule_Slot
Set CMC_IOModule_Slot = New AttributeProperty
CMC_IOModule_Slot.setProtocol("wsman")
CMC_IOModule_Slot.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
CMC_IOModule_Slot.setProtocolAttributeName("Name")
CMC_IOModule_Obj.setAttributePropertyObject(CMC_IOModule_Slot)
CMC_IOModule_Obj.setAttributeDictionary("Slot")
Dim CMC_IOModule_FabricType
Set CMC_IOModule_FabricType = New AttributeProperty
CMC_IOModule_FabricType.setProtocol("wsman")
CMC_IOModule_FabricType.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
CMC_IOModule_FabricType.setProtocolAttributeName("LinkTechnologies")
CMC_IOModule_Obj.setAttributePropertyObject(CMC_IOModule_FabricType)
CMC_IOModule_Obj.setAttributeDictionary("FabricType")
Dim CMC_IOModule_Passthrough_ClassId
Set CMC_IOModule_Passthrough_ClassId = New AttributeProperty
CMC_IOModule_Passthrough_ClassId.setProtocol("wsman")
CMC_IOModule_Passthrough_ClassId.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
CMC_IOModule_Passthrough_ClassId.setProtocolAttributeName("ClassId")
CMC_IOModule_Obj.setAttributePropertyObject(CMC_IOModule_Passthrough_ClassId)
CMC_IOModule_Obj.setAttributeDictionary("classID")
'IOmodule- wsman- dell_iompackage
Dim CMC_IOModule_IOMPackage_Obj
Set CMC_IOModule_IOMPackage_Obj = New ProfileInformation
CMC_IOModule_IOMPackage_Obj.setProfileName("Dell.Chassis.IOModule.wsman.dell_iompackage")
Dim CMC_IOModule_Manufacturer
Set CMC_IOModule_Manufacturer = New AttributeProperty
CMC_IOModule_Manufacturer.setProtocol("wsman")
CMC_IOModule_Manufacturer.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_Manufacturer.setProtocolAttributeName("Manufacturer")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOModule_Manufacturer)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("Manufacturer")
Dim CMC_IOModule_Model
Set CMC_IOModule_Model = New AttributeProperty
CMC_IOModule_Model.setProtocol("wsman")
CMC_IOModule_Model.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_Model.setProtocolAttributeName("Model")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOModule_Model)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("Model")
Dim CMC_IOModule_SerialNumber
Set CMC_IOModule_SerialNumber = New AttributeProperty
CMC_IOModule_SerialNumber.setProtocol("wsman")
CMC_IOModule_SerialNumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_SerialNumber.setProtocolAttributeName("SerialNumber")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOModule_SerialNumber)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("SerialNumber")
Dim CMC_IOModule_Partnumber
Set CMC_IOModule_Partnumber = New AttributeProperty
CMC_IOModule_Partnumber.setProtocol("wsman")
CMC_IOModule_Partnumber.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_Partnumber.setProtocolAttributeName("PartNumber")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOModule_Partnumber)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("PartNumber")
Dim CMC_IOMPackage_Name
Set CMC_IOMPackage_Name = New AttributeProperty
CMC_IOMPackage_Name.setProtocol("wsman")
CMC_IOMPackage_Name.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOMPackage_Name.setProtocolAttributeName("Name")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOMPackage_Name)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("Name")
Dim CMC_IOMPackage_ClassId
Set CMC_IOMPackage_ClassId = New AttributeProperty
CMC_IOMPackage_ClassId.setProtocol("wsman")
CMC_IOMPackage_ClassId.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOMPackage_ClassId.setProtocolAttributeName("ClassId")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOMPackage_ClassId)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("classID")
Dim CMC_IOModule_IPAddress
Set CMC_IOModule_IPAddress = New AttributeProperty
CMC_IOModule_IPAddress.setProtocol("wsman")
CMC_IOModule_IPAddress.setClassName("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_IOMPackage")
CMC_IOModule_IPAddress.setProtocolAttributeName("IPv4Address")
CMC_IOModule_IOMPackage_Obj.setAttributePropertyObject(CMC_IOModule_IPAddress)
CMC_IOModule_IOMPackage_Obj.setAttributeDictionary("IPAddress")
CMC_IOModule_IOMPackage_Obj.populateProfileClassNameList()
profileInfoDict.Add "Dell.Chassis.IOModule.wsman.dell_iompackage",CMC_IOModule_IOMPackage_Obj
End Function
Public Function destroyCOMObjects()
profileInfoDict.RemoveAll
set profileInfoDict = Nothing
End Function
End Class
'#################################################################################################################################
</ProfileDictionaryScript>
<ComponentInstanceFactoryScript>
'#################################################################################################################################
'**************************************************************************************************
'Component Instance Classes
'**************************************************************************************************
Class ChassisInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.ModularChassis.CMC", new ChassisInstance
Class FanGroupInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.FanGroup']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.FanGroup']/ID$", keyPropertyDictionary.Item("Dell.Chassis.FanGroup/ID"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.FanGroup']/RemoteAccessIP$", protParameterObj.getProtocolParameterValue("IPAddress"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.FanGroup']/RemoteSettings$", getRemoteSetting())
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", displayName )
omAPIHelper.AddInstanceToDiscoveryData oInst
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.FanGroup", new FanGroupInstance
Class FanInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByVal displayName, ByVal manufacturer, ByVal slot)
If Not compObject is Nothing Then
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Fan']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.FanGroup']/ID$", keyPropertyDictionary.Item("Dell.Chassis.FanGroup/ID"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Fan']/FQDD$", keyPropertyDictionary.Item("Dell.Chassis.Fan/FQDD"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Fan']/Manufacturer$", manufacturer)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Fan']/Slot$", slot)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", displayName)
omAPIHelper.AddInstanceToDiscoveryData oInst
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Fan", new FanInstance
Class ChassisPCIeDeviceGroup
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.PCIeDeviceGroup", new ChassisPCIeDeviceGroup
Class ChassisPCIeDevice
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef PCIeDeviceObj, ByRef PCISlotObj, ByRef displayName)
If Not PCIeDeviceObj is Nothing Then
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/FQDD$", keyPropertyDictionary.Item("Dell.Chassis.PCIeDevice/FQDD"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDeviceGroup']/ID$", keyPropertyDictionary.Item("Dell.Chassis.PCIeDeviceGroup/ID"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/Fabric$", PCISlotObj.getAttributevalue("Fabric"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/AssignedSlot$", PCIeDeviceObj.getAttributevalue("AssignedSlot"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/AssignedBlade$", PCIeDeviceObj.getAttributevalue("AssignedBlade"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/SlotType$", PCISlotObj.getAttributevalue("SlotType"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/PCIeSlot$", PCISlotObj.getAttributevalue("PCIeSlot"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/Description$", PCIeDeviceObj.getAttributevalue("Description"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/Databuswidth$", PCIeDeviceObj.getAttributevalue("Databuswidth"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.PCIeDevice']/Manufacturer$", PCIeDeviceObj.getAttributevalue("Manufacturer"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", displayName)
omAPIHelper.AddInstanceToDiscoveryData oInst
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.PCIeDevice", new ChassisPCIeDevice
Class ChassisPowerSupplyGroup
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.PowerSupplyGroup", new ChassisPowerSupplyGroup
Class ChassisPowerSupplyDevice
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Set CreateAndPopulateInstance = oInst
End Function
End Class
creatorFactory.Add "Dell.Chassis.PowerSupply", new ChassisPowerSupplyDevice
Class ChassisIOModuleGroup
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.IOModuleGroup", new ChassisIOModuleGroup
Class ChassisIOModule
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef iom_packageComp, ByRef iom_passthroughComp, ByRef getniccfgDict)
If Not iom_passthroughComp is Nothing Then
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.IOModule']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModuleGroup']/ID$", keyPropertyDictionary.Item("Dell.Chassis.IOModuleGroup/ID"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/FQDD$", keyPropertyDictionary.Item("Dell.Chassis.IOModule/FQDD"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/Manufacturer$", iom_packageComp.getattributevalue("Manufacturer"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/Model$", iom_packageComp.getattributevalue("Model"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/SerialNumber$", iom_packageComp.getattributevalue("SerialNumber"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/PartNumber$", iom_packageComp.getattributevalue("PartNumber"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/Slot$", iom_passthroughComp.getattributevalue("Slot"))
Dim fabricTypeattr, fabricTypevalarr, fabricTypeval, fabricType
Dim tempval
fabricTypeattr = iom_passthroughComp.getAttributevalue("FabricType")
log.MOMDebugLog 1, "fabric type map : " & fabricTypeattr
fabricTypevalarr = Split(fabricTypeattr,",")
For Each fabricTypeval In fabricTypevalarr
Select Case fabricTypeval
Case "2"
tempval = "Ethernet"
Case "3"
tempval = "IB"
Case "4"
tempval = "FC"
Case "5"
tempval = "FDDI"
Case "6"
tempval = "ATM"
Case "9"
tempval = "Infrared"
Case "10"
tempval = "BlueTooth"
Case "11"
tempval = "Wireless LAN"
Case else
tempval = "Unknown"
log.MOMDebugLog 1, "fabric type map is not found, so making it Unknown"
End Select
fabricType = fabricType & "," & tempval
next
fabricType = Replace(fabricType,",","",1,1)
log.MOMDebugLog 1, "fabric type value is" & fabricType
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/FabricType$",fabricType )
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/IPAddress$", getniccfgDict.Item("IPAddress"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/SubnetMask$", getniccfgDict.Item("SubnetMask"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/Gateway$", getniccfgDict.Item("Gateway"))
If getniccfgDict.Item("IPAddress") <> "Not Available" Then
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/LaunchURL$", "http://" & getniccfgDict.Item("IPAddress") )
Else
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.IOModule']/LaunchURL$", "Not Available" )
End If
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", iom_packageComp.getattributevalue("Model"))
omAPIHelper.AddInstanceToDiscoveryData oInst
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.IOModule", new ChassisIOModule
Class ChassisCMCGroup
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.CMCGroup", new ChassisCMCGroup
Class ChassisCMC
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef cmc_racadm_getmodinfo, ByRef cmc_racadm_getversion, ByRef wsmanattrDict, ByRef racadmPresence)
Set oInst = omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.CMC']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMCGroup']/ID$", keyPropertyDictionary.Item("Dell.Chassis.CMCGroup/ID"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/FQDD$", keyPropertyDictionary.Item("Dell.Chassis.CMC/FQDD"))
If strComp(racadmPresence,"Yes") = 0 Then
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/CMCRole$", cmc_racadm_getmodinfo.getattributevalue("powerstatus"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/FirmwareVersion$", cmc_racadm_getversion.getattributevalue("FirmwareVersion"))
Else
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/CMCRole$", MsgRacadmNotPresent)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/FirmwareVersion$", wsmanattrDict.Item("firmwareVersion"))
End If
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/Manufacturer$", wsmanattrDict.Item("manufacturer"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/Model$",wsmanattrDict.Item("model"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/SerialNumber$", wsmanattrDict.Item("serialNumber"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.CMC']/PartNumber$",wsmanattrDict.Item("partNumber"))
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", keyPropertyDictionary.Item("Dell.Chassis.CMC/FQDD"))
omAPIHelper.AddInstanceToDiscoveryData oInst
Set CreateAndPopulateInstance = oInst
End Function
End Class
creatorFactory.Add "Dell.Chassis.CMC", new ChassisCMC
Class StorageInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage", new StorageInstance
Class ControllerInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
Dim memSizeStr
Dim memSizeInt
If compObject.getAttributevalue("CacheMemorySize") <> "Not Available" Then
memSizeInt = CDbl(compObject.getAttributevalue("CacheMemorySize"))
If memSizeInt < 1024 Then
memSizeStr = compObject.getAttributevalue("CacheMemorySize") & " MB"
ElseIf memSizeInt >= 1024 And memSizeInt < 1048576 Then
memSizeInt = memSizeInt / 1024
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " GB"
ElseIf memSizeInt >= 1048576 And memSizeInt < 1073741824 Then
memSizeInt = memSizeInt / 1048576
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " TB"
ElseIf memSizeInt >= 1073741824 And memSizeInt < 1099511627776 Then
memSizeInt = memSizeInt / 1073741824
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " PB"
End If
Else
memSizeStr = "Not Available"
End If
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller", new ControllerInstance
Class VirtualDiskGroupInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
log.MOMDebugLog 1, "Entered Virtual disk group creation"
If Not compObject is Nothing Then
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.VirtualDiskGroup']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.VirtualDiskGroup", new VirtualDiskGroupInstance
Class VirtualDiskInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered Virtual disk instance creation"
Dim memSizeStr
Dim memSizeInt
If compObject.getAttributevalue("Capacity") <> "Not Available" Then
memSizeInt = CDbl(compObject.getAttributevalue("Capacity"))
If memSizeInt < 1024 Then
memSizeStr = compObject.getAttributevalue("Capacity") & " Bytes"
ElseIf memSizeInt >= 1024 And memSizeInt < 1048576 Then
memSizeInt = memSizeInt / 1024
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " KB"
ElseIf memSizeInt >= 1048576 And memSizeInt < 1073741824 Then
memSizeInt = memSizeInt / 1048576
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " MB"
ElseIf memSizeInt >= 1073741824 And memSizeInt < 1099511627776 Then
memSizeInt = memSizeInt / 1073741824
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " GB"
ElseIf memSizeInt >= 1099511627776 And memSizeInt < 1125899906842624 Then
memSizeInt = memSizeInt / 1099511627776
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " TB"
ElseIf memSizeInt >= 1125899906842624 Then
memSizeInt = memSizeInt / 1125899906842624
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " PB"
End If
Else
memSizeStr = "Not Available"
End If
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.VirtualDisk']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.VirtualDisk", new VirtualDiskInstance
Class InternalPhysicalDiskInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function convertSize(ByRef memSizeInt)
Dim memSizeStr
If memSizeInt < 1024 Then
memSizeStr = Cstr(memSizeInt) & " Bytes"
ElseIf memSizeInt >= 1024 And memSizeInt < 1048576 Then
memSizeInt = memSizeInt / 1024
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " KB"
ElseIf memSizeInt >= 1048576 And memSizeInt < 1073741824 Then
memSizeInt = memSizeInt / 1048576
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " MB"
ElseIf memSizeInt >= 1073741824 And memSizeInt < 1099511627776 Then
memSizeInt = memSizeInt / 1073741824
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " GB"
ElseIf memSizeInt >= 1099511627776 And memSizeInt < 1125899906842624 Then
memSizeInt = memSizeInt / 1099511627776
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " TB"
ElseIf memSizeInt >= 1125899906842624 Then
memSizeInt = memSizeInt / 1125899906842624
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " PB"
End If
convertSize = memSizeStr
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered creation of Internal physical disk creation"
Dim sizeStr
Dim sizeInt
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDisk']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDisk", new InternalPhysicalDiskInstance
Class InternalPhysicalDiskGroupInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered creation of Internal physical disk group creation"
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDiskGroup']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDiskGroup", new InternalPhysicalDiskGroupInstance
Class ExternalPhysicalDiskInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function convertSize(ByRef memSizeInt)
Dim memSizeStr
If memSizeInt < 1024 Then
memSizeStr = Cstr(memSizeInt) & " Bytes"
ElseIf memSizeInt >= 1024 And memSizeInt < 1048576 Then
memSizeInt = memSizeInt / 1024
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " KB"
ElseIf memSizeInt >= 1048576 And memSizeInt < 1073741824 Then
memSizeInt = memSizeInt / 1048576
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " MB"
ElseIf memSizeInt >= 1073741824 And memSizeInt < 1099511627776 Then
memSizeInt = memSizeInt / 1073741824
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " GB"
ElseIf memSizeInt >= 1099511627776 And memSizeInt < 1125899906842624 Then
memSizeInt = memSizeInt / 1099511627776
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " TB"
ElseIf memSizeInt >= 1125899906842624 Then
memSizeInt = memSizeInt / 1125899906842624
memSizeInt = round(memSizeInt, 2)
memSizeStr = Cstr(memSizeInt) & " PB"
End If
convertSize = memSizeStr
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered creation of External physical disk creation"
Dim sizeStr
Dim sizeInt
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDisk']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDisk", new ExternalPhysicalDiskInstance
Class ExternalPhysicalDiskGroupInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered creation of External physical disk group creation"
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDiskGroup']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDiskGroup", new ExternalPhysicalDiskGroupInstance
Class EnclosureInstance
Private keyPropertyDictionary
Private oInst
Private Sub Class_Initialize
Set keyPropertyDictionary = CreateObject("Scripting.Dictionary")
keyPropertyDictionary.CompareMode = vbTextCompare
End Sub
Public Function ClearKeyProperties()
keyPropertyDictionary.RemoveAll 'Clear the dictionary
End Function
Public Function SetKeyProperty(ByRef key, ByRef val)
keyPropertyDictionary.Add key, val
End Function
Public Function CreateAndPopulateInstance(ByRef omAPIHelper, ByRef compObject, ByRef displayName)
If Not compObject is Nothing Then
log.MOMDebugLog 1, "Entered creation of Enclosure"
Set oInst=omAPIHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.Enclosure']$")
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
call omAPIHelper.oInstAddProperty(oInst, "$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$", keyPropertyDictionary.Item("Dell.Chassis.Storage/ID"))
Set CreateAndPopulateInstance = oInst
End If
End Function
End Class
creatorFactory.Add "Dell.Chassis.Storage.Controller.Enclosure", new EnclosureInstance
'#################################################################################################################################
</ComponentInstanceFactoryScript>
<ChassisComponentDiscoveryScript>
'#################################################################################################################################
'**************************************************************************************************
'We will list all the possible components of chassis(M100e, VRTx, Stomp) and a dicctionary is created with key as component names and values as Yes/No
'where Yes means there is no need to verify MN for the support WS-MAN profile otherwise do verify. In that way we will populate the dictionary and send
'the dictionary to profile dictionary creation, there if dictionary value is No then that particular components are not populated in profile. The main
'will again go through dictionary value in population of component instances.
Dim compDict
Set compDict = CreateObject("Scripting.Dictionary")
compDict.CompareMode = vbTextCompare
'Filling default values
compDict.Add "Fan", "No"
compDict.Add "PowerSupply", "No"
compDict.Add "Storage", "No"
compDict.Add "CMC", "No"
compDict.Add "PCIeDevice", "No"
compDict.Add "IOModule", "No"
'Traverse through the dictionary and verify a call with MN if dictionary value is No by default
Dim compDictKeys, Key, value
compDictKeys = compDict.Keys
For Each Key in compDictKeys
log.MOMDebugLog 1, "Key value is---" & Key
If (StrComp(compDict.Item(Key),"No") = 0) Then
value = verifyCallWithMN(Key)
compDict.Item(Key) = value
else
log.MOMDebugLog 1, "No need to verify for this key" & Key
End If
Next
'Now the component dictionary value will decide whether profile need to be populated or not.
Dim profileDictCreatorObj,racadmObject,racadmPresence
Set profileDictCreatorObj = New ProfileDictionaryCreator
Set racadmObject = New racadmDictionaryCreator
racadmPresence = racadmObject.IsRacadmPresent
compDictKeys = compDict.Keys
For Each Key in compDictKeys
log.MOMDebugLog 1, "Key value is" & Key
If (StrComp(compDict.Item(Key),"Yes") = 0 ) Then
If (StrComp(Key,"Storage") = 0) Then
log.MOMDebugLog 1, "Populating Storage profile dictionary"
profileDictCreatorObj.populateStorageProfileDictionary
End If
If (StrComp(Key,"Fan") = 0) Then
log.MOMDebugLog 1, "Populating Fan profile dictionary"
profileDictCreatorObj.populateFanProfileDictionary
End If
If (StrComp(Key,"PCIeDevice") = 0) Then
log.MOMDebugLog 1, "Populating PCIe Device profile dictionary"
profileDictCreatorObj.pcieDeviceProfileDictionary
End If
If (StrComp(Key,"PowerSupply") = 0) Then
log.MOMDebugLog 1, "Populating Power Supply profile dictionary"
profileDictCreatorObj.powersupplyProfileDictionay
End If
If (StrComp(Key,"IOModule") = 0) Then
log.MOMDebugLog 1, "Populating IO Module profile dictionary"
If racadmPresence = "Yes" Then
profileDictCreatorObj.ioModuleProfileDictionay
Else
profileDictCreatorObj.ioModuleWsmanProfileDictionary
End If
End If
If (StrComp(Key,"CMC") = 0) Then
log.MOMDebugLog 1, "Populating CMC profile dictionary"
If racadmPresence = "Yes" Then
profileDictCreatorObj.cmcProfileDictionary
Else
profileDictCreatorObj.cmcWsmanProfileDictionary
End If
End If
End If
Next
'Now we got the profile dictionaries created for all possible components.
Dim profileInfoDict, profile
Set profileInfoDict = profileDictCreatorObj.GetProfileDictionary()
Dim profDictReader
Set profDictReader = New ProfileDictionaryReader
profDictReader.setListofProtocolAndClassNames(profileInfoDict)
Dim protoList
protoList = profDictReader.getProtocolList()
Dim classList, racadmCmdList
classList = profDictReader.getClassNameList()
racadmCmdList = profDictReader.getracadmCmdList()
Dim protFactoryObj
Set protFactoryObj = New ProtocolFactory
'Traverse through the protocol list and depending up the protocol pass the protocol parameter object
'In case of wsman a DLL object is returned
Dim protocol, cls, cmd
Dim wsmanInvDataParser, compObjectList, wsmanHelperOject, wsmanInventoryProfileHandle, i
Dim racadmcompObjList
Dim wsmanPresence
racadmPresence = "No"
wsmanPresence = "No"
Set wsmanHelperOject = Nothing
Set wsmanInvDataParser = Nothing
Set compObjectList = Nothing
set wsmanInventoryProfileHandle=CreateObject("Scripting.Dictionary")
wsmanInventoryProfileHandle.CompareMode = vbTextCompare
Dim racadmDataParserObj, racadmcompObjectList, racadmInventoryProfileHandle
For Each protocol in protoList
If (StrComp(protocol,"wsman") = 0) Then
Set wsmanHelperOject = protFactoryObj.getProtocolHelperObject(protocol, protParameterObj)
wsmanHelperOject.ProfileNameArrayObj=classList
Set wsmanInventoryProfileHandle = wsmanHelperOject.GetProfileDictionary()
If IsNull(wsmanInventoryProfileHandle) Then
log.MOMDebugLog 1, "Dell Device Helper returned null value. No wsman inventory will be found for this device"
else
log.MOMDebugLog 1, "Dell Device helper successfully retrieved all profile from device"
wsmanPresence = "Yes"
End If
End If
If (StrComp(protocol,"racadm") = 0) Then
racadmObject.setUserName(racadmParameterObj.getProtocolParameterValue("UserName"))
racadmObject.setPassword(racadmParameterObj.getProtocolParameterValue("Password"))
racadmObject.setPort(racadmParameterObj.getProtocolParameterValue("Port"))
racadmObject.setIPAddress(racadmParameterObj.getProtocolParameterValue("IPAddress"))
racadmObject.setCmdList(racadmCmdList)
racadmPresence = racadmObject.populateracadmDictionary
log.MOMDebugLog 1, "racadm presence returned is --" & racadmPresence
End If
Next
Dim chassisCompModellerObj, oChassisInst
Set chassisCompModellerObj = New ChassisComponentModeller
Dim m_momApiHelper
Set m_momApiHelper = New MOMAPIHelper
Call m_momApiHelper.CreateDiscoveryData(SourceId, ManagedEntityId)
Dim oInst
if (StrComp(racadmPresence,"No") = 0) And (StrComp(wsmanPresence,"No") = 0) Then
log.MOMDebugLog 1, "Creating Empty Discovery data"
Set oInst = m_momApiHelper.CreateClassInstance("$MPElement[Name='DellOperationsCommon!Dell.Discovery.Sink']$")
call m_momApiHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", "Dell Discovery Sink")
call m_momApiHelper.oInstAddProperty(oInst, "$MPElement[Name='DellOperationsCommon!Dell.Discovery.Sink']/Name$", principalName)
m_momApiHelper.AddInstanceToDiscoveryData oInst
log.MOMDebugLog 1, "submitting empty discovery data"
Call m_momApiHelper.SubmitDiscoveryData()
m_momApiHelper.destroyCOMObjects()
set m_momApiHelper = Nothing
log.MOMDebugLog 1, "Exiting the process because both racadmPresence and wsmanPresence status are NO"
Wscript.Quit
End If
call chassisCompModellerObj.setMomApiHelper(m_momApiHelper)
call chassisCompModellerObj.setChassisUID("$Target/Property[Type='DAD!Dell.ModularChassis.CMC']/UID$")
chassisCompModellerObj.chassisComponentCreation
Set oChassisInst = chassisCompModellerObj.getChassisInstance()
'Go through the component dictionary and populate the respective chassis components
Dim InventoryPresence
InventoryPresence = "No"
'variables which are created by wsman and used in racadm and also vice versa
Dim cmcWsman_ChMgrPckg
For Each Key in compDictKeys
log.MOMDebugLog 1, "component to be discovered is---" & Key
If(StrComp(wsmanPresence,"Yes") = 0) Then
Set wsmanInvDataParser = New InventoryDataParser
wsmanInvDataParser.setComponentInventoryProfileHandle(wsmanInventoryProfileHandle)
wsmanInvDataParser.populateComponentObjects(profileInfoDict)
compObjectList = wsmanInvDataParser.getComponentObjects()
'populating storage and its heirarchy
If ((StrComp(Key,"Storage")=0) And StrComp(compDict.Item(Key),"Yes") =0) Then
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating Storage heirarchy of Chassis"
'Creating Storage heirarchy of Chassis
Dim stoContList, stoEnclList, stoVirtDiskList, stoPhyDiskList, compObjListFilter
Dim oStoInst, oServStoRelationship
Set compObjListFilter = New ComponentObjectListFilter
stoContList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.Storage.Controller")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
stoEnclList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.Storage.Controller.Enclosure")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
stoVirtDiskList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.Storage.Controller.VirtualDisk")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
stoPhyDiskList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.Storage.Controller.PhysicalDisk")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
call chassisCompModellerObj.performStorageComponentModelling(stoContList, stoEnclList, stoPhyDiskList, stoVirtDiskList)
Set oStoInst = chassisCompModellerObj.getStorageInstance()
Set oServStoRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.Storage']$", oChassisInst, oStoInst)
m_momApiHelper.AddInstanceToDiscoveryData oServStoRelationship
'Creating relationship between VD's and their assigned server blades
Dim baldeServerList,raidVAViewList
Set compObjListFilter = New ComponentObjectListFilter
baldeServerList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.BladeServer")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
raidVAViewList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.RAIDVAView")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
call chassisCompModellerObj.performBladeServerInst(baldeServerList,raidVAViewList,stoContList)
End If
'populating Fan component
If ( (StrComp(Key,"Fan")=0) And (StrComp(compDict.Item(Key),"Yes") = 0) ) Then
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating Fan inventory of chassis"
Dim fanGroupInst,chassisFanGroupRelationship
call chassisCompModellerObj.performChassisFanModelling(compObjectList)
Set fanGroupInst = chassisCompModellerObj.getFanGroupInstance()
Set chassisFanGroupRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.FanGroup']$", oChassisInst, fanGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData chassisFanGroupRelationship
End If
'populating power supply inventory
If ((StrComp(Key,"PowerSupply")=0) And StrComp(compDict.Item(Key),"Yes") = 0) Then
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating Power Supply inventory of chassis"
Dim Chassis_PSPack, Chassis_PowerSupply, Chassis_PSSlot
Dim oPowerSupplyGroupInst, oChassisPowerSupplyRelationship
Set compObjListFilter = New ComponentObjectListFilter
Chassis_PSPack = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.PowerSupply.Dell_PSPackage")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
Chassis_PowerSupply = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.PowerSupply.Dell_PowerSupply")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
Chassis_PSSlot = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.PowerSupply.Dell_PSSlot")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
call chassisCompModellerObj.performChassisPowerSupplyModelling(Chassis_PowerSupply, Chassis_PSPack, Chassis_PSSlot)
Set oPowerSupplyGroupInst = chassisCompModellerObj.getChassisPowerSupplyGroupInstance()
Set oChassisPowerSupplyRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.ChassisPowerSupplyGroup']$", oChassisInst, oPowerSupplyGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData oChassisPowerSupplyRelationship
End If
'populatinf PCIeDevice inventory
If ((StrComp(Key,"PCIeDevice")=0) And StrComp(compDict.Item(Key),"Yes") = 0) Then
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating PCIe Device Inventory"
Dim PCIeDevice_PCISlotList, PCIeDevice_DeviceViewList
Dim oPCIeGroupInst, oChassisPCIeRelationship
Set compObjListFilter = New ComponentObjectListFilter
PCIeDevice_DeviceViewList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.PCIeDevice.PCIDeviceView")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
PCIeDevice_PCISlotList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.PCIeDevice.PCISlot")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
call chassisCompModellerObj.performChassisPCIeDeviceModelling(PCIeDevice_DeviceViewList, PCIeDevice_PCISlotList)
Set oPCIeGroupInst = chassisCompModellerObj.getChassisPCIeGroupInstance()
Set oChassisPCIeRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.ChassisPCIeDeviceGroup']$", oChassisInst, oPCIeGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData oChassisPCIeRelationship
End If
If ( (StrComp(Key,"IOModule")=0) And (StrComp(compDict.Item(Key),"Yes")=0) ) Then
Dim iomodule_dell_passthroughList, iomodule_dell_iompackageList, iomodule_getioinfoList
Dim oIOModuleGroupInst, oChassisIoModuleRelationship
Set compObjListFilter = New ComponentObjectListFilter
iomodule_dell_passthroughList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.IOModule.wsman.dell_passthroughmodule")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
iomodule_dell_iompackageList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.IOModule.wsman.dell_iompackage")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
If(StrComp(racadmPresence,"Yes") = 0) Then
Set compObjListFilter = New ComponentObjectListFilter
iomodule_getioinfoList = compObjListFilter.fetchRequestedComponentObjectList(racadmcompObjList, "Dell.Chassis.IOModule.racadm.getioinfo")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
End If
call chassisCompModellerObj.performChassisIOmoduleModelling(iomodule_dell_passthroughList, iomodule_dell_iompackageList, iomodule_getioinfoList, racadmPresence)
Set oIOModuleGroupInst = chassisCompModellerObj.getChassisIOModuleGroupInstance()
Set oChassisIoModuleRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.DellIOModuleGroup']$", oChassisInst, oIOModuleGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData oChassisIoModuleRelationship
End If
End If
'racadm
If(StrComp(racadmPresence,"Yes") = 0) Then
Set racadmDataParserObj = New racadmDataParser
racadmDataParserObj.setRacadmDictionary(racadmObject.getracadmDictionary)
racadmDataParserObj.populateracadmComponentObjects(profileInfoDict)
racadmcompObjList = racadmDataParserObj.getComponentObjects()
If ( (StrComp(Key,"CMC")=0) And (StrComp(compDict.Item(Key),"Yes")=0) ) Then
If(StrComp(wsmanPresence, "Yes") = 0) Then
'used for creation of cmc component
Set compObjListFilter = New ComponentObjectListFilter
cmcWsman_ChMgrPckg = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.cmc.wsman")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
End If
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating CMC component Inventory"
Dim cmcRacadm_getmodinfo, cmcRacadm_getversion, oCMCeGroupInst, oChassisCMCRelationship
Set compObjListFilter = New ComponentObjectListFilter
cmcRacadm_getmodinfo = compObjListFilter.fetchRequestedComponentObjectList(racadmcompObjList, "Dell.Chassis.cmc.racadm.getmodinfo")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
Set compObjListFilter = New ComponentObjectListFilter
cmcRacadm_getversion = compObjListFilter.fetchRequestedComponentObjectList(racadmcompObjList, "Dell.Chassis.cmc.racadm.getversion")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
call chassisCompModellerObj.performChassisCMCModelling(cmcWsman_ChMgrPckg, cmcRacadm_getmodinfo, cmcRacadm_getversion, wsmanPresence, racadmPresence)
Set oCMCeGroupInst = chassisCompModellerObj.getChassisCMCGroupInstance()
Set oChassisCMCRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.DellCMCGroup']$", oChassisInst, oCMCeGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData oChassisCMCRelationship
End If
Else
If ( (StrComp(Key,"CMC")=0) And (StrComp(compDict.Item(Key),"Yes")=0) ) Then
If(StrComp(wsmanPresence, "Yes") = 0) Then
'used for creation of cmc component
Set compObjListFilter = New ComponentObjectListFilter
cmcWsman_ChMgrPckg = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, "Dell.Chassis.cmc.wsman")
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
End If
InventoryPresence = "Yes"
log.MOMDebugLog 1, "Creating CMC component Inventory"
call chassisCompModellerObj.performChassisCMCModelling(cmcWsman_ChMgrPckg, cmcRacadm_getmodinfo, cmcRacadm_getversion, wsmanPresence, racadmPresence)
Set oCMCeGroupInst = chassisCompModellerObj.getChassisCMCGroupInstance()
Set oChassisCMCRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!DellModularChassis.Contains.DellCMCGroup']$", oChassisInst, oCMCeGroupInst)
m_momApiHelper.AddInstanceToDiscoveryData oChassisCMCRelationship
End If
End If
next
'Clearing all dictionaried that created and populated
profileDictCreatorObj.destroyCOMObjects()
Set profileDictCreatorObj = Nothing
profDictReader.destroyCOMObjects()
set profDictReader = Nothing
protFactoryObj.destroyCOMObjects()
Set protFactoryObj = Nothing
If Not wsmanInventoryProfileHandle Is Nothing Then
wsmanInventoryProfileHandle.RemoveAll
Set wsmanInventoryProfileHandle = Nothing
End IF
If Not wsmanInvDataParser Is Nothing Then
wsmanInvDataParser.destroyCOMObjects()
Set wsmanInvDataParser = Nothing
End If
If Not wsmanHelperOject Is Nothing Then
wsmanHelperOject.ClearProfileDictionary()
set wsmanHelperOject = Nothing
End If
chassisCompModellerObj.destroyCOMObjects()
set chassisCompModellerObj = Nothing
Dim compObj
If TypeName(compObjectList) <> "Nothing" Then
For Each compObj In compObjectList
If Not compObj Is Nothing Then
compObj.destroyCOMObjects()
set compObj = Nothing
End If
Next
End If
If (StrComp(InventoryPresence,"No") = 0) Then
log.MOMDebugLog 1, "Creating Empty Discovery data"
Set oInst = m_momApiHelper.CreateClassInstance("$MPElement[Name='DellOperationsCommon!Dell.Discovery.Sink']$")
call m_momApiHelper.oInstAddProperty(oInst, "$MPElement[Name='System!System.Entity']/DisplayName$", "Dell Discovery Sink")
call m_momApiHelper.oInstAddProperty(oInst, "$MPElement[Name='DellOperationsCommon!Dell.Discovery.Sink']/Name$", principalName)
m_momApiHelper.AddInstanceToDiscoveryData oInst
log.MOMDebugLog 1, "submitting empty discovery data"
else
log.MOMDebugLog 1, "Submitting chassis components discovery data...."
End If
Call m_momApiHelper.SubmitDiscoveryData()
m_momApiHelper.destroyCOMObjects()
set m_momApiHelper = Nothing
Function verifyCallWithMN(ByVal component)
If ( StrComp(component,"Storage") = 0) Then
Dim StoragePreCheckerObj
Set StoragePreCheckerObj = New StoragePreChecker
call StoragePreCheckerObj.setProtocol("wsman")
call StoragePreCheckerObj.setProtocolParameterObject(protParameterObj)
call StoragePreCheckerObj.setProfileClasses("cimv2/DCIM_ControllerView")
call StoragePreCheckerObj.setComponentInventoryProfileHandle(StoragePreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = StoragePreCheckerObj.IsStorageAvailable()
End If
If (StrComp(component,"PCIeDevice") = 0) Then
Dim PCIeDevicePreCheckerObj
Set PCIeDevicePreCheckerObj = New PCIeDevicePreChecker
call PCIeDevicePreCheckerObj.setProtocol("wsman")
call PCIeDevicePreCheckerObj.setProtocolParameterObject(protParameterObj)
call PCIeDevicePreCheckerObj.setProfileClasses("cimv2/DCIM_ChassisPCIDeviceView")
call PCIeDevicePreCheckerObj.setComponentInventoryProfileHandle(PCIeDevicePreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = PCIeDevicePreCheckerObj.IsPCIeDeviceAvailable()
End If
If (StrComp(component,"IOModule") = 0) Then
Dim IOModulePreCheckerObj
Set IOModulePreCheckerObj = New IOModulePreChecker
call IOModulePreCheckerObj.setProtocol("wsman")
call IOModulePreCheckerObj.setProtocolParameterObject(protParameterObj)
call IOModulePreCheckerObj.setProfileClasses("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PassThroughModule")
call IOModulePreCheckerObj.setComponentInventoryProfileHandle(IOModulePreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = IOModulePreCheckerObj.IsIOModuleAvailable()
End If
If (StrComp(component,"Fan") = 0) Then
Dim FanDevicePreCheckerObj
Set FanDevicePreCheckerObj = New FanDevicePreChecker
call FanDevicePreCheckerObj.setProtocol("wsman")
call FanDevicePreCheckerObj.setProtocolParameterObject(protParameterObj)
call FanDevicePreCheckerObj.setProfileClasses("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_Fan")
call FanDevicePreCheckerObj.setComponentInventoryProfileHandle(FanDevicePreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = FanDevicePreCheckerObj.IsFanDeviceAvailable()
End If
If ( StrComp(component,"PowerSupply") = 0) Then
Dim PowerSupplyPreCheckerObj
Set PowerSupplyPreCheckerObj = New PowerSupplyPreChecker
call PowerSupplyPreCheckerObj.setProtocol("wsman")
call PowerSupplyPreCheckerObj.setProtocolParameterObject(protParameterObj)
call PowerSupplyPreCheckerObj.setProfileClasses("http://schemas.dell.com/wbem/wscim/1/cim-schema/2/root/dell/Dell_PowerSupply")
call PowerSupplyPreCheckerObj.setComponentInventoryProfileHandle(PowerSupplyPreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = PowerSupplyPreCheckerObj.IsPowerSupplyAvailable()
End If
If ( StrComp(component,"CMC") = 0) Then
Dim CMCPreCheckerObj
Set CMCPreCheckerObj = New CMCPreChecker
call CMCPreCheckerObj.setProtocol("wsman")
call CMCPreCheckerObj.setProtocolParameterObject(protParameterObj)
call CMCPreCheckerObj.setProfileClasses("cimv2/DCIM_ModularChassisView")
call CMCPreCheckerObj.setComponentInventoryProfileHandle(CMCPreCheckerObj.fetchStorageControllerInfoFromDevice())
verifyCallWithMN = CMCPreCheckerObj.IsCMCAvailable()
End If
Private Sub Class_Initialize
Set m_racadmDictionary = CreateObject("Scripting.Dictionary")
m_racadmDictionary.CompareMode = vbTextCompare
ForReading = 1
End Sub
Public Function setUserName(ByRef userName)
m_UserName = userName
End Function
Public Function setPassword(ByRef Password)
m_Password = Password
End Function
Public Function setPort(ByRef Port)
m_Port = Port
End Function
Public Function setIPAddress(ByRef IPAddress)
m_IPAddress = IPAddress
End Function
Public Function setCmdList(ByRef cmdList)
m_cmdlist = cmdList
End Function
Public Function getracadmDictionary
Set getracadmDictionary = m_racadmDictionary
End Function
Private Function AddCommandDictionary(ByRef Key, ByRef Val)
m_racadmDictionary.Add Key, Val
End Function
Private Function bFileExists(ByRef filespec1)
'On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
bFileExists = (fso.FileExists(filespec1))
Set fso = Nothing
End Function
Private Function VerifyInstallPath(ByRef path)
On Error Resume Next
Dim installPath
installPath = path & "\racadm.exe"
If (bFileExists(installPath)) Then
VerifyInstallPath = True
else
VerifyInstallPath = False
End If
End Function
Private Function GetPathFromRegistry(ByVal strRacadmKey, ByRef installPath)
On Error Resume Next
Dim oShell, pathFromRegistry, newInstallPath
'Appending 5 to the path since the RACADM executable was placed under the RAC5 directory from OM 6.1
newInstallPath = pathFromRegistry & "5"
If pathFromRegistry <> "" Then
If (VerifyInstallPath(pathFromRegistry) = True) Then
installPath = pathFromRegistry
GetPathFromRegistry = True
ElseIf (VerifyInstallPath(newInstallPath) = True) Then
installPath = newInstallPath
GetPathFromRegistry = True
Else
GetPathFromRegistry = False
End If
Else
GetPathFromRegistry = False
If Err <> 0 Then
Wscript.Echo "RACADM Registry is empty for Key :" & strRacadmKey
Err.Clear
End If
End If
Set oShell = Nothing
End Function
Private Function GetRACADMInstallPath(ByVal RACADM32RegistryKey, ByVal RACADM64RegistryKey, ByRef o_sPath)
On Error Resume Next
Dim installPath
installPath = ""
If (GetPathFromRegistry (RACADM32RegistryKey, installPath) = True) Then
o_sPath = installPath
GetRACADMInstallPath = True
log.MOMDebugLog 1, "Got RACADM path from RACADM 32 bit Registry Key entry : " & installPath
ElseIf (GetPathFromRegistry (RACADM64RegistryKey, installPath) = True) Then
o_sPath = installPath
GetRACADMInstallPath = True
log.MOMDebugLog 1, "Got RACADM path from RACADM 64 bit Registry Key entry : " & installPath
Else
GetRACADMInstallPath = False
log.MOMDebugLog 1, "Unable to get RACADM path for Registry Entries"
End If
If Err <> 0 Then
GetRACADMInstallPath = Err.Number
Err.Clear
End If
On Error Goto 0
End Function
Private Function GetRACADMPath(ByRef o_sPath)
On Error Resume Next
'Default Location having RACADM executable for OMSA and Drac Tools
Const DEF_RACADM_PATH = "C:\Program Files\Dell\SysMgt\rac5"
Dim installerPath
installerPath = ""
If (GetRACADMInstallPath (RACADM_REG_INSTALL_PATH, RACADM64_REG_INTALL_PATH, installerPath) = True) Then
o_sPath = installerPath
log.MOMDebugLog 1, "Got RACADM path from OMSA"
ElseIf (GetRACADMInstallPath (REM_RACADM_REG_INTALL_PATH, REM_RACADM64_REG_INTALL_PATH, installerPath) = True) Then
o_sPath = installerPath
log.MOMDebugLog 1, "Got RACADM path from DRAC TOOLS"
ElseIf (VerifyInstallPath(DEF_RACADM_PATH) = True) Then
o_sPath = DEF_RACADM_PATH
log.MOMDebugLog 1, "Got RACADM path using the Default RACADM path : " & DEF_RACADM_PATH
Else
log.MOMDebugLog 1, "Did Not Get RACADM Path from either OMSA or DRAC Tools"
End If
If Err <> 0 Then
GetRACADMPath = Err.Number
Err.Clear
End If
End Function
'*****************************************************************
'DelFile
'Routine to delete the OMSA Report file
'*****************************************************************
Function DelFile(ByVal filespec2)
On Error Resume Next
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
Err.Clear
End If
On Error Goto 0
End Function
Private Function ExecuteQuery(ByRef cmd, ByRef module)
dim wsShell : Set wsShell = Createobject("WScript.Shell")
dim wshSysEnv : Set wshSysEnv = wsShell.Environment
dim tFolder : tFolder = wshSysEnv("TEMP")
dim wshPrcEnv : Set wshPrcEnv = wsShell.Environment("Process")
tFolder = Replace(tFolder, "%SystemRoot%", wshPrcEnv("SYSTEMROOT"), 1, -1, vbTextCompare)
Dim TypeLib, NewGUID, fileGuid, strCommand, oShell, rc, racadmPath, timeout, RunRemoteCmd
Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
fileGuid= (left(NewGUID, len(NewGUID)-2))
GetRACADMPath racadmPath
strRacadmFileOutput = tFolder & "\Dell_ChassisDetailed_" & fileGuid & ".txt"
If (StrComp(module, "Not Applicable") = 0) Then
strCommand = "cmd /C " & chr(34) & racadmPath & "\" & "racadm.exe" & Chr(34) & " -r " & m_IPAddress & ":" & m_Port & " -u " & m_Username & " -p " & m_Password & " " & cmd & " > " & strRacadmFileOutput
else
strCommand = "cmd /C " & chr(34) & racadmPath & "\" & "racadm.exe" & Chr(34) & " -r " & m_IPAddress & ":" & m_Port & " -u " & m_Username & " -p " & m_Password & " " & cmd & " " & " -m " & " " & module & " > " & strRacadmFileOutput
End If
Set oShell = CreateObject ("WScript.Shell")
rc = oShell.run (strCommand,0,true)
WScript.Sleep(1000)
if(rc = 0) Then
log.MOMDebugLog 1, "racadm for command--" & cmd & " is successful"
ExecuteQuery = "Successful"
else
log.MOMDebugLog 1, "RunRemoteCMD error: " & cmd
DelFile(strRacadmFileOutput)
ExecuteQuery = "NotSuccessful"
End If
End Function
'*****************************************************************
'RemoveWhiteSpaces
'Routine to
'*****************************************************************
Function RemoveWhiteSpace(ByVal strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "\s\s+"
'RegEx.MultistrLine = True
RegEx.Global = True
strText = RegEx.Replace(strText,"#")
RemoveWhiteSpace = strText
End Function
'*****************************************************************
'Removes whitespaces from the String(strLine) and then excecute regular
'expression to get headers list
'*****************************************************************
Function GetHeadersList(ByVal strLine, ByRef listOfHeaders)
Dim regExHeader
Set regExHeader = New RegExp
regExHeader.Pattern = "<(\w*\s*){1,}>"
regExHeader.IgnoreCase = vbTrue
regExHeader.Global = vbTrue
strLine = Trim(strLine)
strLine = RemoveWhiteSpace(strLine)
Set listOfHeaders = regExHeader.Execute(strLine)
GetHeadersList = strLine
End Function
Public Function populateracadmDictionary
Dim cmd, errcode
Dim i,j
Dim TempDict, TempKeys
Dim field
Dim objLogFSO1, oFile, strLine, LineItems, item, header, listOfHeaders
Dim getmodinfoPresence, getversionPresence, getioinfoPresence, getniccfgPresence
getmodinfoPresence = "No"
getversionPresence = "No"
getioinfoPresence = "No"
getniccfgPresence = "No"
log.MOMDebugLog 1, "Creating racadm profile dictionary--"
For Each cmd in m_cmdlist
log.MOMDebugLog 1, "command is--" & cmd
If (StrComp(cmd, "getmodinfo") = 0) Then
If(StrComp(ExecuteQuery(cmd, "Not Applicable"),"Successful") = 0) Then
If Not bFileExists(strRacadmFileOutput) Then
log.MOMDebugLog 1, "strRacadmFileOutput does not exist - " & strRacadmFileOutput
Else
Set objLogFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFile = objLogFSO1.OpenTextFile(strRacadmFileOutput, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
log.MOMDebugLog 1, " ERROR: Error in RemoteRacadm Output " & strLine
Err.Clear
ElseIf Instr(LCase(strLine),Lcase("ERROR: Unable to")) Then
log.MOMDebugLog 1, " ERROR: LOGIN IP/PORT/CREDENTIAL issue: " & strLine
ElseIf Instr(LCase(strLine),"<") Then
strLine = GetHeadersList(strLine,listOfHeaders)
Set TempDict = CreateObject("Scripting.Dictionary")
TempDict.CompareMode = vbTextCompare
For Each header In listOfHeaders
TempDict.Add header.Value, "NA"
Next
TempKeys = TempDict.Keys
j = TempDict.Count
Dim getmodInstanceObj
Set getmodInstanceObj = New racadmCmdInstancesCreator
Do While Not oFile.AtEndOfStream
strLine = oFile.Readline
If ( (IsEmpty(strLine) <> True ) And (strLine <> "") ) Then
strLine = Trim(strLine)
strLine = RemoveWhiteSpace(strLine)
LineItems = split(strLine,"#")
field = Lcase(LineItems(0))
If Instr(field,"cmc") Then
getmodinfoPresence = "Yes"
Dim getmodInstanceCMCAttributes
Set getmodInstanceCMCAttributes = New racadmCmdInstanceAttributeCreator
log.MOMDebugLog 1, "getmodinfo Key value pairs are"
For i = 0 to (j-1)
log.MOMDebugLog 1, "Key:" & TempKeys(i) & "Value:" & LineItems(i)
Call getmodInstanceCMCAttributes.AddAttributeDictionary(TempKeys(i), LineItems(i))
Next
Call getmodInstanceObj.AddInstanceDictionary(field, getmodInstanceCMCAttributes)
End If
End If
Loop
End If
Loop
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
errcode = DelFile(strRacadmFileOutput)
If errcode <> 0 Then
log.MOMDebugLog 1, " WARNING:! - DelFile error " & strRacadmFileOutput
End If
End If
If( StrComp(getmodinfoPresence,"Yes") = 0) Then
log.MOMDebugLog 1, "racadm dictionary is populated with key as---" & cmd
Call AddCommandDictionary(cmd,getmodInstanceObj)
End If
End If
End If
If (StrComp(cmd, "getversion") = 0) Then
If(StrComp(ExecuteQuery(cmd, "Not Applicable"),"Successful") = 0) Then
If Not bFileExists(strRacadmFileOutput) Then
log.MOMDebugLog 1, "strRacadmFileOutput does not exist - " & strRacadmFileOutput
Else
Set objLogFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFile = objLogFSO1.OpenTextFile(strRacadmFileOutput, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If Instr(Lcase(strLine),"error") Then
log.MOMDebugLog 1, " ERROR: Error in RemoteRacadm Output " & strLine
Err.Clear
ElseIf Instr(LCase(strLine),Lcase("ERROR: Unable to")) Then
log.MOMDebugLog 1, " ERROR: LOGIN IP/PORT/CREDENTIAL issue: " & strLine
ElseIf Instr(LCase(strLine),"<cmc") Then
strLine = GetHeadersList(strLine,listOfHeaders)
Set TempDict = CreateObject("Scripting.Dictionary")
TempDict.CompareMode = vbTextCompare
For Each header in listOfHeaders
TempDict.Add header.value, "NA"
Next
TempKeys = TempDict.Keys
j = TempDict.Count
Dim getversionInstanceObj
Set getversionInstanceObj = New racadmCmdInstancesCreator
Do While Not oFile.AtEndOfStream
strLine = oFile.Readline
If ( (IsEmpty(strLine) <> True ) And (strLine <> "")) Then
strLine = Trim(strLine)
strLine = RemoveWhiteSpace(strLine)
LineItems = split(strLine,"#")
field = Lcase(LineItems(0))
If Instr(field,"cmc") Then
getversionPresence = "Yes"
Dim getversionInstanceCMCAttributes
Set getversionInstanceCMCAttributes = New racadmCmdInstanceAttributeCreator
For i = 0 to (j-1)
log.MOMDebugLog 1, "Key is" & TempKeys(i) & "Value is:" & LineItems(i)
Call getversionInstanceCMCAttributes.AddAttributeDictionary(TempKeys(i), LineItems(i))
Next
Call getversionInstanceObj.AddInstanceDictionary(field, getversionInstanceCMCAttributes)
End If
End If
Loop
End If
Loop
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
errcode = DelFile(strRacadmFileOutput)
If errcode <> 0 Then
log.MOMDebugLog 1, " WARNING:! - DelFile error " & strRacadmFileOutput
End If
End If
If (StrComp(getversionPresence, "Yes") = 0) Then
log.MOMDebugLog 1, "racadm dictionary is populated with key as---" & cmd
Call AddCommandDictionary(cmd,getversionInstanceObj)
End If
End If
End If
If (StrComp(cmd,"getioinfo") = 0) Then
Dim switchline
If(StrComp(ExecuteQuery(cmd, "Not Applicable"),"Successful") = 0) Then
If Not bFileExists(strRacadmFileOutput) Then
log.MOMDebugLog 1, "strRacadmFileOutput does not exist - " & strRacadmFileOutput
Else
Set objLogFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFile = objLogFSO1.OpenTextFile(strRacadmFileOutput, ForReading, False)
Set TempDict = CreateObject("Scripting.Dictionary")
TempDict.CompareMode = vbTextCompare
TempDict.Add "switchLine", " "
Dim getioinfoInstanceObj
Set getioinfoInstanceObj = New racadmCmdInstancesCreator
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If ( (IsEmpty(strLine) <> True ) And (strLine <> "") ) Then
If Instr(Lcase(strLine),"error") Then
log.MOMDebugLog 1, " ERROR: Error in RemoteRacadm Output " & strLine
Err.Clear
ElseIf Instr(LCase(strLine),Lcase("ERROR: Unable to")) Then
log.MOMDebugLog 1, " ERROR: LOGIN IP/PORT/CREDENTIAL issue: " & strLine
Else
strLine = RemoveWhiteSpace(strLine)
LineItems = split(strLine,"#")
field = Lcase(LineItems(0))
Log.MOMDebugLog 1, "field value is " & field
If(Instr(field,"switch")) Then
Dim getIOInstanceObj
Set getIOInstanceObj = New racadmCmdInstancesCreator
TempKeys = TempDict.Keys
j = TempDict.Count
getioinfoPresence = "Yes"
Dim getioinfoinstanceattrObj
Set getioinfoinstanceattrObj = New racadmCmdInstanceAttributeCreator
switchline = field
For i = 0 to (j-1)
log.MOMDebugLog 1, "Key is" & TempKeys(i) & "Value is:" & strLine
Call getioinfoinstanceattrObj.AddAttributeDictionary(TempKeys(i),switchline)
Next
Call getioinfoInstanceObj.AddInstanceDictionary(field, getioinfoinstanceattrObj)
End If
End If
End If
Loop
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
errcode = DelFile(strRacadmFileOutput)
If errcode <> 0 Then
log.MOMDebugLog 1, " WARNING:! - DelFile error " & strRacadmFileOutput
End If
End If
If (StrComp(getioinfoPresence, "Yes") = 0) Then
log.MOMDebugLog 1, "racadm dictionary is populated with key as---" & cmd
Call AddCommandDictionary(cmd,getioinfoInstanceObj)
'getniccfg is called for each key created by getioinfo command
Dim obj1, m_commandDictionary, cmdDictKeys, m_cmdObjectAttrObj, attrKey, cmdKey, fieldval, tempval
If (m_racadmDictionary.Exists(cmd)) Then
Set obj1 = m_racadmDictionary.Item(cmd)
Set m_commandDictionary = obj1.getcommandDictionary
cmdDictKeys = m_commandDictionary.Keys
For Each cmdKey in cmdDictKeys
If (m_commandDictionary.Exists(cmdKey)) Then
Set m_cmdObjectAttrObj = m_commandDictionary.Item(cmdKey)
End If
log.MOMDebugLog 1, "command key passed is" & cmdKey
If(StrComp(ExecuteQuery("getniccfg",cmdKey),"Successful") = 0) Then
If Not bFileExists(strRacadmFileOutput) Then
log.MOMDebugLog 1, "strRacadmFileOutput does not exist - " & strRacadmFileOutput
Else
Set objLogFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFile = objLogFSO1.OpenTextFile(strRacadmFileOutput, ForReading, False)
Do While Not oFile.AtEndOfStream
strLine = Trim(oFile.ReadLine)
If ( (IsEmpty(strLine) <> True ) And (strLine <> "") ) Then
If Instr(Lcase(strLine),"error") Then
log.MOMDebugLog 1, " ERROR: Error in RemoteRacadm Output " & strLine
Err.Clear
ElseIf Instr(LCase(strLine),Lcase("ERROR: Unable to")) Then
log.MOMDebugLog 1, " ERROR: LOGIN IP/PORT/CREDENTIAL issue: " & strLine
Else
strLine = RemoveWhiteSpace(strLine)
LineItems = split(strLine,"#")
field = Lcase(LineItems(0))
log.MOMDebugLog 1, "sentence is --" & strLine
log.MOMDebugLog 1, "field is " & field
If (StrComp(field, "ip address") = 0) Then
fieldval = LineItems(1)
tempval = split(fieldval," ")
log.MOMDebugLog 1, "Key matched--" & field
Call m_cmdObjectAttrObj.AddAttributeDictionary(field, tempval(1))
End If
If (StrComp(field, "subnet mask") = 0) Then
fieldval = LineItems(1)
tempval = split(fieldval," ")
log.MOMDebugLog 1, "Key matched--" & field
Call m_cmdObjectAttrObj.AddAttributeDictionary(field, tempval(1))
End If
If (StrComp(field, "gateway") = 0) Then
fieldval = LineItems(1)
tempval = split(fieldval," ")
log.MOMDebugLog 1, "Key matched--" & field
Call m_cmdObjectAttrObj.AddAttributeDictionary(field, tempval(1))
End If
End If
End If
Loop
oFile.close
'Clean up the CLI Output : Delete %WINTEMP% \ %Guid1% .txt
errcode = DelFile(strRacadmFileOutput)
If errcode <> 0 Then
log.MOMDebugLog 1, " WARNING:! - DelFile error " & strRacadmFileOutput
End If
End If
End If
Next
End If
End If
End If
End If
Next
If ((StrComp(getmodinfoPresence,"Yes") = 0) And (StrComp(getversionPresence,"Yes") = 0) And (StrComp(getioinfoPresence,"Yes") = 0) ) Then
populateracadmDictionary = "Yes"
else
populateracadmDictionary = "No"
End If
End Function
Public Function IsRacadmPresent()
Dim getPath,returnVal
returnVal = "No"
getPath = ""
GetRACADMPath getPath
If getPath <> "" THEN
returnVal = "Yes"
END If
IsRacadmPresent = returnVal
End Function
End Class
Class StoragePreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsStorageAvailable()
Dim attributeName, attributeValue, profileClass,returnVal, manufacturer
Dim profileInstance, profileInstanceList
returnVal = "No"
log.MOMDebugLog 1, "Verifiying Chassis Storage Inventory."
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell deivice helper is not succeded in verification of Chassis Storage Inventory."
Else
For Each profileClass in m_ProfileClassList
log.MOMDebugLog 1, "profileClass:" & profileClass
Set profileInstanceList = m_componentInventoryProfileHandle.Item(profileClass)
For Each profileInstance In profileInstanceList
attributeName = "DeviceCardManufacturer"
attributeValue = profileInstance.getProfileAttributeValue(attributeName)
log.MOMDebugLog 1, "attributeName:" & attributeName & ", attributeValue:" & attributeValue
manufacturer = Trim(Lcase(attributeValue))
If instr(manufacturer, "dell ") = 1 OR manufacturer = "dell" OR manufacturer = "" Then
'For OEM Ready chassis manufacturer is blank in this case, in SCOM console it should display like "Not Available"
If manufacturer = "" OR IsNull(manufacturer) Then
attributeValue = "Not Available"
End If
log.MOMDebugLog 1, "Storage Controller Manufacturer found to be" & attributeValue
log.MOMDebugLog 1, "Dell deivice helper has completed for Chassis Storage Inventory"
returnVal = "Yes"
Else
log.MOMDebugLog 1, "Not discovering as Manufacturer name is " & manufacturer
End If
Next
Next
End If
IsStorageAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
Class PCIeDevicePreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsPCIeDeviceAvailable()
Dim returnVal, profileClass
Dim profileInstance, profileInstanceList
returnVal = "No"
log.MOMDebugLog 1, "Verifying PCIe Device Inventory"
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell deivice helper is not succeded in verification of PCIe Device Inventory"
Else
For Each profileClass in m_ProfileClassList
log.MOMDebugLog 1, "profileClass:" & profileClass
Set profileInstanceList = m_componentInventoryProfileHandle.Item(profileClass)
For Each profileInstance In profileInstanceList
log.MOMDebugLog 1, "Dell deivice helper had successfuly verified PCIe Device Inventory"
returnVal = "Yes"
Exit For
Next
Next
End If
IsPCIeDeviceAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper DLL."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
Class FanDevicePreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsFanDeviceAvailable()
Dim returnVal
log.MOMDebugLog 1, "Verifying Fan Device Inventory"
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell Device helper is not succeded in verification of Fan Device Inventory"
returnVal = "No"
Else
log.MOMDebugLog 1, "Dell Device helper had DLL succefully verified Fan Device Inventory"
returnVal = "Yes"
End If
IsFanDeviceAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper DLL."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
Class IOModulePreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsIOModuleAvailable()
Dim returnVal
log.MOMDebugLog 1, "Verifying IO Module"
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell Device Helper is not succeded in verification of IO Module"
returnVal = "No"
Else
log.MOMDebugLog 1, "Dell Device Helper had successfully verified IO Module"
returnVal = "Yes"
End If
IsIOModuleAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper DLL."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
Class PowerSupplyPreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsPowerSupplyAvailable()
Dim returnVal
log.MOMDebugLog 1, "Verifying Power Supply Module"
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell Device Helper is not succeded in verification of Power Supply Module"
returnVal = "No"
Else
log.MOMDebugLog 1, "Dell Device Helper had successfully verified Power Supply Module"
returnVal = "Yes"
End If
IsPowerSupplyAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper DLL."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
Class CMCPreChecker
Dim m_Protocol, m_ProtParameterObj, m_ProfileClassDict, m_componentInventoryProfileHandle
Dim m_protocolHelperObject, protFactoryObj, m_ProfileClassList, storageInfoObject
Private Sub Class_Initialize
Const ALL_PRODUCT_VERSIONS = ""
m_Protocol = ""
Set m_ProfileClassDict = CreateObject("Scripting.Dictionary")
m_ProfileClassDict.CompareMode = vbTextCompare
End Sub
Public Function setProtocol(ByRef protocol)
m_Protocol = protocol
End Function
Public Function setProtocolParameterObject(ByRef ProtParameterObj)
Set m_ProtParameterObj = ProtParameterObj
End Function
Public Function setComponentInventoryProfileHandle(ByRef componentInventoryProfileHandleObj)
Set m_componentInventoryProfileHandle = componentInventoryProfileHandleObj
End Function
Public Function setProfileClasses(ByRef profClass)
Dim message
If (m_ProfileClassDict.Exists(profClass)) Then
message = "Profile Class exist"
Else
m_ProfileClassDict.Add profClass, "NA"
message = "Profile Class does not exist"
End If
End Function
Public Function IsCMCAvailable()
Dim returnVal
log.MOMDebugLog 1, "Verifying CMC Module"
If m_componentInventoryProfileHandle Is Nothing Then
log.MOMDebugLog 1, "Dell Device Helper is not succeded in verification of CMC Module"
returnVal = "No"
Else
log.MOMDebugLog 1, "Dell Device Helper had successfully verified CMC Module"
returnVal = "Yes"
End If
IsCMCAvailable = returnVal
End Function
Public Function fetchStorageControllerInfoFromDevice()
Set protFactoryObj = New ProtocolFactory
Set m_protocolHelperObject = protFactoryObj.getProtocolHelperObject(m_Protocol, m_ProtParameterObj)
m_ProfileClassList = m_ProfileClassDict.Keys
m_protocolHelperObject.ProfileNameArrayObj = m_ProfileClassList
Set storageInfoObject = m_protocolHelperObject.GetProfileDictionary()
log.MOMDebugLog 1, "Received the Profile Dictionary from DellDeviceHelper DLL."
Set fetchStorageControllerInfoFromDevice = storageInfoObject
End Function
End Class
'**************************************************************************************************
'Storage Component Modeller code
'**************************************************************************************************
Class ChassisComponentModeller
Private m_enclosurePhysicalDiskMappingDict
Private m_controllerVirtualDiskMappingDict
Private m_momApiHelper
Private m_chassisUIDVal
Private m_oStoInst
Private m_ChassisInstance
Private m_fanGroupInstance
Private m_oPCIeGroupInst
Private m_oPowerSupplyGroupInst
Private m_VirtualDiskDict
Private m_oCMCGroupInst
Private m_oIOModuleGroupInst
Private Sub Class_Initialize
Set m_enclosurePhysicalDiskMappingDict = CreateObject("Scripting.Dictionary")
m_enclosurePhysicalDiskMappingDict.CompareMode = vbTextCompare
Set m_controllerVirtualDiskMappingDict = CreateObject("Scripting.Dictionary")
m_controllerVirtualDiskMappingDict.CompareMode = vbTextCompare
Set m_VirtualDiskDict = CreateObject("Scripting.Dictionary")
m_VirtualDiskDict.CompareMode = vbTextCompare
End Sub
Public Function destroyCOMObjects()
m_enclosurePhysicalDiskMappingDict.RemoveAll
m_controllerVirtualDiskMappingDict.RemoveAll
set m_enclosurePhysicalDiskMappingDict = Nothing
set m_controllerVirtualDiskMappingDict = Nothing
End Function
Public Function setMomApiHelper(ByRef mApiHelpObj)
Set m_momApiHelper = mApiHelpObj
End Function
Public Function getStorageInstance()
Set getStorageInstance = m_oStoInst
End Function
Public Function getChassisInstance()
Set getChassisInstance = m_ChassisInstance
End Function
Public Function getFanGroupInstance()
Set getFanGroupInstance = m_fanGroupInstance
End Function
Public Function setChassisUID(chassisUIDVal)
m_chassisUIDVal = chassisUIDVal
End Function
Public Function getChassisPCIeGroupInstance()
Set getChassisPCIeGroupInstance = m_oPCIeGroupInst
End Function
Public Function getChassisCMCGroupInstance()
Set getChassisCMCGroupInstance = m_oCMCGroupInst
End Function
Public Function getChassisIOModuleGroupInstance()
Set getChassisIOModuleGroupInstance = m_oIOModuleGroupInst
End Function
Public Function getChassisPowerSupplyGroupInstance()
Set getChassisPowerSupplyGroupInstance = m_oPowerSupplyGroupInst
End Function
Public Function performChassisPowerSupplyModelling(Chassis_PowerSupplyList, Chassis_PSPackList, Chassis_PSSlotList )
Dim className, componentInstance
'Create Chassis Power supply Group
className = "Dell.Chassis.PowerSupplyGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "ID", m_chassisUIDVal)
Set m_oPowerSupplyGroupInst = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Power Supply Group")
Dim nameDict, fqddDict, manuDict, slotDict, classId, serialNumberDict, partNumberDict, capacityDict, modelDict
Dim keys, name, fqdd, manufacturer, serialnumber, partnumber, capacity, slot, model, key
className = "Dell.Chassis.PowerSupply"
Set nameDict = CreateObject("Scripting.Dictionary")
Set fqddDict = CreateObject("Scripting.Dictionary")
Set manuDict = CreateObject("Scripting.Dictionary")
Set slotDict = CreateObject("Scripting.Dictionary")
Set modelDict = CreateObject("Scripting.Dictionary")
Set serialNumberDict = CreateObject("Scripting.Dictionary")
Set partNumberDict = CreateObject("Scripting.Dictionary")
Set capacityDict = CreateObject("Scripting.Dictionary")
'create dictionary for different power supply attributes with common classId as key
CreateAttributeDictionaryFromObjList fqddDict, Chassis_PowerSupplyList, "ClassId", "FQDD"
log.MOMDebugLog 1, "fqdd filled"
CreateAttributeDictionaryFromObjList capacityDict, Chassis_PowerSupplyList, "ClassId", "Capacity"
CreateAttributeDictionaryFromObjList manuDict, Chassis_PSPackList, "ClassId", "Manufacturer"
CreateAttributeDictionaryFromObjList modelDict, Chassis_PSPackList, "ClassId", "Model"
CreateAttributeDictionaryFromObjList serialNumberDict, Chassis_PSPackList, "ClassId", "SerialNumber"
CreateAttributeDictionaryFromObjList partNumberDict, Chassis_PSPackList, "ClassId", "PartNumber"
CreateAttributeDictionaryFromObjList nameDict, Chassis_PSPackList, "ClassId", "Name"
CreateAttributeDictionaryFromObjList slotDict, Chassis_PSSlotList, "ClassId", "Slot"
'get the list of keys; these keys are common in all the other Dictionaries
keys = fqddDict.Keys
'since the count of all dictionary is same; traverse with namedict
For i=0 to fqddDict.Count -1
'get the value of ClassId which can be used to index other dictionary
key = keys(i)
name = nameDict.item(key)
fqdd = fqddDict.item(key)
manufacturer = manuDict.item(key)
slot = slotDict.item(key)
serialnumber = serialNumberDict.item(key)
partnumber = partNumberDict.item(key)
capacity = capacityDict.item(key)
model = modelDict.item(key)
'create the Power Supply unit object
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.PowerSupplyGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.PowerSupply" & "/" & "FQDD", fqdd)
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, manufacturer, slot, serialnumber, partnumber, capacity, name, model)
call componentInstance.ClearKeyProperties()
Next
End Function
Public Function performChassisCMCModelling(ByRef cmc_ChMgrPckgList, ByRef cmc_racadm_getmodinfolist, ByRef cmc_racadm_getversionlist, ByRef wsmanPresence, ByRef racadmPresence)
Dim className, componentInstance, cmc_racadm_getmodinfo, cmc_ChMgrPckg, cmc_racadm_getversion
Dim model, manufacturer, serialNumber, partNumber, firmwareVersion
Dim wsmanattrDict
Set wsmanattrDict = CreateObject("Scripting.Dictionary")
wsmanattrDict.CompareMode = vbTextCompare
log.MOMDebugLog 1, "Creating CMC components"
'Create Chassis CMC group
className = "Dell.Chassis.CMCGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "ID", m_chassisUIDVal)
Set m_oCMCGroupInst = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "CMC Group")
className = "Dell.Chassis.CMC"
If(StrComp(racadmPresence,"Yes") = 0) Then
For Each cmc_racadm_getmodinfo in cmc_racadm_getmodinfolist
For Each cmc_racadm_getversion in cmc_racadm_getversionlist
If ( StrComp(Lcase(cmc_racadm_getmodinfo.getattributevalue("module")), Lcase(cmc_racadm_getversion.getattributevalue("CMC"))) = 0) Then
If ( StrComp(Lcase(cmc_racadm_getmodinfo.getattributevalue("powerstatus")), "primary") = 0) Then
If(StrComp(wsmanPresence,"Yes") = 0) Then
For Each cmc_ChMgrPckg in cmc_ChMgrPckgList
model = cmc_ChMgrPckg.getattributevalue("Model")
manufacturer = cmc_ChMgrPckg.getattributevalue("Manufacturer")
serialNumber = cmc_ChMgrPckg.getattributevalue("SerialNumber")
partNumber = cmc_ChMgrPckg.getattributevalue("PartNumber")
Next
End If
wsmanattrDict.Add "model" , model
wsmanattrDict.Add "manufacturer" , manufacturer
wsmanattrDict.Add "serialNumber" , serialNumber
wsmanattrDict.Add "partNumber" , partNumber
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.CMCGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", cmc_racadm_getmodinfo.getattributevalue("module"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, cmc_racadm_getmodinfo, cmc_racadm_getversion, wsmanattrDict, racadmPresence)
call componentInstance.ClearKeyProperties()
wsmanattrDict.RemoveAll
Else
model = "Not Available"
manufacturer = "Not Available"
serialNumber = "Not Available"
partNumber = "Not Available"
wsmanattrDict.Add "model" , model
wsmanattrDict.Add "manufacturer" , manufacturer
wsmanattrDict.Add "serialNumber" , serialNumber
wsmanattrDict.Add "partNumber" , partNumber
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.CMCGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", cmc_racadm_getmodinfo.getattributevalue("module"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, cmc_racadm_getmodinfo, cmc_racadm_getversion, wsmanattrDict, racadmPresence)
call componentInstance.ClearKeyProperties()
wsmanattrDict.RemoveAll
End If
End If
Next
Next
Else
If(StrComp(wsmanPresence,"Yes") = 0) Then
For Each cmc_ChMgrPckg in cmc_ChMgrPckgList
model = cmc_ChMgrPckg.getattributevalue("Model")
manufacturer = cmc_ChMgrPckg.getattributevalue("Manufacturer")
serialNumber = cmc_ChMgrPckg.getattributevalue("SerialNumber")
partNumber = cmc_ChMgrPckg.getattributevalue("PartNumber")
firmwareVersion = cmc_ChMgrPckg.getattributevalue("FirmwareVersion")
Next
End If
wsmanattrDict.Add "model" , model
wsmanattrDict.Add "manufacturer" , manufacturer
wsmanattrDict.Add "serialNumber" , serialNumber
wsmanattrDict.Add "partNumber" , partNumber
wsmanattrDict.Add "powerstatus" , MsgRacadmNotPresent
wsmanattrDict.Add "firmwareversion" , firmwareVersion
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.CMCGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", "CMC-Primary")
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, cmc_racadm_getmodinfo, cmc_racadm_getversion, wsmanattrDict, racadmPresence)
call componentInstance.ClearKeyProperties()
wsmanattrDict.RemoveAll
End If
End Function
Public Function performChassisIOmoduleModelling(ByRef iomodule_dell_passthroughList, ByRef iomodule_dell_iompackageList, ByRef iomodule_getioinfoList, ByRef racadmPresence)
Dim className, componentInstance
Dim iom_passthroughComp, io_getioinfoComp, iom_packageComp, getniccfgDict
Dim IpAddress, SubnetMask, Gateway
Dim iomoduleNum, switchName
IPAddress = "Not Available"
SubnetMask = "Not Available"
Gateway = "Not Available"
Set getniccfgDict = CreateObject("Scripting.Dictionary")
getniccfgDict.CompareMode = vbTextCompare
'Create Chassis IO Module group
className = "Dell.Chassis.IOModuleGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "ID", m_chassisUIDVal)
Set m_oIOModuleGroupInst = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "IO Module Group")
className = "Dell.Chassis.IOModule"
For Each iom_packageComp in iomodule_dell_iompackageList
IPAddress = iom_packageComp.getattributevalue("IPAddress")
For Each iom_passthroughComp in iomodule_dell_passthroughList
If ( StrComp(iom_passthroughComp.getattributevalue("classID"), iom_packageComp.getattributevalue("classID") ) = 0 ) Then
If(StrComp(racadmPresence, "Yes") = 0) Then
iomoduleNum = Mid(iom_passthroughComp.getattributevalue("FQDD"),(Len("iom") + 1) )
switchName = "switch-" & iomoduleNum
For Each io_getioinfoComp in iomodule_getioinfoList
log.MOMDebugLog 1, "component-- " & iom_passthroughComp.getattributevalue("FQDD") & " is trying to match with switch name is---- " & io_getioinfoComp.getattributevalue("switchline")
If ( StrComp(switchName, io_getioinfoComp.getattributevalue("switchline")) = 0) Then
log.MOMDebugLog 1, "component--" & iom_passthroughComp.getattributevalue("FQDD") & "is matched with --" & io_getioinfoComp.getattributevalue("switchline")
SubnetMask = io_getioinfoComp.getattributevalue("SubnetMask")
Gateway = io_getioinfoComp.getattributevalue("Gateway")
End If
Next
Else
SubnetMask = MsgRacadmNotPresent
Gateway = MsgRacadmNotPresent
End If
getniccfgDict.Add "IPAddress", IPAddress
getniccfgDict.Add "SubnetMask", SubnetMask
getniccfgDict.Add "Gateway", Gateway
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.IOModuleGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", iom_passthroughComp.getattributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, iom_packageComp, iom_passthroughComp, getniccfgDict)
call componentInstance.ClearKeyProperties()
getniccfgDict.RemoveAll
End If
Next
Next
End Function
Public Function performChassisPCIeDeviceModelling(ByRef PCIeDeviceList, ByRef PCISlotList)
Dim className, componentInstance
Dim PCIeDeviceObj, PCIeSlotObj
log.MOMDebugLog 1, "Entered common chassis component creation"
'Create Chassis PCIeDeviceGroup
className = "Dell.Chassis.PCIeDeviceGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "ID", m_chassisUIDVal)
Set m_oPCIeGroupInst = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "PCIe Device Group")
className = "Dell.Chassis.PCIeDevice"
'Create Chassis PCIe Device Instance
For Each PCIeDeviceObj In PCIeDeviceList
If Not IsNull(PCIeDeviceObj) Then
For Each PCIeSlotObj In PCISlotList
If Not IsNull(PCIeSlotObj) Then
If ( StrComp(PCIeDeviceObj.getAttributevalue("FQDD"), PCIeSlotObj.getAttributevalue("DeviceFQDD")) = 0) Then
'Create Controller Object
log.MOMDebugLog 1, "PCIeDevice with FQDD--" & PCIeDeviceObj.getAttributevalue("FQDD") & " has fabric value as--" & PCIeSlotObj.getattributevalue("Fabric")
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.PCIeDeviceGroup" & "/" & "ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", PCIeDeviceObj.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, PCIeDeviceObj, PCIeSlotObj, PCIeDeviceObj.getAttributevalue("FQDD"))
call componentInstance.ClearKeyProperties()
End If
End If
Next
End If
Next
End Function
Public Function chassisComponentCreation
Dim className, componentInstance
'Create Chassis Component Object
className = "Dell.ModularChassis.CMC"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "UID", m_chassisUIDVal)
Set m_ChassisInstance = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Chassis")
End Function
Public Function performStorageComponentModelling(ByRef contList, enclList, enclPhyDiskList, enclVirtDiskList)
Dim controllerObj, enclObject, intEnclPhysDiskObjList, extEnclPhysDiskObjList, contVirtDiskObjList
Dim className, componentInstance
'Create Storage Component Object
className = "Dell.Chassis.Storage"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty(className & "/" & "ID", m_chassisUIDVal)
Set m_oStoInst = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Chassis Storage")
'CreateClassInstanceForStorage()
For Each controllerObj In contList
'Create Controller Object
className = controllerObj.getMgmtConsoleClassName()
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, controllerObj, controllerObj.getAttributevalue("FQDD"))
call componentInstance.ClearKeyProperties()
'CreateClassInstanceForStorageController(controllerObj)
call performControllerVirtualDiskMapping(controllerObj.getAttributevalue("FQDD"), enclVirtDiskList)
contVirtDiskObjList = m_controllerVirtualDiskMappingDict.Items
If m_controllerVirtualDiskMappingDict.Count > 0 Then
'Create Virtual Disk Group Object
className = "Dell.Chassis.Storage.Controller.VirtualDiskGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "Number", controllerObj.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Virtual Disk Group")
call componentInstance.ClearKeyProperties()
Dim contVirtDiskObj
For Each contVirtDiskObj In contVirtDiskObjList
'Create Virtual Disk Object
Dim instanceVD
className = contVirtDiskObj.getMgmtConsoleClassName()
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.VirtualDiskGroup/Number", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "FQDD", contVirtDiskObj.getAttributevalue("FQDD"))
Set instanceVD = componentInstance.CreateAndPopulateInstance(m_momApiHelper, contVirtDiskObj, contVirtDiskObj.getAttributevalue("DisplayName"))
m_VirtualDiskDict.Add contVirtDiskObj.getAttributevalue("FQDD"), instanceVD
call componentInstance.ClearKeyProperties()
Next
m_controllerVirtualDiskMappingDict.RemoveAll
End If
For Each enclObject In enclList
If Not IsNull(enclObject) Then
'Create Enclosure Object
className = enclObject.getMgmtConsoleClassName()
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "FQDD", enclObject.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, enclObject, enclObject.getAttributevalue("DisplayName"))
call componentInstance.ClearKeyProperties()
End If
If (InStr(enclObject.getAttributevalue("FQDD"), "Internal") <> 0) Then
call performEnclosurePhysicalDiskMapping(enclObject.getAttributevalue("FQDD"), enclPhyDiskList)
intEnclPhysDiskObjList = m_enclosurePhysicalDiskMappingDict.Items
If m_enclosurePhysicalDiskMappingDict.Count > 0 Then
'Create Internal Physical Disk Group Object
className = "Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDiskGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure/FQDD", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "Number", enclObject.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Enclosure Physical Disk Group")
call componentInstance.ClearKeyProperties()
Dim intEnclPhysDiskObj,physicalDiskInstance
For Each intEnclPhysDiskObj In intEnclPhysDiskObjList
'Create Internal Physical Disk Object
className = "Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDisk"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure/FQDD", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure.InternalPhysicalDiskGroup/Number", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "FQDD", intEnclPhysDiskObj.getAttributevalue("FQDD"))
Set physicalDiskInstance = componentInstance.CreateAndPopulateInstance(m_momApiHelper, intEnclPhysDiskObj, intEnclPhysDiskObj.getAttributevalue("FQDD"))
call performVDtoPDAssignment(contVirtDiskObjList,physicalDiskInstance,"$MPElement[Name='DAD!ChassisVirtualDisk.Contains.InternalPhysicalDisk']$",intEnclPhysDiskObj.getAttributevalue("FQDD"))
call componentInstance.ClearKeyProperties()
Next
m_enclosurePhysicalDiskMappingDict.RemoveAll
End If
ElseIf (InStr(enclObject.getAttributevalue("FQDD"), "External") <> 0) Then
call performEnclosurePhysicalDiskMapping(enclObject.getAttributevalue("FQDD"), enclPhyDiskList)
extEnclPhysDiskObjList = m_enclosurePhysicalDiskMappingDict.Items
If m_enclosurePhysicalDiskMappingDict.Count > 0 Then
'Create External Physical Disk Group Object
className = "Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDiskGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure/FQDD", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "Number", enclObject.getAttributevalue("FQDD"))
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Enclosure Physical Disk Group")
call componentInstance.ClearKeyProperties()
Dim extEnclPhysDiskObj, extPDInstance
For Each extEnclPhysDiskObj In extEnclPhysDiskObjList
'Create External Physical Disk Object
className = "Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDisk"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.Storage/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller/FQDD", controllerObj.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure/FQDD", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty("Dell.Chassis.Storage.Controller.Enclosure.ExternalPhysicalDiskGroup/Number", enclObject.getAttributevalue("FQDD"))
call componentInstance.setKeyProperty(className & "/" & "FQDD", extEnclPhysDiskObj.getAttributevalue("FQDD"))
Set extPDInstance = componentInstance.CreateAndPopulateInstance(m_momApiHelper, extEnclPhysDiskObj, extEnclPhysDiskObj.getAttributevalue("FQDD"))
Next
m_enclosurePhysicalDiskMappingDict.RemoveAll
End If
End If
Next
Next
End Function
Public Function performBladeServerInst(bladeServerList, raidVAList,ByRef contList)
Dim raidVAObj, bladeServerObj
Dim baldeServerFQDD, assignedBladeFQDD,oInst,bladeServiceTag,raidVirtualDiskIDs,controllerFQDD,contObj,vdAccessPolicyArray,vdIDArray,vdAccessPolicy,oVDInst,oVDPDRelationship
For Each bladeServerObj In bladeServerList
baldeServerFQDD = bladeServerObj.getAttributevalue("FQDD")
bladeServiceTag = bladeServerObj.getAttributevalue("ServiceTag")
For Each raidVAObj In raidVAList
assignedBladeFQDD = raidVAObj.getAttributevalue("AssignedBladeFQDD")
raidVirtualDiskIDs = raidVAObj.getAttributevalue("VirtualDiskIDs")
vdAccessPolicy = raidVAObj.getAttributevalue("VirtualDiskAccessPolicy")
If(baldeServerFQDD = assignedBladeFQDD And raidVirtualDiskIDs <> "Not Available" ) Then
vdAccessPolicyArray = Split(vdAccessPolicy,",")
vdIDArray = Split(raidVirtualDiskIDs,",")
For Each contObj In contList
log.MOMDebugLog 1, "Virtual Disk FQDD : " +raidVirtualDiskIDs
If (INSTR(raidVirtualDiskIDs,contObj.getAttributevalue("FQDD")) <> 0) Then
controllerFQDD = contObj.getAttributevalue("FQDD")
log.MOMDebugLog 1, "Controller Virtual Disk FQDD: " & controllerFQDD
End If
For i = LBound(vdAccessPolicyArray) to UBound(vdAccessPolicyArray)
if vdAccessPolicyArray(i) = "2" or vdAccessPolicyArray(i) = "6" then
Set oVDInst = m_momApiHelper.CreateClassInstance("$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.VirtualDisk']$")
call m_momApiHelper.oInstAddProperty(oVDInst,"$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", principalName)
log.MOMDebugLog 1, "Chassis Principal name: " & principalName
call m_momApiHelper.oInstAddProperty(oVDInst,"$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.VirtualDisk']/FQDD$",vdIDArray(i))
log.MOMDebugLog 1, "Chassis Virtual Disk Id: " & vdIDArray(i)
call m_momApiHelper.oInstAddProperty(oVDInst,"$MPElement[Name='DAD!Dell.Chassis.Storage']/ID$",m_chassisUIDVal)
log.MOMDebugLog 1, "Chassis UID : " & m_chassisUIDVal
call m_momApiHelper.oInstAddProperty(oVDInst,"$MPElement[Name='DAD!Dell.Chassis.Storage.Controller']/FQDD$",controllerFQDD)
call m_momApiHelper.oInstAddProperty(oVDInst,"$MPElement[Name='DAD!Dell.Chassis.Storage.Controller.VirtualDiskGroup']/Number$",controllerFQDD)
log.MOMDebugLog 1, "Chassis Controller ID: " & controllerFQDD
m_momApiHelper.AddInstanceToDiscoveryData oInst
Set oVDPDRelationship = m_momApiHelper.CreateRelationshipInstance("$MPElement[Name='DAD!ChassisSharedStorage.Contains.ChassisVirtualDisk']$", oInst, oVDInst)
m_momApiHelper.AddInstanceToDiscoveryData oVDPDRelationship
End if
Next
log.MOMDebugLog 1, "Done Blade Server Discovery data"
END If
Next
Next
End Function
Public Function performVDtoPDAssignment(ByRef contVirtDiskObjList,ByRef pdInstance,ByVal relationShipClassID,ByVal physicalDiskFQDD)
Dim physicalDiskID,vdClassName,instVD,oVDPDRelationship,physicalDiskIDArray,pdID,contVirtDiskObj
For Each contVirtDiskObj In contVirtDiskObjList
'Get Virtual Disk Object
physicalDiskID = contVirtDiskObj.getAttributevalue("PhysicalDiskIDs")
log.MOMDebugLog 1,"PhysicalDisk ID: " &physicalDiskID
physicalDiskIDArray = Split(physicalDiskID,",")
vdClassName = contVirtDiskObj.getAttributevalue("FQDD")
For Each pdID in physicalDiskIDArray
If(physicalDiskFQDD = pdID) Then
Set instVD = m_VirtualDiskDict.Item(vdClassName)
Set oVDPDRelationship = m_momApiHelper.CreateRelationshipInstance(relationShipClassID, instVD, pdInstance)
m_momApiHelper.AddInstanceToDiscoveryData oVDPDRelationship
END If
Next
Next
End Function
Public Function performEnclosurePhysicalDiskMapping(ByRef enclFQDD, ByRef enclPhyDiskList)
Dim message, phyDiskFQDD, phyDiskObject
For Each phyDiskObject in enclPhyDiskList
phyDiskFQDD = phyDiskObject.getAttributevalue("FQDD")
If (InStr(phyDiskFQDD, enclFQDD) <> 0) Then
If (m_enclosurePhysicalDiskMappingDict.Exists(phyDiskFQDD)) Then
message = "Physical Disk with same FQDD exist"
Else
m_enclosurePhysicalDiskMappingDict.Add phyDiskFQDD, phyDiskObject
End If
End If
Next
End Function
Public Function performControllerVirtualDiskMapping(ByRef contFQDD, ByRef virtDiskObjectList)
Dim message, virtDiskFQDD, virtDiskObject
For Each virtDiskObject in virtDiskObjectList
virtDiskFQDD = virtDiskObject.getAttributevalue("FQDD")
If (InStr(virtDiskFQDD, contFQDD) <> 0) Then
If (m_controllerVirtualDiskMappingDict.Exists(virtDiskFQDD)) Then
message = "Virtual Disk with same FQDD exist"
Else
m_controllerVirtualDiskMappingDict.Add virtDiskFQDD, virtDiskObject
End If
End If
Next
End Function
Function CreateAndSubmitEmptyDiscoveryData()
Dim oInst
Call m_momApiHelper.CreateDiscoveryData(SourceId, ManagedEntityId)
End Function
public Function performChassisFanModelling(ByRef compObjectList)
Dim fanList, fanPackageList, fanSlotList
Dim nameDict, fqddDict, manuDict, slotDict, classId
Dim name, fqdd, slot, manufacturer
dim keys, i, key
'get the list of objects from three different wsman classes
fanList = GetObjectList(compObjectList, "Dell.Chassis.Fan")
fanPackageList = GetObjectList(compObjectList, "Dell.FanPackage")
fanSlotList = GetObjectList(compObjectList, "Dell.FanSlot")
'Create Fan Group Object
CreateFanGroupInstance()
If ArrayCount(fanList) > 0 Then
Set nameDict = CreateObject("Scripting.Dictionary")
Set fqddDict = CreateObject("Scripting.Dictionary")
Set manuDict = CreateObject("Scripting.Dictionary")
Set slotDict = CreateObject("Scripting.Dictionary")
'create dictionary for different fan attributes with common classId as key
CreateAttributeDictionaryFromObjList nameDict, fanList, "ClassId", "DisplayName"
CreateAttributeDictionaryFromObjList fqddDict, fanList, "ClassId", "FQDD"
CreateAttributeDictionaryFromObjList manuDict, fanPackageList, "ClassId", "Manufacturer"
CreateAttributeDictionaryFromObjList slotDict, fanSlotList, "ClassId", "Slot"
'get the list of keys; these keys are common in all the other Dictionaries
keys = nameDict.Keys
'since the count of all dictionary is same; traverse with namedict
For i=0 to nameDict.Count -1
'get the value of ClassId which can be used to index other dictionary
key = keys(i)
if(IsEmpty(key) or IsNull(key) or (StrComp(key, "Not Available")=0)) then
log.MOMDebugLog 1, "Key is either empty or null"
else
name = nameDict.item(key)
fqdd = fqddDict.item(key)
manufacturer = manuDict.item(key)
slot = slotDict.item(key)
log.MOMDebugLog 1, "Name:" & name &" and fqdd:" & fqdd
Dim nameArr, fqddArr
nameArr = Split(name, ",")
fqddArr = Split(fqdd, ",")
Dim len, j
len = ubound(nameArr)
log.MOMDebugLog 1, "name array len is :" & len
if len=0 then
CreateFanInstance name, fqdd, manufacturer, slot
else
for j=0 to len
CreateFanInstance nameArr(j), fqddArr(j), manufacturer, slot
log.MOMDebugLog 1, "name(j):" & nameArr(j) & "fqdd(j):" & fqddArr(j)
next
end if
end if
Next
End If
End Function
Function ArrayCount(ByRef array)
Dim index, count
count = 0
For index = 0 To UBound(array)
count = count + 1
Next
ArrayCount = count
End Function
Function GetObjectList(ByRef compObjectList, ByVal className)
Dim objList, compObjListFilter
Set compObjListFilter = New ComponentObjectListFilter
objList = compObjListFilter.fetchRequestedComponentObjectList(compObjectList, className)
compObjListFilter.destroyCOMObjects()
set compObjListFilter = Nothing
log.MOMDebugLog 1, "ArrayCount(objList)=" & ArrayCount(objList)
GetObjectList = objList
End Function
Function CreateFanInstance(ByVal name, ByVal fqdd, ByVal manufacturer, ByVal slot)
'Create Fan Unit Objects
Dim className, componentInstance
className = "Dell.Chassis.Fan"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.FanGroup/ID", m_chassisUIDVal)
call componentInstance.setKeyProperty(className & "/" & "FQDD", fqdd)
call componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, name, manufacturer, slot )
call componentInstance.ClearKeyProperties()
End Function
Function CreateFanGroupInstance()
Dim className, componentInstance
className = "Dell.Chassis.FanGroup"
Set componentInstance = creatorFactory.Item(className)
call componentInstance.setKeyProperty("Microsoft.Windows.Computer/PrincipalName", principalName)
call componentInstance.setKeyProperty("Dell.Chassis.FanGroup/ID", m_chassisUIDVal)
Set m_fangroupInstance = componentInstance.CreateAndPopulateInstance(m_momApiHelper, componentInstance, "Fan Group")
call componentInstance.ClearKeyProperties()
End function
Function CreateAttributeDictionaryFromObjList(ByRef dictionary, ByRef objList, ByVal attribute1, ByVal attribute2)
Dim obj, val, key
Set dictionary = CreateObject("Scripting.Dictionary")
For Each obj In objList
key = obj.getAttributevalue(attribute1)
val = obj.getAttributevalue(attribute2)
log.MOMDebugLog 1, "key:" & key & ";val:" & val
if (dictionary.Exists(key)) then
dim tmpVal
tmpVal = dictionary.item(key)
val = val + "," + tmpVal
dictionary.item(key) = val
else
dictionary.Add key, val
end if
Next
End Function
Home