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
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.