Code:

	$ldap="LDAP://"+@domain+"/"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
	$ou = EnumOUs($ldap, 'computer')
	for each $item in split($ou,'|')
		? $item
		next



Function EnumOUs($LDAP, $Filter)
     dim $aFilter[0], $pos,  $objOU, $i, $j

     if $Filter <> 'user'
          $Filter = 'computer'
          endif
     $objOU = GetObject($LDAP)
     if VarTypeName($objOU)='Object'
          $aFilter[0] = $Filter
          $objOU.Filter = $aFilter
          for each $item in $objOU
               if $item.class = $Filter
                    $i = $LDAP
                    endif
               next
          $aFilter[0] = "organizationalUnit"
          $objOU.Filter = $aFilter
          for each $item in $objOU
               $Name = $item.Name
               $pos = instrrev($LDAP,"/")
               $DN = Left($LDAP,$pos) + $Name + ", " + substr($LDAP, $pos+1)
               $j = EnumOUs($DN, $Filter)
               if $j
                    $i = iif($i,$i +"|"+ $j,$j)
                    endif
               next
          endif
      $EnumOUs = $i
     Endfunction
_________________________
How to ask questions the smart way <-----------> Before you ask