Break On 

if not InContainer('OU=Servers,DC=TIGR,DC=ORG', 'Computer')[0]
   shell '\\server\share\package.exe'
endif
   
Function InContainer ($Container, $NameType)
   Dim $Container, $CurrentContainer, $NameType, $Name1, $Name2

   select
      case $NameType = "Computer"  $Name1 = "@Domain\@wksta$"
      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]
            case instr($Name2[0], $Container)  $InContainer = 2, $Name2[1], $Name2[2]
            case 1                             $InContainer = 0, $Name2[1], $Name2[2]
         endselect
      else
         $InContainer = -2, $Name2[1], $Name2[2]
      endif
   else
      $InContainer = -1, 0, ""
   endif
EndFunction


 


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