This is a piece of aq kixform I wrote to join, rename, and move XP machines in AD... You will need to dig into it to get at the few lines of code that do each function.

Code:
 



	$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

		sleep 20



		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)

				endif

			Next



		For Each $name In split($AccountsBox.text,',')

			$name=trim($name)

			Status("Adding User "+$name)

			if not $name="Domain Admins"

				$objGroup = GetObject('WinNT://' + @wksta + '/' + 'Administrators')

				$objGroup.Add ('WinNT://'+ $domain + '/' + $name)

				if @error

					Status(@serror +' error adding '+$name)

					EndIF

				endif

			Next 

		Status("Complete - Restart PC")

		endif
_________________________
How to ask questions the smart way <-----------> Before you ask