Pretty close, but....
"Close only counts in horseshoes and hand grenades"... (author unknown)
:)
Hope this helps.
use strict;
use warnings;
use Win32::OLE qw(in);
my $LocalDomain="NTDOMAIN";
my $Data= Win32::OLE->GetObject("WinNT://$LocalDomain") or die "Unable
connect to domain";
foreach my $object (in($Data)) {
if ($object->{Class} =~ /computer/i) {
print $object->{Name}."\n";
}
}
-----Original Message-----
From: Stefan Olsson [mailto:[EMAIL PROTECTED]
Sent: Monday, October 20, 2003 8:36 AM
To: [EMAIL PROTECTED]
Subject: foreach my $computer ($domain)
Hello,
I would like to do an inventory on all pc's in the domain (Active
Directory). It is just that I have problem to actually retrieve the data
when doing this:
my $Data = Win32::OLE->GetObject("WinNT://$LocalDomain") or die "Unable
connect to domain";
-When using Data::Dumper on $Data this is the result:
$VAR1 = bless( {}, 'Win32::OLE' );
-All I want to do is to enumerate the computers in the domain and save
them
in @computers to then do an inventory on each of them. Can someone help
me
on this?
---<script begins here>--------------
#!/usr/bin/env perl
use strict;
use warnings;
use Win32::OLE;
use Data::Dumper;
my $LocalDomain="NTDOMAIN";
my $Data= Win32::OLE->GetObject("WinNT://$LocalDomain") or die "Unable
connect to domain";
print Dumper($Data);
---<script begins here>--------------
above results in a single line:
$VAR1 = bless( {}, 'Win32::OLE' );
_________________________________________________________________
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*.
http://join.msn.com/?page=features/virus
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
