LDAP & Mac (1 Viewer)

arvdot

Registered User.
Local time
Today, 09:40
Joined
Mar 13, 2009
Messages
21
I've set up my database to access my company's ADS to enforce login credentials, but its recently came to my attention that users who are running microsoft parallel on a Mac cannot get in the system. It seems that the LDAP query does not work. Has anyone came across this problem? Does anyone have any suggestions? Here's my current code and it works perfectly for PC's.

Public Function Validation(UWDir As String, password As String)
On Error GoTo Fail
Dim con
Dim command
Dim rs
Dim dso
Dim cont
Dim path
Dim User

ADsPath = "LDAP://uwldap.uwaterloo.ca/ou=people,dc=uwaterloo,dc=ca"


Set con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"

con.Open "ADSI"

Set com = CreateObject("ADODB.Command")
Set com.ActiveConnection = con


com.CommandText = "<" & ADsPath & ">;(uid=" & UWDir & ");ADsPath, cn;subtree"
Set rs = com.Execute


path = rs.Fields("ADsPath")


User = InStrRev(path, "/")
User = Mid(path, User + 1)


Set dso = GetObject("LDAP:")
Set cont = dso_OpenDSObject(ADsPath, User, password, 34)

rs.Close
con.Close

Validation = True
Exit Function

Fail:
Validation = False
End Function
 

Banana

split with a cherry atop.
Local time
Today, 09:40
Joined
Sep 1, 2005
Messages
6,318
Not familiar with Parallels, but I do use VMWare; I'm pretty sure they're similar. How is internet sharing; is it bridged or NAT or host-only?

What error do they get? Is it a credential issue or they just can't do a query at all?
 

Users who are viewing this thread

Top Bottom