ＶＢでユーザーを作成し、権限を与えるには？ (ID:107341)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 教えていただいたコードを参考にして、下記でアドミ権限を与えることができました！ ありがとうございました。 -------------------------------------------------------------------- '接続先のパス文字列を指定 strWinNtPath = "WinNT://" & Environ("COMPUTERNAME") 'ドメインCPに接続 Set objContainer = GetObject(strWinNtPath) 'IADsUserオブジェクトを作成 Set objUser = objContainer.Create("User", "ユーザー名") 'IADsGroupオブジェクトの作成 Set objGroup = objContainer.Create("Group", "Administrators") With objUser 'PASSWARD設定 .SetPassword "" 'フルネーム設定 .FullName = "" 'ユーザー情報を変更 .SetInfo End With With objGroup .Add (objUser.ADsPath) ' .SetInfo End With 'オブジェクトの開放 Set objUser = Nothing Set objContainer = Nothing Set objGroup = Nothing