kwatt562
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.shel l")
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.Netw ork")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{imper sonationLe vel=Impers onate}!\\" & _
strComputer & _
"\root\cimv2:Win32_Compute rSystem.Na me='" _
& strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWo rkGroup(st rDomain, _
strPassword, _
strDomain & "\" & strUser, _
NULL, _
JOIN_DOMAIN+ACCT_CREATE)
WScript.Quit(ReturnValue)
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.shel
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.Netw
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{imper
strComputer & _
"\root\cimv2:Win32_Compute
& strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWo
strPassword, _
strDomain & "\" & strUser, _
NULL, _
JOIN_DOMAIN+ACCT_CREATE)
WScript.Quit(ReturnValue)
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.