Simple ASP page for unlocking Active Directory accounts

This is quick way to unlock AD accounts on the PC or smartphone. The page will display all currently locked accounts. Type the username and click the unlock button.

You need these two files.

unlock.exe from Joeware.net
LoginAdmin.dll mentioned on this page. -> Code Project

unlock.asp
<br><br><b>My unlocker</b><br><br><% Response.Buffer = true %> <br><% Set objWShell = CreateObject("WScript.Shell") Set objCmd = objWShell.Exec("c:\inetpub\unlock.exe domaincontroller * -view") strPResult = objCmd.StdOut.Readall() set objCmd = nothing: Set objWShell = nothing strStatus = "offline" if InStr(strPResult,"TTL=")>0 then strStatus = "online" <br> <br> response.write "<br>" & replace(strPResult,vbCrLf,"<br>") <br>%><br><br><form name="input" action="unlock2.asp" method="post"><br>Username: <br><input type="text" name="user"><br><input type="submit" value="unlock"><br></form><br>
unlock2.asp
<br><br><br><textarea><br><br><b>My unlocker</b><br><br><% user=Request.Form("user") %><br><br><% Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser") objLogon.Logon "user", "pass", "domain" UserName = user DomainName = "example.com" Set UserObj = GetObject("WinNT://"& DomainName &"/domaincontroller/"& UserName &"") 'If Err.Number = 0 then If UserObj.IsAccountLocked = -1 then UserObj.IsAccountLocked = 0 UserObj.SetInfo 'else Set UserObj = Nothing 'end if 'If err.number = 0 Then ' response.write "The Account Unlock Failed. Check that the account is, in fact, locked-out." 'Else ' response.write "The Account Unlock was Successful" 'End if objLogon.Logoff Set objLogon = Nothing %><br>

The finished product.

My unlocker

1: jamsignal 12/19/2011-13:39:03 LOCKED VIEW_ONLY

2: Guest 11/09/2011-10:36:49 LOCKED VIEW_ONLY

3: Mickey 12/23/2011-07:44:31 LOCKED VIEW_ONLY

4: Minnie 12/23/2011-08:38:09 LOCKED VIEW_ONLY

5: Donald 12/17/2011-03:27:30 LOCKED VIEW_ONLY

Username: