- 帖子
- 76
- 主題
- 33
- 精華
- 0
- 積分
- 116
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新竹
- 註冊時間
- 2011-9-29
- 最後登錄
- 2020-8-25
|
[發問] 如何在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 |
|
發表於 2011-12-2 09:03
| 
