Code:
	$objNetwork = CreateObject("WScript.Network")
	$strComputer = $objNetwork.ComputerName
	$objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2:Win32_ComputerSystem.Name='"+@wksta+"'")
	$ReturnValue = $objComputer.JoinDomainOrWorkGroup("DOMAIN", $password, "domain\"+$user, $OU, 35)
	If $ReturnValue
		? "Failed joining "+@wksta+" to domain"
	Endif
	? "     waiting 15 seconds"
	sleep 15

	$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
	$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
	For Each $objComputer in $colComputers
		$err = $objComputer.Rename($Name, $password, "domain\" + $user)
		If $err
			? "Failed Renaming "+@wksta+" to "+$Name
		endif
	Next
_________________________
How to ask questions the smart way <-----------> Before you ask