Enumerate server users

Examples

Enumerate server users
Dim Server, User, Users, I Set Server = CreateObject("UserManager.Server") 'Put all users to an array Users = Server.Users.Items 'Go through the array For i=0 To UBound(Users) Wscript.Echo Users(I).Name Next

Dim Server, User, Users, I
Set Server = CreateObject("UserManager.Server")

'Put all users to an array
Users = Server.Users.Items

'Go through the array
For i=0 To UBound(Users)
   Wscript.Echo Users(I).Name
Next

UserManager.Users

Collection of user accounts (Domain/Server accounts),

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.