我正在研究一个用于检查许多服务是否正在运行的perl脚本.为此,我们使用WMI查询远程Windows服务器:
my $WMI_locator = Win32::OLE->new('WbemScripting.SWbemLocator');
$WMI_locator->{Security_}->{AuthentificationLevel} = 6;
my $computer = $WMI_locator->ConnectServer($server, 'root\cimv2', $adminuser, $adminpasswd);
my $services = $computer->ExecQuery('SELECT * FROM Win32_Service', 'WQL', $flag_return_immediately | $flag_forward_only);
Run Code Online (Sandbox Code Playgroud)
在我的开发笔记本电脑上执行时,此代码段完美无缺.但是,当我尝试从生产服务器运行它时会发生奇怪的事情:对于某些远程Windows计算机,我只能获得大约一半的服务列表.
我已经研究过这个问题,发现这个问题只发生在服务很多的服务器上(大约150个),并且平均ping的差异很大(本地约60毫秒,生产服务器约215毫秒).问题似乎来自WMI而不是perl; 我试图从DOS命令行查询服务器,我在尝试获取服务时遇到错误,虽然查询CPU工作正常:
E:\>wmic /NODE:server /USER:adminuser /PASSWORD:adminpasswd SERVICE GET Caption, State
Node - server
ERROR:
Code = 0x800706be
Description = The remote procedure call failed.
Facility = Win32
E:\>wmic /NODE:server /USER:adminuser /PASSWORD:adminpasswd CPU GET Name, Status
Name Status
Intel(R) Xeon(R) CPU X5650 @ 2.67GHz OK
Intel(R) Xeon(R) CPU X5650 @ 2.67GHz OK
Intel(R) Xeon(R) CPU X5650 @ 2.67GHz OK
Intel(R) Xeon(R) CPU X5650 @ 2.67GHz OK
Run Code Online (Sandbox Code Playgroud)
鉴于此,我猜这个问题与网络有关,但我们现在正在一个我不熟悉的国家钻研.是否有一些我错过的参数和/或我正在做事的方式有问题?
谢谢你的回答!
| 归档时间: |
|
| 查看次数: |
370 次 |
| 最近记录: |