code:

---

 
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
 

---

code:

---

 
break on

$ldap = TranslateName(1, @domain, 3, @ldomain+'\'+@userid, 1)
? $ldap[0]

$OU = LDAPArray($ldap[0])
for each $element in $ou
	? $element
	next

$OU = LDAPArray($ldap[0],'OU')
for each $element in $ou
	? $element
	next

;*************************************************************************************************************************
Function TranslateName ($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)
   Dim $InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType
   Dim $NameTranslate, $ReturnName, $Error, $ErrorText
   $Error = 0	   $ErrorText = ""	   $ReturnName = ""
   $NameTranslate = CREATEOBJECT ("NameTranslate")		$Error = @error   $ErrorText = @serror
   if $Error = 0
      $NameTranslate.Init ($InitType, $BindName)		$Error = @error   $ErrorText = @serror
      if $Error = 0
         $NameTranslate.Set ($LookupNameType, $LookupName)	$Error = @error   $ErrorText = @serror
         if $Error = 0
            $ReturnName = $NameTranslate.Get($ReturnNameType)	$Error = @error   $ErrorText = @serror
         endif
      endif
   endif
   $TranslateName = $ReturnName, $Error, $ErrorText
Endfunction
;*************************************************************************************************************************
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

 

---

code:

---

$newDN = ""
$dn = "LDAP://OU=XXX,OU=YYY,OU=ZZZ,DC=AAA,DC=BBB,DC=CCC,DC=ca"
$justOUs = split(split(split($dn, "//")[1], ",DC")[0], ",")

for $j = ubound($justOUs) to 0 step -1
	$newDN = $newDN + $justOUs[$j] + ","
next
$newDN = substr($newDN, 1, len($newDN)-1)

? $newDN
	

---

code:

---

$newDN = ""
$dn = "LDAP://CN=SHAWN,OU=XXX,OU=YYY,OU=ZZZ,DC=AAA,DC=BBB,DC=CCC,DC=ca"
$justOUs = split(split(split($dn, "//")[1], ",DC")[0], ",")

for $j = ubound($justOUs) to 0 step -1
	if substr($justOUs[$j], 1, 2) <> "CN"
		$newDN = $newDN + $justOUs[$j] + ","
	endif
next
$newDN = substr($newDN, 1, len($newDN)-1)

? $newDN

---

code:

---

 
Function LDAPArray($l, optional $f)
	dim $e, $t
	if not instr("CN OU DC",$f)	$f=''	endif
	for each $e in split($l,',')
		if left($e,2)=$f or $f=''
			$t=$t+'|'+right($e,len($e)-3)
			endif
		next	
	$LDAParray=split(substr($t,2),'|')
	endfunction
 

---

to delonk it:
$e=$element
$t=$temp
$l=$ldap
$f=$filter


[ 25. August 2003, 21:01: Message edited by: Radimus ]

code:

---

$Conicalname = TranslateName (3, "", 3, @Domain + "\" + @wksta + "$$", 2)  

---

code:

---

Break ON
dim $total
$total = enumComputers("OU=blah, DC=blah, DC=blah, DC=net")

? "Final Count: " $total

function enumComputers($root, optional $indent)
   dim $ouFilter, $compFilter[0]
   dim $rootObj, $object, $comp
   dim $fsPos, $count
   
   $ouFilter = 'organizationalunit', 'container'
   $compFilter[0] = 'Computer'
   $count = 0
   
   ; Display current OU or Container
   for $j = 0 to $indent
      " "
   next
   split($root, ",")[0] ?

   ; If the OU or Container contains a forward slash (there are three of them)
   ; Add a backslash (esc char) in front of it
   $fsPos = instr($root, '/')
   if $fsPos
      $root = substr($root, 1, $fsPos-1)  + '\' + substr($root, $fsPos)
   endif
   
   $rootObj = getobject("LDAP://"+$root)
   if @error = 0
      ; Call this function (I love recursion)
      ; with each child OU or Container
      $rootObj.Filter = $ouFilter
      for each $object in $rootObj
         $count = $count + enumComputers($object.Name + ", " + $root, $indent+3)
      next

      ; Count the number computers in the
      ; current OU or Container
      $rootObj.Filter = $compFilter
      for each $comp in $rootObj
         $count = $count + 1
      next
   endif
   $enumComputers = $count
endfunction

---