none
Adicionando máquina no domínio. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá, bom dia!

     

    Na empresa em que trabalho tem um controlador de domínio, o qual, mais de 300 máquinas estão sob o qual. Estou configurando um outro domínio, novo, tudo bonitinho (pois aqui está uma zona) e quero adicionar as máquinas no novo domínio.

     

    Mas como fazer isso? Uma vez que o DHCP aponta para o atual DC?

     

    Queria algum script que adicione as máquinas automáticamente no novo DC. Há possibilidades?

     

    Obrigado!

    terça-feira, 29 de abril de 2008 14:23
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Refiz o script e testei, este está ok.

     

     


    Code Snippet

    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
     
    strDomain = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")


    strUser = "usuario"
    strPassword = "senha"
     
    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)

    If err.number <> 0 Then
     wscript.echo "Erro: " & err.description
    Else
     wscript.echo "Maquina adicionada no dominio com sucesso. Reinicie o computador."
    End If

     

     


     

    terça-feira, 29 de abril de 2008 22:13
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Augusto, você pode migrar os objetos de um DC para outro, veja este link:

     

    http://support.microsoft.com/kb/266083/pt-br

     

     

    Abraços

     

    Welington Lima

    http://welingtonlima.spaces.live.com

     

    terça-feira, 29 de abril de 2008 14:49
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá Welington.

     

    Já tinha lido algo parecido, mas o que eu preciso são as máquinas no novo domínio. A solução apresentada migra somente usuários e grupos, correto?

     

    Usuários e grupos são tranquilos de criar: Tenho um script para isso.

     

     

    O que está pegando é o fato de colocar 300 máquinas no novo domínio... uma a uma...

    terça-feira, 29 de abril de 2008 14:58
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue um script para adicionar a estação no dominio.

     

    Code Snippet

    Name = "."

    Password = "senha"
    Username = "usuário"

    DomainName = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")

    DomainPassword = "senha"
    DomainUsername = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If

    Next

     

     


     

    terça-feira, 29 de abril de 2008 17:09
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá Bruno.

     

    Deu erro, cara.

    terça-feira, 29 de abril de 2008 17:16
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Em qual linha? Qual é o erro?

     

    terça-feira, 29 de abril de 2008 17:31
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Logo após digitar o domínio.

    terça-feira, 29 de abril de 2008 17:33
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    OK. Mas na tela de erro mostra "Erro na linha XXX" qual é essa linha?

     

    Você alterou os itens que estão em vermelho? São o usuário e senha com direito de inserir computadores no dominio.

     

    Code Snippet

    Name = "."

    DomainName = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")

    DomainPassword = "senha"
    DomainUsername = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If

    Next

     

     

     

    terça-feira, 29 de abril de 2008 17:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Alterei.


    Ele não está colocando no domínio, ele está alterando o grupo de trabalho, apenas.

    terça-feira, 29 de abril de 2008 21:10
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Refiz o script e testei, este está ok.

     

     


    Code Snippet

    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
     
    strDomain = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")


    strUser = "usuario"
    strPassword = "senha"
     
    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)

    If err.number <> 0 Then
     wscript.echo "Erro: " & err.description
    Else
     wscript.echo "Maquina adicionada no dominio com sucesso. Reinicie o computador."
    End If

     

     


     

    terça-feira, 29 de abril de 2008 22:13
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Funcionou corretamente. Obrigado, cara!

     

    Agora estou vendo como deixar o domínio default e tirar o msgbox no fim da operação e colocar uma instrução de restart, para só clicar 2x e reiniciar a máquina.

    quarta-feira, 30 de abril de 2008 12:38
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    So funciona na propria maquina ? ou é possivel por as maquinas no dominio remotamente (atraves de outra maquina da rede) ?

    Grato
    Almir

    quarta-feira, 21 de abril de 2010 19:55
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia Bruno,

    Testes este script e está apresentando erro na Linha 1, Char 1 e Error "Code".

    Obs.: Removi a linha 1 e funcionou corretamente! 

    quarta-feira, 5 de janeiro de 2011 12:56
    |