GetInfoEx (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 objUser  'An ADSI user object
Dim arrProps 'An array of properties to return
   
Set objUser=GetObject("LDAP://cn=administrator,cn=Users,dc=mycorp,dc=com")
   
'**********************************************************************
'Set the list of properties to return
'**********************************************************************
ArrProps = Array("cn","ADsPath")
   
'**********************************************************************
'Get the specified properties
'**********************************************************************
objUser.GetInfoEx arrProps, 0
   
WScript.Echo objUser.cn & vbTab & objUser.ADsPath

This code has been viewed 2041 times.

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