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 Find Primary Group

DomainName = "Flash"
UserLoginName = "gordon"

;
; Bind to the user object with the Windows NT provider.
;
oUsr = GetObject("WinNT://" : DomainName : "/" : UserLoginName : ",user")
grp = oUsr.Groups
GrpID = oUsr.PrimaryGroupID
GrpName = ""

;
; Building Query Filter for the search for all the groups that the user is a member of.
;
QueryFilter = "(|"
ForEach Item In Grp
   NT4Name = StrReplace(Item.ADsPath,"WinNT://","")
   tempArray = Arrayize(nt4Name,"/")
   NT4Name = tempArray[1]
   QueryFilter = QueryFilter : "(samAccountName=" : NT4Name : ")"
Next
QueryFilter = QueryFilter : ")"

;
; Building LDAP dialect Query String.
;
QueryString = "<LDAP://" : DomainName : ">;" : QueryFilter : ";PrimaryGroupToken,distinguishedName;subtree"

;
; Performing Query against the Active Directory for all the groups that
; the user belongs to and retrieving the RID of the group object off
; the PrimaryGroupToken attribute on the user.
;
oConnection = CreateObject("ADODB.Connection")
oCommand = CreateObject("ADODB.Command")

oConnection.Provider = "ADsDSOObject"
oConnection.Open( "Active Directory Provider" )

oCommand.ActiveConnection = oConnection
oCommand.CommandText = QueryString
oCommand.Properties("Page Size") = 900

oRecordset = oCommand.Execute

;
; Looping through all the records in the search result to determine whether
; any of these group's PrimaryGroupToken attribute value match the
; PrimaryGroupID attribute value stored on the user object.
;
bGroupFound = 0
While ((! oRecordset.EOF) && (! bGroupFound))
  If (GrpID == oRecordset.Fields("PrimaryGroupToken").value) Then
    GrpName = oRecordset.Fields("DistinguishedName").Value
    bGroupFound = 1
  End If
  oRecordset.moveNext
EndWhile

oRecordset = 0
oCommand = 0
oConnection = 0

;
; Displaying Results of the search.
;
If( bGroupFound ) Then
   Pause( "Primary Group for " , oUsr.AdsPath : @LF :"Is: " : GrpName)
Else
   Pause( "Notice", "Primary Group Not Found" )
End If

Article ID:   W17367

File Created: 2010:04:16:10:37:10

Last Updated: 2010:04:16:10:37:10