Народ, есть проблема надо получить список компов в домене.
Код:
| Код |
##Active perl
use Win32::OLE;
use Net::Ping;
##use URI::LDAP;
open(test,"> test.txt");
$DOMAIN_NAME="dc2";
print "Hello, World...\n";
my $Container = Win32::OLE->GetObject('WinNT://'.$DOMAIN_NAME);
##my $Container = Win32::OLE->GetObject("LDAP://ou=test123,dc=hatki");
$Container->{"Filter"} = ("computers");
foreach my $User (in $Container){
print (test $User->{Name});
print (test $User->{Type} , "\n");
}
close(test);
|
Выводит всё кроме компьютеров, где ошибка?
|