Simple ADSI (VBScript)

This code can be found in Chapter 20 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 'A variable representing my user

Set objUser = _
 GetObject("LDAP://cn=Richard Lang,ou=Pre-Sales,ou=Sales,dc=mycorp,dc=com")

MsgBox objUser.Description

Set objUser = Nothing

This code has been viewed 2649 times.

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