Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Excel 2016)
VBAでのLDAP接続について
投稿日時: 18/07/10 18:54:36
投稿者: アベッチ

下記の記述で自分が属しているドメインのユーザー一覧は取得出来ますが、他ドメインの一覧が取得出来ずに困っています。
PowerShellではありますが、「Get-ADUser」コマンドで他ドメインのユーザーは閲覧出来ることからアクセス権はあるものと思われます。
 
以下記述*****************
 
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.CommandText = "<LDAP://OU=Users,OU=test,DC=AAA,DC=com>;(objectCategory=User);CN,mail,department;Subtree"
Set ObjRec = objCommand.Execute
ObjRec.MoveFirst
 
記述ココまで******************:
 
これで「OU=Users,OU=test,DC=AAA,DC=com」の部分を「OU=Users,OU=test,DC=BBB,DC=com」としたときに「ObjRec.MoveFirst」でサーバーから紹介が返ってきましたとエラーで止まります。
他の方のコードを参照させて頂いたので正直意味はわかっておらず漠然とした質問になりますが、お力添え頂けますでしょうか。
 
よろしくお願い致します。

トピックに返信