RE: Lanman 1.0.9 and enumeration of W2K OU objects

[Ky-Anh Phan]

HTH,

use Win32::OLE;
use Win32::OLE::Enum qw/in with/;

# Bind to domain 
$domain = new Win32::OLE("LDAP://$DOMAIN";) 
        or die Win32::FormatMessage Win32::OLE::LastError;

# Get OU
$ou = $domain->GetObject('organizationalUnit',"OU=$ou")
        or die Win32::FormatMessage Win32::OLE::LastError;

# restrict search result to class computer
$ou->{Filter} = [ 'computer' ];

# each entry in collection is a computer object
foreach (in $ou)
{
        print $_->{Name};
}

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin