Example2 (VBScript)

This code can be found in Chapter 21 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' From the book "Active Directory, Third Edition" 
' ISBN: 0-596-10173-2

Dim objGroup  'An ADSI group object
   
Set objGroup = GetObject("LDAP://cn=Managers,ou=Sales,dc=mycorp,dc=com")
   
'**********************************************************************
'Get and write the mail property value, which forces an
'implicit GetInfo call
'**********************************************************************
WScript.Echo objGroup.Get("mail")
   
'**********************************************************************
'Set the new mail address in the cache
'**********************************************************************
objGroup.Put "mail", "new-address@mycorp.com"
   
'**********************************************************************
'Use an explicit GetInfo call to again retrieve all items into the cache
'**********************************************************************
objGroup.GetInfo
   
WScript.Echo objGroup.mail

This code has been viewed 1312 times.

New from the creators of TechTasks.com: StatSheet.com