Adicionar servidor de gerenciamento ao 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 xmlns:xsd="http://www.w3.org/2001/XMLSchema" 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>