$UserName = "yourtestaccount"

$UserAccountOU = GetUserOU($UserName+"@@yourdomain.com") 
$UserOU = Split($UserAccountOU,""LDAP://"")[1]

Shell 'dsquery user -name "'+$UserName+'" "'+$UserOU+'"'

Function GetUserOU($UserName) 
	$aAttributes = "Name", "AdsPath"  
	$sADsPath = "LDAP://"+GetObject("LDAP://domain.com").Get("defaultNamingContext")  
	$strFilter = "(&(objectClass=User)(userPrincipalName=$UserName))"  
	$aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"Name")  
;	@ERROR " | " @SERROR ?  
	For $c = 0 to Ubound($aResults) 
	    For $r = 0 to UBound($aResults,2) 
	      $GetUserOU = $aResults[$c,$r]
	    Next 
	Next 
EndFunction