- 论坛徽章:
- 0
|
先写了个脚本,可以访问ad,但是不知道怎么取得用户名和密码
代码如下
---------------------------------
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT Name, ADsPath,givenName,initials,displayName FROM 'LDAP://ou=test,dc=bjdcr,dc=local' WHERE objectCategory='user' "
Set objRecordSet = objCommand.Execute
---------------------------------
我要做的就是一个asp登录页面,输入用户名和密码,后台连接ad,进行有效校验,目前是用如上的脚本来做,也许还有其他的方法来访问ad,希望大家能提供点意见,谢谢了 |
|