I basically do this (I only check User OU... I do computer location by subnet)

Code:

	$ldap		= TranslateName(1, @domain, 3, @ldomain+'\'+@userid, 1)
	$OU		= LDAPArray($ldap[0],'OU')[1]
	$UserProperties = GetObject("LDAP://"+$LDAP[0])
	$FirstName	= $userProperties.FirstName
	$LastName	= $userProperties.LastName
	$Description	= $userProperties.Description
	$Orgcode	= left($Description,instr($description,';')-1)
	$BudgetEntity	= right($Description,instrrev($description,';')-1)
	$UserProperties = 0

;Function to split distinguished user name into array elements for inventory
Function LDAPArray($ldap, optional $filter)
	dim $item, $element, $temp
	if not instr("CN OU DC",$filter)
		$filter=''
		endif
	$item=-1
	$tarr = split($ldap,',')
	for $element = 0 to ubound($tarr) 
		$temp=$tarr[$element]
		if left($temp,2)=$filter or $filter=''
			$item=$item+1
			redim preserve $LDAParray[$item]
			$LDAParray[$item]=right($temp,len($temp)-3)
			endif
		next	
	endfunction
_________________________
How to ask questions the smart way <-----------> Before you ask