Anonymous bind (VBScript)

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 VBScript 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
# 
# ----------------------------------------------------------------------
use Win32::OLE;
my $RootDSE = Win32::OLE->GetObject("LDAP://RootDSE");
my $UserContainer = Win32::OLE->GetObject("LDAP://cn=Users," .
                                         $RootDSE->Get("defaultNamingContext") );
$UserContainer->{Filter} = ['User'];
foreach my $User( in $UserContainer) {
    print $User->ADsPath,"\n";
}

This code has been viewed 1135 times.

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