Código: Selecionar todos
' Script para ingressar uma estação no AD de maneira automatizada
' Created by Sole Viktor - [email protected]
' Retirado do Fórum Itbr.org - www.itbr.org
On Error Resume Next
strDomain = "contoso.local"
strPassword = "senhadoadmin"
strUser = "Administrador"
strOU = "OU=Computadores,OU=Empresa,DC=contoso,DC=local"
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
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, strOU, _
JOIN_DOMAIN + ACCT_CREATE + DOMAIN_JOIN_IF_JOINED)
Select Case ReturnValue
Case 0 Status = "Sucesso"
Case 2 Status = "OU inexistente"
Case 5 Status = "Acesso negado"
Case 53 Status = "Erro de rede"
Case 87 Status = "Parametro incorreto"
Case 1326 Status = "Falha de logon"
Case 1355 Status = "Dominio nao encontrado"
Case 1909 Status = "Usuario bloqueado"
Case 2224 Status = "Hostname ja existe no AD"
Case 2691 Status = "Ja foi ingressado"
Case Else Status = "ERRO DESCONHECIDO " & ReturnValue
WScript.Echo "Status: " & Status
End Select