----- Original Message -----
From: "Ky-Anh Phan" <[EMAIL PROTECTED]>
To: "'Shea, Linchi'" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Thursday, July 05, 2001 1:35 PM
Subject: RE: Enumerating NT domains
> This works for me also ...
>
>
> use Win32::OLE;;
> use Win32::OLE::Enum qw/in with/;
> use strict;
>
> print join("\n",EnumDomains());
>
> sub EnumDomains
> {
> my $namespace = Win32::OLE->GetObject('WinNT:');
>
> return undef unless ($namespace) ;
>
> my @returned;
>
> $namespace->{Filter} = 'Domain';
>
> map { push(@returned,$_->{Name});} (in $namespace);
> return @returned;
>
> }
or shorten to -
use Win32::OLE;
use Win32::OLE::Enum qw(in);
$dom = Win32::OLE->GetObject("WinNT:");
foreach (in $dom){print "$_->{Name}\n";}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
