WMI와 Perl을 사용하여 원격 컴퓨터에 연결할 수 없습니다.

Question

win32 :: ole 모듈과 WMI 쿼리를 사용하여 원격 Windows 컴퓨터에서 이벤트 로그 정보를 가져올 스크립트를 작성하려고합니다. 컴퓨터를 ping 할 수는 있지만 ConnectServer() 메서드를 사용하여 WMI 연결이 항상 실패하더라도 상관 없습니다. 나는 방화벽 관련 문제가 아니라고 확신한다. 내 코드는 다음과 같습니다.

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"; 
    } 

연결 시도가 항상 실패하는 이유는 무엇입니까? 감사합니다 :)

Answer 1

ConnectServer 호출이 잠재적 인 문제의 몇 가지가 있습니다

• 내가 다시 두 개의 슬래시를 필요로 생각합니다.
• 그리고 그것은 오타가 있습니다 civm2 -> cimv2를

그리고 오류 정보를 검색하기 위해 전화를 추가하여 더 많은 정보가 공개 될 수 있습니다

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