vbscript - 如何使用 vbscript 从 Oracle Internet Directory 获取所有用户？

Question

如何使用 vbscript 从 Oracle Internet Directory 获取所有用户？

Answer 1

据我了解，OID 只是另一个 LDAP 服务，所以我假设可以使用类似于以下的代码来查询它：

Const ADS_SCOPE_SUBTREE = 2

Set conn = CreateObject("ADODB.Connection")
Set cmd =   CreateObject("ADODB.Command")
conn.Provider = "ADsDSOObject"
conn.Open "Active Directory Provider"
Set cmd.ActiveConnection = conn

cmd.Properties("Page Size") = 1000
cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

cmd.CommandText = "SELECT Name FROM 'LDAP://dc=test,dc=com' WHERE objectCategory='user'"
Set rec = cmd.Execute

rec.MoveFirst
Do Until rec.EOF
    Wscript.Echo rec.Fields("Name").Value
    rec.MoveNext
Loop

但是更改LDAP://dc=test,dc=com为您需要用来正确绑定它的内容。