Function FindADs(byVal StrCN)
   Set ad_connect = CreateObject("ADODB.Connection")       
   ad_connect.Provider="ADsDSOObject"
   ad_connect.Open "Active Directory Provider"
   strAdsPath = "LDAP://...."
 
   Set oCommand = CreateObject("ADODB.Command")
   oCommand.ActiveConnection = ad_connect
   oCommand.Properties("Page Size") = 50
   oCommand.Properties("Searchscope") = 2
   oCommand.CommandText = "Select ADsPath from '"&strAdsPath&"' where" & _
     "objectClass='computer' and Name = '"&StrCN&"'"
 
  Set rs_ad = oCommand.Execute
         If rs_ad.eof Then
               FindADs = Nothing
         Else
               FindADs = GetObject(rs_ad("ADsPath"))
       End If
   rs_ad.close
   Set rs_ad = nothing
End Function

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell