ADSI script to unlock a user account on your Windows domain.

CONST UF_LOCKOUT = &H0010

Sub UnlockAccount
	Set oUser = GetObject(strDomain & "/" & strUser)
	Flags = oUser.Get("UserFlags")
	oUser.Put "UserFlags", Flags Xor UF_LOCKOUT
	oUser.SetInfo
	Set oUser = Nothing
End Sub