не могу подключиться к удаленной машине, используя WMI и Perl - PullRequest
Новая
       11

не могу подключиться к удаленной машине, используя WMI и Perl

2 голосов
/ 22 декабря 2010

Я пытаюсь написать сценарий, который будет получать информацию журнала событий с удаленной машины Windows с помощью модуля win32 :: ole и запроса WMI. Я могу пропинговать компьютер, но независимо от того, что мое WMI-соединение всегда терпит неудачу, используя метод ConnectServer (). Я уверен, что проблема не связана с брандмауэром. Вот мой код: 

use Win32::OLE qw(in);
use Net::Ping;

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my $computer = "10.10.10.15";

my $user = "Administrator";
my $pwd = "pass";


$p = Net::Ping->new();
print "$computer is alive.\n" if $p->ping($host);
$p->close();

  my $locatorObj =Win32::OLE->new("WbemScripting.SWbemLocator") or die "ERROR CREATING OBJ";

  $locatorObj->{Security_}->{impersonationlevel} = 3;

  my $objWMIService = $locatorObj->ConnectServer($computer, "root\civm2", $user, $pwd) or die "WMI connection failed.\n";

  my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_NTLogEvent", "WQL",
              wbemFlagReturnImmediately | wbemFlagForwardOnly);

   foreach my $objItem (in $colItems) {
      print "Category: $objItem->{Category}\n";
      print "CategoryString: $objItem->{CategoryString}\n";
      print "ComputerName: $objItem->{ComputerName}\n";
      print "Data: " . join(",", (in $objItem->{Data})) . "\n";
      print "EventCode: $objItem->{EventCode}\n";
      print "EventIdentifier: $objItem->{EventIdentifier}\n";
      print "EventType: $objItem->{EventType}\n";
      print "InsertionStrings: " . join(",", (in $objItem->{InsertionStrings})) . "\n";
      print "Logfile: $objItem->{Logfile}\n";
      print "Message: $objItem->{Message}\n";
      print "RecordNumber: $objItem->{RecordNumber}\n";
      print "SourceName: $objItem->{SourceName}\n";
      print "TimeGenerated: $objItem->{TimeGenerated}\n";
      print "TimeWritten: $objItem->{TimeWritten}\n";
      print "Type: $objItem->{Type}\n";
      print "User: $objItem->{User}\n";
      print "\n";
   }

Есть идеи, почему моя попытка подключения всегда терпит неудачу? Спасибо:)

1 Ответ

1 голос
/ 22 декабря 2010

У звонка ConnectServer есть несколько потенциальных проблем:

  • Я полагаю, что нужны две косые черты.
  • И имеет опечатку: civm2 -> cimv2

И это может раскрыть дополнительную информацию, добавив вызов для получения информации об ошибке: 

my $objWMIService = $locatorObj->ConnectServer($computer, "root\\cimv2", $user, $pwd)
        or die "WMI connection failed.\n", Win32::OLE->LastError;
...