$newName	= $ComputerBox.text
	$domain		= $DomainBox.text
	$password	= $PasswordBox.text
	$user		= $AdminBox.text
	$OU 		= $OUCombo.text
	$JOINType 	= 1 + 2 + 32

	$objNetwork = CreateObject("WScript.Network")
	if not @error
		$strComputer = $objNetwork.ComputerName
		$objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"+$strComputer+"\root\cimv2:Win32_ComputerSystem.Name='"+$strComputer+"'")
		$ReturnValue = $objComputer.JoinDomainOrWorkGroup($Domain, $password, $Domain+"\"+$user, $OU, $JOINtype)
		If $ReturnValue
			Status("Failed joining "+@wksta+" to "+$domain)
			Status($ReturnValue)
			return
			EndIf
		Status("waiting 15 seconds")
		sleep 15

		Status("Renaming")
		$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2")
		$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
		For Each $objComputer in $colComputers
			$err = $objComputer.Rename($NewName, $password, $Domain + "\" + $user)
			If $err
				Status("Failed Renaming "+@wksta+" to "+$NewName)
				Status($err)
				return
				endif
			Next

$WKSTA = "hostname"
$USERID = "domain\userid"
$PASSWORD = "********"
$SERVER = "dcservername"

$SOURCEOU = "LDAP://CN=$WKSTA,CN=COMPUTERS,DC=XXX,DC=YYY,DC=ZZZ,DC=CA"
$TARGETOU = "LDAP://$SERVER/OU=AAA,OU=BBB,OU=CCC,DC=XXX,DC=YYY,DC=ZZZ,DC=CA"

;======================
; GET HANDLE TO LDAP...
;======================

$ROOT = GETOBJECT("LDAP:")

IF @ERROR
 EXIT 102
ENDIF

;======================
; BIND TO TARGET OU ...
;======================

$ADS_SERVER_BIND = 512

$TARGET = $ROOT.OPENDSOBJECT($TARGETOU, $USERID, $PASSWORD, $ADS_SERVER_BIND)

IF @ERROR
 EXIT 103
ENDIF

;=============================================
; MOVE WORKSTATION FROM SOURCE OU TO TARGET OU
;=============================================

$= $TARGET.MOVEHERE($SOURCEOU,"CN=$WKSTA")

IF @ERROR
 EXIT 104
ENDIF

Quote:

---

Why not simply create the computer account in the correct OU before joining it?

---

Quote:

---

Ok the truth then ;0) - I didn't feel like doing an inventory on 10,000 machines, then write some script that pre-creates all these accounts, and deal with all the failed attempts with unjoins and rejoins. ;0)

---

Quote:

---

Joining a new workstation to a domain using AD puts the workstation into the main computer container by default.

---

Quote:

---

Maybe you missed what I said. If you create the computer account in the right OU BEFORE you join it to the domain, it will not end up in the DEFAULT container. We have dozens of techs doing it that way ever day.

---