Const HKEY_LOCAL_MACHINE = &H80000002
Const IBMHWMP_FSM_IP="SOFTWARE\IBM\Systems Management Integrations\IBM HW Mgmt Pack for OpsMgr"
Const LenovoHWMP_FSM_IP = "SOFTWARE\Lenovo\Systems Management Integrations\Lenovo HW Mgmt Pack for OpsMgr"
Dim key_name
key_name=WScript.Arguments.Item(3)
Dim oReg ,RC_Code, strValue
Set oReg = GetObject("winmgmts://localhost/root/default:StdRegProv")
Dim Ipaddress
Ipaddress=WScript.Arguments.Item(0)
'write the value of FSMIPaddress into class FSM
Dim SourceID,ManageEntityID,oDiscoveryData
SourceID=WScript.Arguments.Item(1)
ManageEntityID=WScript.Arguments.Item(2)
Dim oAPI, oInst
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oDiscoveryData=oAPI.CreateDiscoveryData(0,SourceID,ManageEntityID)
Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='IBM.FlexSystem.FSM']$")
Call oInst.AddProperty("$MPElement[Name='IBM.FlexSystem.FSM']/FSMIPaddress$",Ipaddress)
Call oDiscoveryData.AddInstance(oInst)
If(not(oReg is nothing)) Then
If IsNull(Ipaddress) or IsEmpty(Ipaddress) or Ipaddress ="" Then
Dim return
return=oReg.GetStringValue(HKEY_LOCAL_MACHINE,IBMHWMP_FSM_IP,Key_Name,Ipaddress)
If Not IsNull(Ipaddress) Then
RC_Code=oReg.DeleteValue(HKEY_LOCAL_MACHINE,IBMHWMP_FSM_IP,Key_Name)
Else
return=oReg.GetStringValue(HKEY_LOCAL_MACHINE,LenovoHWMP_FSM_IP,Key_Name,Ipaddress)
If Not IsNull(Ipaddress) Then
RC_Code=oReg.DeleteValue(HKEY_LOCAL_MACHINE,LenovoHWMP_FSM_IP,Key_Name)
End If
End If
Else
RC_Code= oReg.CreateKey(HKEY_LOCAL_MACHINE,IBMHWMP_FSM_IP)
oReg.SetStringValue HKEY_LOCAL_MACHINE,IBMHWMP_FSM_IP,Key_Name,Ipaddress
End If
End If