我在 Delphi XE3 上开发程序。程序应通过 WMI 读取硬件信息。我的代码:
var
SWbemLocator1: ISWbemLocator;
Service: ISWbemServices;
...
begin
CoInitialize(nil);
SWbemLocator1 := CoSWbemLocator.Create();
Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '', '', 0, nil);
...
它运行完美,但在来宾 Windows 帐户 ConnectServer 中调用异常“访问被拒绝”并且它不起作用。管理员和用户帐户运行良好。在 Windows Vista/7 上进行测试。
我该如何解决?