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.

Group Exist

 Keywords:  ADSI AD Active Directory Group Exist 

#DefineFunction udfADGroupExists(sGroupName)
   AddExtender("WWADS44I.DLL")
   bGroupExists = @FALSE
   ;Get LDAP defaultNamingContext
   sServerDn = dsGetProperty("LDAP://rootDSE", "serverName")
   sServerName = ItemExtract(1, sServerDn, ",")
   sServerName = ItemExtract(2, sServerName, "=")
   sServerDn = dsGetProperty("LDAP://rootDSE", "defaultNamingContext")
   sServerPath = "LDAP://%sServerName%/%sServerDN%"
   sAdsiPath = dsFindPath (sServerPath, "(& (objectClass=Group) (SAMAccountName=":sGroupName:"))")
   If sAdsiPath != "" Then bGroupExists = @TRUE
   Return bGroupExists
#EndFunction


sGroupName = 'Administrators'
ret =  udfADGroupExists(sGroupName)
If ret
    Pause('udfADGroupExists', sGroupName : ' group exists.')
Else
    Pause('udfADGroupExists', sGroupName : ' group does not exist.')
EndIf
Exit

#DefineFunction udfADGroupExists2(sAdsiGroupPath)
   AddExtender("WWADS44I.DLL")
   bGroupExists = @FALSE
   ret = dsIsObject(sAdsiGroupPath)
   If ret Then bGroupExists = @TRUE
   Return bGroupExists
#EndFunction

sAdsiGroupPath = 'LDAP://Server/CN=Administrator,CN=Builtin,DC=domain,DC=local' ;Modify to it your needs
ret =  udfADGroupExists2(sAdsiGroupPath)
If ret
    Pause('udfADGroupExists2', sAdsiGroupPath : ' group exists.')
Else
    Pause('udfADGroupExists2', sAdsiGroupPath : ' group does not exist.')
EndIf
Exit

Article ID:   W17548

Filename:   Group Exist.txt

File Created: 2010:04:29:13:29:54

Last Updated: 2010:04:29:13:29:54