script to join a domain and passing arguments within the script

'~~[script]~~
'Script name: NetDomOU.vbs
'Author: Geert Van Camp
'Description: joins,unjoins or removes a Windows XP computer to or from the domain.
'		An organisational unit can be specified when joining a domain!
'Requirements:
'	- only works on Windows XP (and higher)
'	- run the script on the computer that needs to be joined/unjoined/removed
'	- specify a domain user account that has permissions to join/unjoin computers to/from the domain
'	- run with CScript.exe to view output
 
On Error Resume Next
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DOMAIN_JOIN_IF_JOINED = 32
 
varExitErrorLevel = 0
 
If WScript.Arguments.Length > 0 Then
	Select Case LCase(WScript.Arguments(0))
		Case "join" strCommand = "Join"
		Case "unjoin" strCommand = "Unjoin"
		Case "remove" strCommand = "Remove"
		Case Else subUsage
	End Select
	For varIndex = 1 To (WScript.Arguments.Length - 1)
		arrArgument = Split(WScript.Arguments(varIndex), ":", -1, vbTextCompare)
		strArgument = arrArgument(0)
		If Ubound(arrArgument) = 0 Then
			Select Case LCase(strArgument)
				Case "/reboot" flgReboot = True
				Case Else subUsage
			End Select
		Else
			strArgumentValue = arrArgument(1)
			Select Case LCase(strArgument)
				Case "/domain" strDomain = strArgumentValue
				Case "/ou" strOU = strArgumentValue
				Case "/user" strUser = strArgumentValue
				Case "/password" strPassword = strArgumentValue
				Case Else subUsage
			End Select
		End If
	Next
Else
	subUsage
End If
 
Set objNetwork = CreateObject("WScript.Network")
strHostName = objNetwork.ComputerName
Set objNetwork = Nothing
 
Set objWMIComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strHostName & "\root\cimv2:Win32_ComputerSystem.Name='" & strHostName & "'")
If Err = 0 Then
	Select Case strCommand
		Case "Join"
			subDisplay "Joining computer to domain." & vbCrLf & "Hostname: " & strHostName & vbCrLf & "Domain: " & strDomain & vbCrLf & "OU: " & strOU & vbCrLf & "Username: " & strUser
			varWMIJoinReturnValue = objWMIComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strUser, strOU, JOIN_DOMAIN + ACCT_CREATE)
			If Err = 0 Then
				If varWMIJoinReturnValue = 2224 Then
					subDisplay "The computer account already exists."
					If Not strOU = "" Then subDisplay "The computer account will stay in it's current OU."
					varWMIJoinReturnValue = objWMIComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strUser, strOU, JOIN_DOMAIN)
					If Not varWMIJoinReturnValue = 0 Then subDisplay fncErrorMessage(varWMIJoinReturnValue, "", True)
				Else
					If Not varWMIJoinReturnValue = 0 Then subDisplay fncErrorMessage(varWMIJoinReturnValue, "", True)
				End If
			Else
				subDisplay fncErrorMessage(Hex(Err.Number), Err.Description, True)
			End If
		Case "Unjoin", "Remove"
			subDisplay "Unjoining the computer from the domain."
			varWMIJoinReturnValue = objWMIComputer.UnJoinDomainOrWorkGroup( , , 0)
			If Err = 0 Then
				If Not varWMIJoinReturnValue = 0 Then subDisplay fncErrorMessage(varWMIJoinReturnValue, "", True)
			Else
				subDisplay fncErrorMessage(Hex(Err.Number), Err.Description, True)
			End If
			Select Case strCommand
				Case "Remove"
					varExitErrorLevel = 0
					subDisplay "Deleting domain computer account."
					Set ADSISysInfo = CreateObject("ADSystemInfo")
					Set objADSIComputer = GetObject("LDAP://" & ADSISysInfo.ComputerName & "")
					If Err = 0 Then
						objADSIComputer.DeleteObject(0)
						If Not Err = 0 Then
							subDisplay fncErrorMessage(Hex(Err.Number), Err.Description, True)
						End If
					Else
						subDisplay fncErrorMessage(Hex(Err.Number), "Unable to get data from domain controller.", True)
					End If
					Set objADSIComputer = Nothing
					Set ADSISysInfo = Nothing
			End Select
		Case "Else"
			subDisplay fncErrorMessage(99990, "Internal error; unrecognized command.", True)
	End Select
	If varExitErrorLevel = 0 Then
		subDisplay "Finished succesfully." & vbCrLf & "Please reboot to apply changes."
		If flgReboot = True Then
			Set objOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
			subDisplay "Rebooting..."
			For each objOperatingSystem in objOperatingSystems
				objOperatingSystem.Reboot()
			Next
		End If
	End If
Else
	subDisplay fncErrorMessage(Hex(Err.Number), Err.Description, True)
End If
Set objWMIComputer = Nothing
WScript.Sleep 1000
WSCript.Quit varExitErrorLevel
 
 
Sub subUsage()
	WScript.Echo "Usage: cscript.exe NetDomOU.vbs Join|Unjoin|Remove /Domain:domain [/OU:ou] [/User:user] [/Password:password]" & vbCrLf & _
	vbCrLf & "Join:    Joins the computer to a domain." & vbCrLf & _
	vbCrLf & "Unjoin:  Unjoin the computer from a domain. No other arguments required. The domain computer account will not be deleted!" & vbCrLf & _
	vbCrLf & "Remove:  Unjoin the computer from a domain and delete the domain computer account. No other arguments required. Administrative permissions on the domain are required! " &_
			"(The /user-argument is ignored). Wait for replication to finish before rejoining the computer!" & vbCrLf & _
	vbCrLf & "/Domain: Name of the domain." & vbCrLf & _
	vbCrLf & "/User:   The usersaccount used to execute the command, using the domain\username or username@domain notation! Leave username and password empty to use callers credentials." & vbCrLf & _
	vbCrLf & "/OU:     The full 'distinguished name' of the organisational unit where the new domain computer account will be created when joining a domain. " & _
			"Example /OU:""OU=myOU, DC=domain, DC=com"". The name must be between quotes! Leave empty to add the computer to the default 'Computers'-container. " & vbCrLf & _ 
	vbCrLf & "/Reboot: Reboot the computer if Join/Unjoin/Remove whas succesfull." & vbCrLf
	WScript.Sleep 1000
	WScript.Quit 1
End Sub
 
 
sub subDisplay(strOutput)
	If Instr(1, WScript.FullName, "cscript.exe", vbTextCompare) > 0 Then
		WScript.Echo strOutput & vbCrLf
	End If
End Sub
 
 
Function fncErrorMessage(varErrorNumber, strErrorDescription, flgSetExitErrorLevel)
	If strErrorDescription = "" Then
		'List of 'system error codes' and 'network management error codes'
		Select Case varErrorNumber
			Case 5    strErrorDescription = "Access is denied"
			Case 87   strErrorDescription = "The parameter is incorrect"
			Case 110  strErrorDescription = "The system cannot open the specified object"
			Case 1323 strErrorDescription = "Unable to update the password"
			Case 1326 strErrorDescription = "Logon failure: unknown username or bad password"
			Case 1355 strErrorDescription = "The specified domain either does not exist or could not be contacted"
			Case 2224 strErrorDescription = "The account already exists"
			Case 2691 strErrorDescription = "The machine is already joined to the domain"
			Case 2692 strErrorDescription = "The machine is not currently joined to a domain"
		End Select
	End If
	fncErrorMessage = "Error: " & varErrorNumber & ". " & strErrorDescription & "."
	If flgSetExitErrorLevel Then varExitErrorLevel = 1
End Function
 
'~~[/script]~~

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159: