Delete all accounts beggining with '~test'

Examples

Delete all accounts beggining with '~test'
Dim UM Set UM = CreateObject("UserManager.Server") Dim User 'Delete all accounts beggining with '~test' For Each User In UM.Users If LCase(Left(User.Name,5)) = "~test" Then Wscript.Echo "Delete:" & User.Name User.Delete End If Next

Dim UM
Set UM = CreateObject("UserManager.Server")

Dim User

'Delete all accounts beggining with '~test'
For Each User In UM.Users
  If LCase(Left(User.Name,5)) = "~test" Then
    Wscript.Echo "Delete:" & User.Name
    User.Delete
  End If
Next

Other links for Delete all accounts beggining with '~test'

UserManager.User

Properties of the user account, and methods for creating, deleting and selecting users.

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.