Usuário com melhor resposta
Adicionando máquina no domínio.

Pergunta
-
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!
Respostas
-
Refiz o script e testei, este está ok.
Code SnippetConst 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
Todas as Respostas
-
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
-
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...
-
Segue um script para adicionar a estação no dominio.
Code SnippetName = "."
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 IfNext
-
-
-
-
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 SnippetName = "."
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 IfNext
-
-
Refiz o script e testei, este está ok.
Code SnippetConst 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 -
-
-