Bind using a well-known GUID (Visual Basic)

This code can be found in Chapter 4 of Managing Enterprise Active Directory Services

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

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

'# ------------------------------------------------------------------
'# From the book "Managing Enterprise Active Directory Services"
'# ISBN: 0-672-32125-4
'# Copyright (C) 2002 by Addison-Wesley
'# Script by Robbie Allen
'# ------------------------------------------------------------------
Dim RootDSE as IADs
Set RootDSE = GetObject("LDAP://RootDSE")
Dim UserContainer as IADsContainer
Set UserContainer = GetObject("LDAP://<WKGUID=a9d1ca15768811d1aded00c04fd8d5cd," & RootDSE.Get("defaultNamingContext") & ">")

This code has been viewed 1145 times.

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