VPF::Перехват ошибок в методах WMI - Форум программистов

finderknowledge

Дата 25.1.2006, 09:50 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.11.2005

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

Возникла необходимость найти компьютер (Windows XP) с определенным серийным номером, накидал следующий скрипт:

Код


use Win32::OLE;
use Net::Ping;
my $objLocator = Win32::OLE->CreateObject("WbemScripting.SWbemLocator");
my $objPassw = Win32::OLE->CreateObject("ScriptPW.Password");
print "Password: \n";
my $strPassw = $objPassw->GetPassword();
my $ipbase = "192.168.10";
my $ip = "";
for ($i = 0; $i < 256; $i++) {
    $ip = $ipbase.".".$i;
    $p = Net::Ping->new();
    if ($p->ping($ip)) {
        $objWMIService = $objLocator->ConnectServer($ip,"Root\\CIMV2","localhost\\sameaccount",$strPassw)
            || warn "cannot connect WMI $ip".Win32::OLE->LastError()."\n";
        $colItems = $objWMIService->InstancesOf("Win32_ComputerSystemProduct")
            || warn "cannot call InstancesOf $ip".Win32::OLE->LastError()."\n";
             foreach my $objItem (in $colItems) {              
                          print "$ip Ok!!!!!!!!!!!!!!!\n" if ($objItem->{IdentifyingNumber} eq "XXXXXXX");    
             }
    }
         $p->close();
 }

при этом возникла следующая проблема, как только скрипт натыкается на IP где не может подключиться к WMI, возникает ошибка:
Win32::OLE(0.1702) error 0x800706ba: "╤хЁтхЁ RPC "
in METHOD/PROPERTYGET "ConnectServer" at findcomp.pl line 13
т.е. The RPC server is unavailable.
и скрипт вылетает.
Вопрос заключается в следующем, каким образом эту ошибку можно перехватить, для того чтобы скрипт смог продолжать работу дальше?

korob2001

Дата 25.1.2006, 10:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Пропустить через eval не пробовал? Примерно так:

Код


$objWMIService = eval { $objLocator->ConnectServer($ip,"Root\\CIMV2","localhost\\sameaccount",$strPassw) };
warn "cannot connect WMI $ip".Win32::OLE->LastError().": $@\n" if $@;

либо так:

Код


eval { $objWMIService = $objLocator->ConnectServer($ip,"Root\\CIMV2","localhost\\sameaccount",$strPassw) };
warn "cannot connect WMI $ip".Win32::OLE->LastError().": $@\n" if $@;

Я так понимаю у тебя вылетает на этом участке кода?

Это сообщение отредактировал(а) korob2001 - 25.1.2006, 10:13

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

finderknowledge

Дата 25.1.2006, 11:53 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.11.2005

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

korob2001
спасибо, помогло

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