[管理者権限を付与する]

前回作成したユーザーに、管理者権限を付与します。

【ソースコード】

[tips0196.vbs]
Option Explicit
On Error Resume Next

Dim strComputerName ' コンピュータ名
Dim strAdminPath    ' Administrator グループパス
Dim objAdminGroup   ' グループ情報
Dim strUserName     ' ユーザー名
Dim strUserPath     ' ユーザーパス

strComputerName = "Comp01"
strAdminPath = "WinNT://" & strComputerName & "/Administrators,group"
strUserName = "tonton"
strUserPath = "WinNT://" & strComputerName & "/" & strUserName

Set objAdminGroup = GetObject(strAdminPath)
If Err.Number = 0 Then
    objAdminGroup.Add(strUserPath)
    If Err.Number = 0 Then
        WScript.Echo "ユーザー " & strUserName & _
            " に管理者権限を付与しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objAdminGroup = Nothing

【実行結果】

C:\> cscript //NoLogo tips0196.vbs
ユーザー tonton に管理者権限を付加しました。