VB Forum / Database Access / November 2008

We need to know which line raises the error. Again, I don't see a problem in
the code. One possibility is that the value for "Provider" passed to the
function is invalid. However, I don't understand the purpose of this
variable. I also am not sure of the purpose of the function.

If the purpose is to determine the Distinguished Name of a computer given
the NetBIOS name, there are easier ways to do this. I would recommend using
the NameTranslate object. I also would use the RootDSE object to determine
the name of the current domain (as I pointed out earlier).

I assume the value of sUserName is the NetBIOS name of a computer because
you append a trailing "$" to the value and search for a computer object
whose sAMAccountName matches. The code to retrieve the DN of a computer from
the NetBIOS name could be as follows:
================
Private Function FindHostPosition(ByVal strComputer As String) As String
   ' Function to determine Distinguished Name of computer from NetBIOS
name.
   Dim objTrans As NameTranslate
   Dim objRootDSE As Object
   Dim strDNSDomain As String
   Dim strNetBIOSDomain As String

   ' Constants for the NameTranslate object.
   Const ADS_NAME_INITTYPE_GC = 3
   Const ADS_NAME_TYPE_NT4 = 3
   Const ADS_NAME_TYPE_1779 = 1

   ' Determine DNS name of domain from RootDSE.
   Set objRootDSE = GetObject("LDAP://RootDSE")
   strDNSDomain = objRootDSE.Get("defaultNamingContext")

   ' Use the NameTranslate object to find the NetBIOS domain name from the
   ' DNS domain name.
   Set objTrans = CreateObject("NameTranslate")
   ' Initialize NameTranslate by locating the Global Catalog.
   objTrans.Init ADS_NAME_INITTYPE_GC, ""
   objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain
   strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
   ' Remove trailing backslash.
   strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)

   ' Use the Set method to specify the NT format of the object name.
   ' The sAMAccountName of computer objects is the NetBIOS name
   ' with a trailing "$" appended.
   ' Trap error if object does not exist.
   On Error Resume Next
   objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strComputer &
"$"
   If (Err.Number = 0) Then
       On Error GoTo 0
       ' Use the Get method to retrieve the RPC 1779 Distinguished Name.
       FindHostPosition = objTrans.Get(ADS_NAME_TYPE_1779)
   Else
       On Error GoTo 0
       ' Object not found.
       FindHostPosition = "<Not found>"
   End If

End Function
==========
The NameTranslate object requires a reference to "Active DS Type Library"
(activeds.tlb). Using NameTranslate is more efficient than using ADO to
search for the object. However, I believe your code will work if the proper
values are passed to it.