Unlock account

Examples

Unlock account
Dim Server Set Server = CreateObject("UserManager.Server") 'Unlock one user account Server.Users("Coll").LockOut = False 'Unlock all user accounts For Each User In Server.Users User.LockOut = False Next

Unlock account

Dim Server

Set Server = CreateObject("UserManager.Server")
'Unlock one user account
Server.Users("Coll").LockOut = False

'Unlock all user accounts 
For Each User In Server.Users
    User.LockOut = False
Next

UserManager

Easy to use classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. Simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL.