ASP進行AD認證，ASP所在的主機不需先加入網域。
透過OpenDSObject進行LDAP查詢任何物件，傳回err.number為0即表示登入成功。
<%
Dim login_id, login_pw, dso, obj1
login_id = "test" '登入帳號
login_pw = "tritest" '登入密碼
Set dso = GetObject("LDAP:")
on error resume next
'Set obj1 = dso.OpenDSObject("LDAP://192.168.1.1/CN=sync,CN=Users,DC=testad,DC=corp", login_id, login_pw, 1) '表示用test帳密進入查CN為Users下的sync帳號物件
'Set obj1 = dso.OpenDSObject("LDAP://192.168.1.1/CN=Users,DC=testad,DC=corp", login_id, login_pw, 1) '表示用test帳密進入查CN為Users下所有物件
Set obj1 = dso.OpenDSObject("LDAP://192.168.1.1/OU=TEST_OU,DC=testad,DC=corp", login_id, login_pw, 1) '表示用test帳密進入查OU為TEST_OU下的所有物件
response.write "err.number=" & err.number & "<br>"
If err.number = 0 Then
response.write "登入成功!<br>"
Else
response.write "登入失敗!<br>"
End if
if Not IsObject(obj1) Then
response.write "查無物件<br>"
Else
response.write "查有物件<br>"
End If
Response.Write obj1.Get("Name")&"----------------------<br>"
for each aaa in obj1
response.write aaa.name&"<br>"
Next
Set obj1 = Nothing
Set dso = Nothing
%>
全站熱搜
留言列表
