Разблокировка учетной записи Active Directory

Средствами командной строки или PowerShell это невозможно, остается только VBScript

Set objUser=GetObject("LDAP://DN_пользователя")
objUser.IsAccountLocked = False
objUser.SetInfo