OOps, my bad... it was InContainer() that I modified.
 Code:
;FUNCTION         InContainer()
;http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000179
;AUTHOR           Howard A. Bullock (hbullock@tycoelectronics.com)
;
;VERSION          1.3 (modified by Les Ligetfalvy)
;
Function InContainer ($Container, $NameType, $Name)
   Dim $CurrentContainer, $Name1, $Name2

   select
      case $NameType = 'Computer'  $Name1 = @Domain + '\' + $Name + '$'
      case $NameType = 'User'      $Name1 = @LDomain + '\' + @UserID
      case 1                       $Name1 = ''
   endselect

   if $Name1 <> ''
      $Name2 = TranslateName (3, '', 3, $Name1, 1)
      if $Name2[1] = 0
         $CurrentContainer = substr($Name2[0], instr($Name2[0], ',')+1)
         select
            case $CurrentContainer=$Container  $InContainer = 1, $Name2[1], $Name2[2], $Name2[0]
            case instr($Name2[0], $Container)  $InContainer = 2, $Name2[1], $Name2[2], $Name2[0]
            case 1                             $InContainer = 0, $Name2[1], $Name2[2]
         endselect
      else
         $InContainer = -2, $Name2[1], $Name2[2]
      endif
   else
      $InContainer = -1, 0, '',''
   endif
EndFunction
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.