Posted August 6, 200619 yr UserName = InputBox("Enter the user's login name that you want to unlock:")DomainName = InputBox("Enter the domain name in which the user account exists:")Set UserObj = GetObject("WinNT://"& DomainName &"/"& UserName &"")If UserObj.IsAccountLocked = -1 then UserObj.IsAccountLocked = 0UserObj.SetInfoIf err.number = 0 Then Wscript.Echo "The Account Unlock Failed. Check that the account is, in fact, locked-out."Else Wscript.Echo "The Account Unlock was Successful"End if
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now