' How do I view all the group in the domain using ADSI? DomainString = "MYNTDOMAIN" dim i i = 1 Set DomainObj = GetObject("WinNT://" & DomainString) DomainObj.Filter = Array("group") For Each GroupObj In DomainObj If GroupObj.Class = "Group" Then List = GroupObj.Name wscript.echo i & vbTab & List i = i + 1 End If Next