標題: [發問] 如何在EXCEL VBA中 利用LDAP驗證使用者 並取回使用者名字 [打印本頁]

---

作者: user999    時間: 2011-12-2 09:03     標題: 如何在EXCEL VBA中 利用LDAP驗證使用者 並取回使用者名字

使用者
網路抓取 不過不通

'引用 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)