Link to home
Start Free TrialLog in
Avatar of kwatt562
kwatt562Flag for United Kingdom of Great Britain and Northern Ireland

asked on

Join PC to Domain vbs

Hi, I want to modify the script below to provide an inputbox for username, password domain. The inputbox values will then become strdomain, struser, strpassword. This will allow me to join a PC to the domain via script. thanks in advance.

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

If WScript.Arguments.Count < 3 or WScript.Arguments.Count > 4 Then
      ' Duff arguments so return non zero so the task is marked as failed.
      WScript.Quit(1)
Else

      strDomain   = WScript.Arguments.Item(0)
      strUser = WScript.Arguments.Item(1)
      strPassword = WScript.Arguments.Item(2)

      'set DNS IP address
      If WScript.Arguments.Count = 4 Then
                strDNSIP = WScript.Arguments.Item(3)
                Set objShell = CreateObject("WScript.shell")
                objShell.Run "netsh int ip set dns ""local area connection"" static " & _
                            strDNSIP &" primary", 0 , 0
       End If
End If

strMessage =Inputbox("Enter your Username","Input Required")
WScript.Echo strMessage

Inputbox=strUser

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)

WScript.Quit(ReturnValue)
ASKER CERTIFIED SOLUTION
Avatar of Kimputer
Kimputer

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial