perl - wmi 查询不返回特定服务器的数据

Question

我有下面的 perl 脚本来从不同的服务器获取站点信息。除了一台服务器外，该脚本工作正常。

#!C:/perl/bin/perl
use strict;
use Win32::OLE('in');         # WMI access and optimised flags

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

my $computer = "servername";

my $wmiWebObject = Win32::OLE->GetObject("WinMgmts:{impersonationLevel=impersonate,authenticationLevel=PktPrivacy}!//$computer/root/WebAdministration");
my $sites = $wmiWebObject->ExecQuery("SELECT Name from Site", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $site (in $sites) {
    print "\nSite Name : " . $site->{Name} . "\n";
}

我可以使用 Powershell 获取同一服务器的站点信息，但不能使用 Perl。

Get-WmiObject -Impersonation impersonate -Authentication PacketPrivacy -ComputerName servername -Namespace root/WebAdministration -Query "select Name from Site" | Select-Object {$_.Name}

请有人建议为什么 Perl 脚本不适用于一台服务器，而 powershell 则适用于同一台服务器。

Answer 1

所以我可以通过简单地重新启动服务器上的 WMI 服务来解决这个问题。我发现这篇文章很有用。