Hvor er fejlin i følgende kode
Hej,Jeg har kopieret følgende kode fra Internet..men det eller andet er galt.
Er der nogen som kan hjælpe mig ?
Set oConn = CreateObject("ADODB.Connection")
oConn.Provider = "ADsDSOObject"
oConn.Open
vSQL = "SELECT ADsPath,
sn,givenName,telephonenumber,mobile,physicaldeliveryofficename,FacsimileTelephoneNumber,"
& _
"pager FROM " & Chr(39) & GetDnc() & Chr(39) &_
"WHERE objectCategory='person' AND objectClass='user' AND sn = '*' ORDER BY sn"
Set oRs = oConn.execute(vSQL)
Hvor GetDNC() er følgende function:
Function GetDnc()
Set objRootDSE = GetObject("GC://RootDSE")
Dnc = objRootDSE.Get("defaultNamingContext")
Set ObjRootDSE = Nothing
GetDnc = "LDAP://cn=users," & DNC
End Function
På forhånd tak for hjælpen
Thomas
