Enumerate groups

	 

	Dim Domain
	Dim DomainName
	Dim Group
	DomainName = "Name of the domain"
	Set Domain = GetObject("WinNT://" & DomainName)
	Domain.Filter = Array("Group")
	For Each Group in Domain
		 Wscript.Echo Group.Name
	Next