Database Search

TechHome

• !!DISCLAIMER!!
• AD Syncronization
• Add Computer to an Active Directory Group
• ADSI COM Find Primary Group
• ADSI COM List Groups
• ADSI Create Group
• ADSI Extender Security Descriptor Sample
• ADSI Get OU Properties
• ADSI Get Subgroups of Group
• ADSI List Group Names and Email Property
• ADSI Primer
• ADSI Query String Creator
• Create a Mail Enabled Contact
• Create Enable and Disable User Account
• Create Exchange 2000 User Account
• Create IIS Virtual Directory
• Create User in AD with CSV file
• Delete Computer Account
• Determine if a WS and a server are in the same AD Site
• Determine LastLogin
• DsGetDcName
• Figure out User Account Attributes
• Get a list of users and write out to CSV file
• Get all Domain printers
• Get Date User Account was Created
• Get Nested User Groups
• Get TCP IP Configuration From Each Domain Controller
• Get User Information From Another Domain
• Getting E-Mail Address for all users in OU
• Group Exist
• Hierarchically Adding Users to Groups
• JoinDomain
• List ADSI Paths of Groups and their Members
• List All Servers in the Current Domain
• List Users
• OLE COM dsGetMemGrps Alternative
• Recursive DsGetMemGrp Example
• REmove User from Printer Object
• Set Home Directory for User
• Translate NT Name to LDAP Path
• Traverse OU and Generate a Report of Objects
• Useful ADSI Site server functions

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADSI COM List Groups

DomainName = "Flash"
UserLoginName = "gordon"
Domain = GetObject("WinNT://" : DomainName)
grouplist = ''
ForEach Member in Domain
	If Member.Class == "Group" 
	   sGroupName = Member.Name
		grouplist = grouplist : @tab :  sGroupName
	Endif
Next
AskItemList('Group list', StrTrim( grouplist ), @tab, @unsorted, @single )
exit

Or

sStarPath = 'LDAP://DC=flash,DC=local'  

ADS_SCOPE_SUBTREE = 2

objConnection = CreateObject("ADODB.Connection")
objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open("Active Directory Provider")
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.CommandText = "SELECT Name FROM '": sStarPath :"' WHERE objectCategory='group'"

objRecordSet = objCommand.Execute()
grouplist = ""
objRecordSet.MoveFirst
While !objRecordSet.EOF
    groupname = objRecordSet.Fields("Name").Value
	 grouplist = grouplist : @tab: groupname
    objRecordSet.MoveNext
Endwhile
AskItemList('Group list', StrTrim( grouplist ), @tab, @unsorted, @single )

exit

Article ID:   W17368

File Created: 2008:04:10:15:08:30

Last Updated: 2008:04:10:15:08:30