none
MIGRAÇÃO DE DOMINIO RRS feed

  • Pergunta

  • Bom dia,

    Estou precisando de um script, para migração de dominio.

     

    Cenário: Tenho hj um dominio X, e migraremos para o Y.

    Todas as contas estão criadas no novo dominio, só será necessario migrar as maquinas dos usuários para o novo dominio e o copiar o perfil do dominio antigo para  o novo.

     

    Tenho o script abaixo que funcionou perfeitamente no Windows XP, porém no Windows 7 não obtive sucesso.

     

     

    '============================

    ' Retirar Estação do Domínio

    '============================

    Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.

    strPassword = "senha dominio antigo"

    strUser = "usuario dominio antigo"

     

    Set objNetwork = CreateObject("WScript.Network")

    strComputer = objNetwork.ComputerName

     

    Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _

     strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")

    strDomain = objComputer.Domain

    intReturn = objComputer.UnjoinDomainOrWorkgroup _

     (strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE)

     

    '============================

    ' Início do Script

    '============================

    Const JOIN_DOMAIN = 1

    Const ACCT_CREATE = 2

    Const ACCT_DELETE = 4

    Const WIN9X_UPGRADE = 16

    Const DOMAIN_JOIN_IF_JOINED = 32

    Const JOIN_UNSECURE = 64

    Const MACHINE_PASSWORD_PASSED = 128

    Const DEFERRED_SPN_SET = 256

    Const INSTALL_INVOCATION = 262144

     

    ' Entre aqui com as Informações

    strDomain = "dominio novo"

    strPassword = "senha"

    strUser = "usuario"

     

    Set objNetwork = CreateObject("WScript.Network")

    strComputer = objNetwork.ComputerName

     

    Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _

        strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _

            strComputer & "'")

     

    ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _

        strPassword, strDomain & "\" & strUser, NULL, _

            JOIN_DOMAIN + ACCT_CREATE)

    msgbox ("Sucesso")

    '============================

    ' Fim do Script

    '============================

     


    sexta-feira, 16 de dezembro de 2011 10:46

Respostas

Todas as Respostas