求助:有关adsi访问活动目录的问题(我是写java的,vb不会啊)

zyx_154 2005-08-09 11:11:02
小弟是写java的,但是最近工作需要,要修改一端vb的代码,时间紧迫,实在是没太多时间学习vb,只好前来求助

代码如下:
Dim con As New Connection
Dim rs As New Recordset
Dim Com As New Command

'Open a Connection object
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"

'Create a command object on this connection
Set Com.ActiveConnection = con
Com.CommandText = "select name from 'LDAP://DC=ADTEST,DC=COM' where objectClass='*' ORDER BY NAME"

'Set the preferences for Search
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'seconds
Com.Properties("searchscope") = ADS_SCOPE_SUBTREE

'Execute the query
Set rs = Com.Execute

' Navigate the record set
While Not rs.EOF
Debug.Print rs.Fields(Name).Value
rs.MoveNext
Wend

运行时报编译错误:用户定义类型未定义

那位能指点一下,万分感谢!!
...全文
115 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
crycoming 2005-08-09
  • 打赏
  • 举报
回复
加载ADS_SCOPE_SUBTREE 的定义模块 就是包含 Const ADS_SCOPE_SUBTREE= 的模块
crycoming 2005-08-09
  • 打赏
  • 举报
回复
工程-->引用-->Microsoft ActiveX Data Objects 2.6 Library
zyx_154 2005-08-09
  • 打赏
  • 举报
回复
crycoming(瞎编):
我现在的环境是 域ADTEST.COM , 测试的机器加入了该域,ping装有AD的机器也没有问题
可把你的代码里面的'LDAP://DC=fabrikam,DC=com'的值改成'LDAP://DC=ADTEST,DC=COM'后,运行时还是报"Table does not exist"
crycoming 2005-08-09
  • 打赏
  • 举报
回复
'---------------------------------------------------------------
' Returns the name and location for all the computer accounts in
' Active Directory.
'---------------------------------------------------------------
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.CommandText = _
"Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
& "where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
objRecordSet.MoveNext
Loop

zyx_154 2005-08-09
  • 打赏
  • 举报
回复
谢谢,现在可以编译了
但是在运行是还有问题,执行Com.Execute的时候报 -2147217865(80040e37) table does not exist
这是什么原因? 是我的活动目录配置问题还是查询语句的问题?
第1章 活动目录库套书的使用 1.1 活动目录库套书的组成 1.2 活动目录库套书的编思想 第2章 本书的内容 2.1 组策略编程 第3章 微软参考资源 3.1 微软开发者网络 3.1.1 MSDN和MSDN在线的比较 3.1.2 订阅MSDN 3.1.3 MSDN的使用 3.1.4 使用MSDN在线 3.2 Windows程序设计系列参考 第4章 寻找你需要的开发者资源 4.1 开发者支持 4.2 在线资源 4.3 关于学习的产品 4.4 会议 4.5 其他资源 第二部分 指南、例子和编程参考 第5章 需要首先知道的有关ADSI的知识 5.1 ADSI函数 5.1.1 ADsBuildEnumerator函数 5.1.2 ADsBuildVarArrayInt函数 5.1.3 ADsBuildArrayStr函数 5.1.4 ADsEncodebinaryData函数 5.1.5 ADsEnumertateNext函数 5.1.6 ADsFreeEnumertator函数 5.1.7 ADsGetLastError函数 5.1.8 ADsGetObject函数 5.1.9 ADsOpenObject函数 5.1.10 ADsSetLastError函数 5.1.11 AllocADsMem函数 5.1.12 AllocADsStr函数 5.1.13 FreeADsMem函数 5.1.14 FreeADsStr函数 5.1.15 ReallocADsMem函数 5.1.16 ReallocADsStr函数 5.1.17 舍弃的ADSI函数 5.2 ADSI结构 5.2.1 ADS_ATTR_DEF结构 5.2.2 ADS_ATTR_INFO结构 5.2.3 ADS_BACKLINK结构 5.2.4 ADS_CASEIGNORE_LIST结构 5.2.5 ADS_CLASS_DEF结构 5.2.6 ADS_DN_WITH_BINART结构 5.2.7 ADS_DN_WITH_STRING结构 5.2.8 ADS_EMAIL结构 5.2.9 ADS_FAXNUMBER结构 5.2.10 ADS_HOLD结构 5.2.11 ADS_NETADDRESS结构 5.2.12 ADS_NT_SECURITY_DESCRIPTOR 结构 5.2.13 ADS_OBJECT_INFO结构 5.2.14 ADS_OCTET_STRING结构 5.2.15 ADS_OCTET_STRING结构 5.2.16 ADS_PATH结构 5.2.17 ADS_POSTALADDRESS结构 5.2.18 ADS_PROV_SPECIFIC结构 5.2.19 ADS_REPLICAPOINTER结构 5.2.20 ADS_SEARCH_COLUMN结构 5.2.21 ADS_SEARCHPREF_INFO结构 5.2.22 ADS_SORTKEY结构 5.2.23 ADS_TIMESTAMP结构 5.2.24 ADS_TYPEDNAMP结构 5.2.25 ADSVALUE结构 第6章 使用ADSI 6.1 ADSI枚举 6.1.1 ADS_ACEFLAG_ENUM枚举 6.1.2 ADS_ACETYPE_ENUM枚举 6.1.3 ADS_AUTHENTICATION_ENUM枚举 6.1.4 ADS_cHASE_REFERRALS_ENUM 枚举 6.1.5 ADS_DEREFENUM枚举 6.1.6 ADS_DISPLAY_ENUM枚举 6.1.7 ADS_ESCAPE_MODE_ENUM枚举 6.1.8 ADS_FLAGTYPE_ENUM枚举 6.1.9 ADS_FORMAT_ENUM枚举 6.1.10 ADS_GROUP_TYPE_ENUM枚举 6.1.11 ADS_NAME_INITTYPE_ENUM枚举 6.1.12 ADS_NAME_TYPE_ENUM枚举 6.1.13 ADS_OPTION_ENUM枚举 6.1.14 ADS_PREFERENCES_ENUM枚举 6.1.15 ADS_PROPERTY_OPERATION_

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧