Ad connectionstring - 500kr

500kr for svar som løser mit problem.

Jeg har et meget irriterende problem.
ASP 3.0
Integreted Windows Authentication

Skal hente oplysninger om den bruger som laver NT login i et AD. Det virker perfekt når jeg køre på localhost. Men præcis samme kode, samme bruger, samme connectionstreng virker ikke når jeg forsøger fra en anden maskine.

Får
Provider error '80040e37'
Table does not exist.

Har forsøgt flere dage at løse problemet.

<%

strUserName = ucase(Request.ServerVariables("AUTH_USER"))

strDomain = ""
if InStr(strUserName,"jec\") then
    strDomain = "dc=jec,"
end if

Response.Write("Domain: ")
Response.Write(strDomain)
Response.Write("<br>")

strUserName = Mid(strUserName,(instr(1,strUserName,"\")+1),len(strUserName))

Response.Write("User: ")
Response.Write(strUserName)
Response.Write("<br>")

dtStart = TimeValue(Now())

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

Response.Write("Constring: ")
Response.Write("<xmp><LDAP://" & strDomain & "dc=apmoller,dc=net>;(&(objectCategory=User)(samAccountName=" & strUserName & "));samAccountName,distinguishedName;subtree</xmp>")
Response.Write("<br>")

objCommand.CommandText = "<LDAP://" & strDomain & "dc=apmoller,dc=net>;(&(objectCategory=User)(samAccountName=" & strUserName & "));samAccountName,distinguishedName;subtree"
 
Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
    response.Write("sAMAccountName: " & strUserName & " does not exist.<br>")
Else
    response.Write(strUserName & " exists.<br>")
    response.Write(objRecordSet.Fields("distinguishedName").Value)
End If

objConnection.Close
%>