[發問] 如何在EXCEL VBA中 利用LDAP驗證使用者 並取回使用者名字

user999

使用者
網路抓取 不過不通

'引用 Active DS Type Library

Dim MyNamespace As IADsOpenDSObject
Dim X
oUsername="MyUserName"
oPassword="MyPassword"
On Error GoTo CleanuUp
Set MyNamespace = GetObject("LDAP:")
Set X = MyNamespace.OpenDSObject("LDAP://192.168.xx.xx",  oUserName, oPassword, ADS_SECURE_AUTHENTICATION)
'抓使用者
CleanUp:
    MsgBox ("An error has occurred.")
    Set MyNamespace = Nothing
    Set X = Nothing