[ユーザーを作成する]

ユーザーを作成します。
次回ログオン時のパスワード変更を無効化しています。（笑）

【ソースコード】

[tips0195.vbs]
Option Explicit
On Error Resume Next

Dim strComputerName ' コンピュータ名
Dim strCompPath     ' PC パス
Dim objComputer     ' コンピュータ情報
Dim strNewUser      ' 追加するユーザー
Dim objNewUser      ' 追加するユーザー

strComputerName = "Comp01"
strCompPath = "WinNT://" & strComputerName & ",Computer"
strNewUser = "tonton"

Set objComputer = GetObject(strCompPath)
If Err.Number = 0 Then
    Set objNewUser = objComputer.Create("user", strNewUser)
    If Err.Number = 0 Then
        objNewUser.Put "PasswordExpired", 0
        objNewUser.SetInfo
        If Err.Number = 0 Then
            WScript.Echo "ユーザー " & strNewUser & " を作成しました。"
        Else
            WScript.Echo "エラー: " & Err.Description
        End If
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objNewUser = Nothing
Set objComputer = Nothing

【実行結果】

C:\> cscript //NoLogo tips0195.vbs
ユーザー tonton を作成しました。