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.

;From:  Crypt  
;Date:  Friday, February 07, 2003 04:14 PM  
;
;This is a modification to a previously published script. It will
;return all of the attributes that you can populate on an AD user
;account. You will still have to figure out what the field they
;display in or what they are exactly. Eventually I'll have a list
;of what they're associated with.
;
;1. Set the login name 
;2. Change the LDAP path to a valid one in your environment.
;
;------------------------------------
AddExtender("WWADS34I.DLL")

; Set credentials.
Account="ACCOUNT WITH ADMIN ACCESS"
pwd=AskPassword ("Password", "Enter the Password for %Account%")

a=dsSetCredent(Account, pwd)


; Define some constants.
MANDATORY = 1
OTIONAL = 2
MANANDOPT = 3

; An Active Directory example.

; The user object "Russ T Gate" on the "win2000" server.

; Make sure the following on one line
sAdsiPath = "LDAP://win2000/CN=Russ T Gate,CN=Users,DC=win2000,DC=windowware,DC=com"

Output=FileOpen("C:\temp\out.csv","WRITE")
FileWrite(Output,"Type,Property Name,Value")


; Get mandatory properties of object.
sList = dsGetPropName(sAdsiPath, MANDATORY)
If sList != ""
   count=ItemCount(sList,@TAB)
   For x=1 To count
      item=ItemExtract(x,sList,@TAB)
      val=dsGetProperty(sAdsiPath, item)
      FileWrite(Output,"MANDATORY,%item%,%val%")
   Next
EndIf 

; Get optional properties of object.
sList = dsGetPropName(sAdsiPath, OTIONAL)
If sList != ""
   count=ItemCount(sList,@TAB)
   For x=1 To count
      item=ItemExtract(x,sList,@TAB)
      val=dsGetProperty(sAdsiPath, item)
      Data=StrCat("OPTIONAL",",",item,",",val)
      FileWrite(Output,Data)
   Next
EndIf 


; Get all properties of object.
;sList = dsGetPropName(sAdsiPath, MANANDOPT )
;if sList != "" 
   ; sList = strreplace(sList,@TAB, @CRLF)
   ; message("All Property names. ", sList)
   ; FileWrite(Output," ")
   ;FileWrite(Output," ")
   ;FileWrite(Output,"All Property names. ")
   ;FileWrite(Output,"--------------------------")
   ;FileWrite(Output,sList)
;endif 

FileClose(Output)
Run("Excel.exe","C:\temp\out.csv") 

Article ID:   W15826

File Created: 2004:03:30:15:41:00

Last Updated: 2004:03:30:15:41:00