Un Administrador de Sistemas en Apuros

Con el siguiente script bastará un simple clic ( y tener los datos necesarios correctos) para meter cualquier equipo en dominio.

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 = "FABRIKAM"   -----> Cambiar por el nombre del dominio correcto

strPassword = "ls4k5ywA"   -----> Cambiar por la contraseña de administrador del dominio

strUser = "administrador"       -----> Username del administrador de dominio



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)

Nunca dará ningún tipo de mensaje, pero una vez ejecutado simplemente hay que reiniciar para comprobar que ha funcionado.


Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias