文章/答案/技术大牛

发布

社区首页 >问答首页 >不带登录凭据的LDAP认证VB6

问不带登录凭据的LDAP认证VB6
EN

Stack Overflow用户

提问于 2015-04-15 19:45:55

回答 1查看 1.5K关注 0票数 0

我已经创建了一个VB6程序，它将使用LDAP身份验证。但是在使用LDP.exe的服务器上也可以使用相同的身份验证，这既允许用户使用登录凭据，也可以不使用凭据。但是，当我尝试在客户端计算机(XP)时，它说：

域不存在。

Dim objGroup As IADsGroup
Dim strDN As String
Dim adsSystemInfo As IADsADSystemInfo
strDN = "CN=Users,dc=DomainName,dc=Net"
Set objGroup = GetObject("LDAP://" & strDN)
Set adsSystemInfo = CreateObject("ADSystemInfo")

active-directory

ldap

vb.net-2010

vb6

回答 1

Stack Overflow用户

发布于 2015-04-15 20:11:43

参考项目中的activeds.tlb。用法：

 With New ADSystemInfo
  MsgBox ("Computer Name: " & .ComputerName)
  MsgBox ("User Name: " & .UserName)
 End With

还可以使用ADO查询LDAP对象，如：

Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim oField As ADODB.Field
Dim iP As IADs

oConn.Provider = "ADsDSOObject"
oConn.CursorLocation = adUseNone
oConn.Open "Active Directory Provider"

oRS.CursorLocation = adUseClient
oRS.Open "Select * from 'LDAP://domain'", oConn, adOpenStatic, adLockReadOnly

Set iP = GetObject(oRS(0).Value)

While Not oRS.EOF
 For Each oField In oRS.Fields
  List1.AddItem oField.Name & " / " & oField.Value
 Next

 oRS.MoveNext
Wend

oRS.Close
Set oRS = Nothing

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/29659465

复制

相似问题

问不带登录凭据的LDAP认证VB6
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问不带登录凭据的LDAP认证VB6EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问不带登录凭据的LDAP认证VB6
EN