VPF::Получить список компьютеров в домене

UserNet

Дата 28.7.2009, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 226
Регистрация: 13.12.2006
Где: Новосибирск

Репутация: нет
Всего: 3

Народ, есть проблема надо получить список компов в домене.
Код:

Код


##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);

Выводит всё кроме компьютеров, где ошибка?

UserNet

Дата 29.7.2009, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 226
Регистрация: 13.12.2006
Где: Новосибирск

Репутация: нет
Всего: 3

Проблема, решилась, надо было за место имени сервера, поставить, имя домена.

Код


my $Container = Win32::OLE->GetObject("WinNT://tubus");

Но вот фильтр не работает

Код


$Container->{"Filter"} = ("User");

Вместо него

Код


if ( $User->{Class} eq ("Computer") ) 
    
     {
         print ($User->{Name} , $User->{Class},"\n");
         #print 
      }

Кто-нибудь знает в чём проблема?

Ramirez

Дата 17.8.2009, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: нет
Всего: 5

вот тут http://techtasks.com/code/viewbook/3?lang=Perl очень хорошие примеры.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »