ユーザーアカウントロック解除

実行には管理者の権限が必要です。

Dim strDomain 'マシン名
Dim oUser 'ユーザーオブジェクト
strDomain = InputBox("ローカルユーザーのアカウントロックを解除するマシン名")

Set oUser = GetObject("WinNT://" & strDomain & "/ローカルユーザーのSAMAccountName")

If oUser.IsAccountLocked = -1 Then
    oUser.IsAccountLocked = 0
    oUser.SetInfo
Else
    WScript.Echo "ロックされてない"
End If

If Err.Number <> 0 Then
    WScript.Echo "失敗"
Else
    WScript.Echo "成功"
End If