Function EnumOUs($LDAP, $Filter)

   ;$Filter = 'computer' | 'user'

   dim $aFilter[0], $pos,  $objOU, $i, $j

   $i = 0

   $j = 0

   $aFilter[0] = $Filter



   $objOU = GetObject($LDAP)

   if VarTypeName($objOU)='Object'

      ? ucase(Left($Filter,1)) + substr($Filter,2) + "(s) in ($LDAP)"

      $objOU.Filter = $aFilter

      for each $item in $objOU

         $Name = $item.Name

         ? "    " + substr($Name,4)

         $i = $i +1

      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);

         $i = $i + $j

      next

   else

      "GetObject COM error: " + @error + " " + @serror

   endif

   $EnumOUs = $i

Endfunction