MOTOBIT.COM - ASP upload, IIS utility Enumerate all groups and accounts

  Dim Server, Group, Member
  
  Set Server = CreateObject("UserManager.Server")
  Server.Select ""
  For Each Group In Server.Groups
    Debug.Print Group.Name
    For Each Member In Group.Members
      If IsObject(Member) Then
        Debug.Print Group.Name, ",", Member.Name
      Else
        Debug.Print Group.Name, ",", Member
      End If
    Next
  Next Group