Add management server to DPM

Microsoft.SystemCenter.DataProtectionManager.2011.Discovery.AddManagementServerToDPMModule (WriteActionModuleType)

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<WriteActionModuleType ID="Microsoft.SystemCenter.DataProtectionManager.2011.Discovery.AddManagementServerToDPMModule" Accessibility="Public" Batching="false">

  <Configuration>

    <xsd:element minOccurs="1" name="ManagementServerString" type="xsd:string"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="ManagementServerString" Selector="$Config/ManagementServerString$" ParameterType="string"/>

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <WriteAction ID="AddMSToDPM" TypeID="Windows!Microsoft.Windows.ScriptWriteAction">

          <ScriptName>AddMSToDPM.vbs</ScriptName>

          <Arguments>"$Config/ManagementServerString$"</Arguments>

          <ScriptBody><Script>  on error resume next



  Set oAPI = CreateObject("MOM.ScriptAPI") 



  Const HKEY_LOCAL_MACHINE  = &amp;H80000002

  Const REG_SZ = 1

  strComputer = "."

  

  dpmConfigKeyPath = "SOFTWARE\Microsoft\Microsoft Data Protection Manager\Configuration"

  DPMScomGroupName = "DPMScom"

  

  'Reading Registry

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\default:StdRegProv")

  

  Set oArgs = WScript.Arguments 



  ManagementServersString = oArgs(0)

 

  call oAPI.LogScriptEvent("AddManagementServer", 130, 4, "Adding management server:" &amp; ManagementServersString)



  'Split the management server machine names

  MachinesArray = Split(ManagementServersString, ";")



  for each MachineName in MachinesArray 



	  'Adding To DPMScom Group Variables

        

	  MachineName = Trim(MachineName)



	  'Seperating Machine name and domain name

	  DotPosition = InStr (MachineName, ".")

	  DomainName = Mid (MachineName, DotPosition+1)

	  DotPosition2 = InStr (DomainName, ".")

	  simpleDomainName = Mid (DomainName, 1, DotPosition2 - 1)

	  ManagementServerName = Mid (MachineName, 1, DotPosition-1) &amp; "$"

	

	  call oAPI.LogScriptEvent("AddManagementServer", 130, 4, "SCOM Machine Name:" &amp; DomainName &amp;"\" &amp; ManagementServerName)

	

	  Set net = WScript.CreateObject("WScript.Network")

	  local = net.ComputerName

	

	  'Read Machine Name

	  Set WshShell = WScript.CreateObject("WScript.Shell")

	  DPMMachineName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

	  DPMScomGroupNameDCMachineName = "DPMScom$" &amp; DPMMachineName

	

	  'Adding SCOMServer to DPMSCOM Group for non-dc machine

	  set group = GetObject("WinNT://"&amp; local &amp;"/" &amp; DPMScomGroupName)

	  group.Add "WinNT://"&amp; DomainName &amp;"/"&amp; ManagementServerName &amp;""

	

	  'Adding SCOMServer to DPMSCOM Group for dc machine

	  set group = GetObject("WinNT://"&amp; local &amp;"/" &amp; DPMScomGroupNameDCMachineName)

	  group.Add "WinNT://"&amp; DomainName &amp;"/"&amp; ManagementServerName &amp;""



        'Adding registry for the scomserver to indicate when discovery happened subKeyName = "domain\serverName$" value = "Just Discovered"

	  valueTemp = "Just Discovered"

	  subKeyValue = simpleDomainName &amp;"\"&amp; ManagementServerName 

	  oReg.SetStringValue HKEY_LOCAL_MACHINE, dpmConfigKeyPath, subKeyValue, valueTemp 

  next

	

  call oAPI.LogScriptEvent("AddManagementServer", 130, 4, "Completed adding management servers")

  </Script></ScriptBody>

          <TimeoutSeconds>30</TimeoutSeconds>

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="AddMSToDPM"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.CommandOutput</OutputType>

  <InputType>System!System.BaseData</InputType>

</WriteActionModuleType>