作成 2010.02.01
更新 2010.02.02
ローカル Administrators へ Active Directory アカウントを追加する。
ドメイン参加済みの Windows 2000 Pro のローカル管理者から実行しても成功しました。 なぜ動くのか分からない。
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

©2004-2017 UPKEN IPv4