Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Перехват ошибок в методах WMI

Автор: finderknowledge 25.1.2006, 09:50

Возникла необходимость найти компьютер (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

Пропустить через 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 $@;

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

Автор: finderknowledge 25.1.2006, 11:53

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