Here is a simpler version. [Smile]

Requires Kix 4.x.

ref - http://cwashington.netreach.net/depo/AdsiFaq/unlocking_a_user_account.htm

code:
?"Enter in a Userid - e.g jdoe"
GETS $User

$UserObj = GetObject("WinNT://@LDOMAIN/$User")
If $UserObj.IsAccountLocked = -1
     $UserObj.IsAccountLocked = 0
     $UserObj.SetInfo
ENDIF
- Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's