作成 2010.02.01
更新 2010.02.02
更新 2010.02.02
ローカル Administrators へ Active Directory アカウントを追加する。
ドメイン参加済みの Windows 2000 Pro のローカル管理者から実行しても成功しました。
なぜ動くのか分からない。
2010-02-02 追記 変数 strPC をコンピュータ名に設定することでうまく行ったとの報告がありました。
2010-02-02 追記 変数 strPC をコンピュータ名に設定することでうまく行ったとの報告がありました。
Option Explicit
Const strPC = "."
Const strMember = "Domain Users"
Const strDomain = "test.lan"
Const strGroup = "Administrators"
Call AddGroup (strDomain & "/" & strMember, strPC & "/" & strGroup)
'##### グループへ登録
Sub AddGroup(S_strMember, S_strGroup)
Dim objGroup, objMember
Set objGroup = GetObject("WinNT://" & S_strGroup)
On Error Resume Next
objGroup.Add("WinNT://" & S_strMember)
If Err.Number = -2147023518 Then
WScript.Echo S_strMember & " は既に " & S_strGroup & " へ所属しています。" & _
vbCrLf & vbCrLf & "OKを押してください"
ElseIf Err.Number <> 0 Then
WScript.Echo "エラーが発生!!" & vbCrLf & "Err.Number=" & Err.Number & vbCrLf & _
"Err.Description=" & Err.Description & vbCrLf & _
"Err.Source=" & Err.Source
End If
On Error Goto 0
End Sub