VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/04/13(Thu) 23:04 |
| 投稿者 | ： はしくれ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： LDAPで SetInfo 出来ない。。 |
はしくれ です。
はじめまして。
今、VB6.0にてADSIのLDAPでActive Directory のユーザー登録をするプログラムを作成しています
。
しかし、登録するロジックは出来ていると思っているのですが、それを反映させるSetInfoがすると
以下のようなエラーになります。
「指定されたディレクトリサービス属性または値が存在しません。」
いろいろ弄ってはみたもののあまり進展がなく相談のために投稿しました。
おそらくは初歩的なことが抜けていると思ってはいるのですが。。
サーバー周りの問題もあるのですかねぇ。。
よろしくお願いします。
＊＊＊＊＊＊＊＊＊＊＊ 以下、ソース ＊＊＊＊＊＊＊＊＊＊＊＊＊＊
''****************************************************
''新規データ登録 (未完成 SetInfo が出来ない。）
''****************************************************
Private Sub cmdTest11_Click()
Dim w_ip, w_dn_user, w_dn_admin As String
Dim CM_Domain_Name As String
Dim CM_Domain_IP_Address As String
Dim CM_Domain_Password As String
Dim CM_Domain_Administrator As String
Dim Container As IADsContainer
Dim userObj As IADsUser
Dim DSO As IADsOpenDSObject
Dim Obj As IADs
Dim sName As String
'On Error Resume Next
''Active Directory サーバーへの接続
CM_Domain_Name = "testAD.org"
CM_Domain_IP_Address = "192.168.XXX.XXX"
CM_Domain_Password = "passWORD123"
CM_Domain_Administrator = "testAD\administrator"
w_ip = "LDAP://" & CM_Domain_IP_Address & "/"
w_dn_user = "cn=users," & CM_GET_Domain_Directory("softcreate.
org")
w_dn_admin = "cn=" & CM_GET_Admin(CM_Domain_Administrator) & _
",cn=users," & CM_GET_Domain_Directory(CM_Domai
n_Name)
Set DSO = GetObject("LDAP:")
Set Obj = DSO.OpenDSObject(w_ip & w_dn_user, w_dn_admin, CM_Domain_Password,
1)
''Active Directory への ユーザー登録
Set Container = GetObject(Obj.ADsPath)
sName = "ADTESTUSER"
Set userObj = Container.Create("user", "cn=" & sName)
userObj.Put "sAMAccountName", sName
userObj.Put "SetPassword", "adtestUSER123"
''ここで、エラーになる。
userObj.SetInfo
Set USR = Nothing
Set Obj = Nothing
Set DSO = Nothing
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）