• Home
 · 
• Windows System Services
 · 
• ADSI sample - List all groups in a Windows 2000 AD domain or Windows NT4 domain. If domain is a com

ADSI sample - List all groups in a Windows 2000 AD domain or Windows NT4 domain. If domain is a com

ADSI sample - List all groups in a Windows 2000 AD domain or Windows NT4 domain. If domain is a computer, all groups of the local SAM database

Rate ADSI sample - List all groups in a Windows 2000 AD domain or Windows NT4 domain. If domain is a com

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' List all groups in a Windows 2000 AD domain or Windows NT4 domain. If domain
' is a computer, all groups of the local SAM database are displayed.

' Goto http://www.activxperts.com/activmonitor and click on ADSI Samples
' for more samples


Sub ListGroups( strDomain )
	Set objComputer = GetObject("WinNT://" & strDomain )
	objComputer.Filter = Array( "Group" )
	For Each objGroup In objComputer
		WScript.Echo "Name: " & objGroup.Name
	Next
End Sub



' Main

Dim strDomain
Do
   strDomain = inputbox( "Please enter a domainname", "Input" )
Loop until strDomain <> ""

ListGroups( strDomain )


WScript.Echo( vbCrlf & "For more samples, goto http://www.activxperts.com/activmonitor and click" )
WScript.Echo( "on ADSI" )