Die sind korrekt. Hm, das könnte ich mal probieren.
Ich habe es jetzt so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
WMIOSInfo : TWMIOSInfo;
WMICPUInfo : TWMICPUINFO;
begin
try
WMIOSInfo := WMIGetOSInfo('
\\hepu', '
hepu\Michael', '
micky');
WMICPUInfo := WMIGetCPUInfo('
\\hepu', '
hepu\Michael', '
micky');
with WMIOSInfo, WMICPUInfo
do
ShowMessage(OSVersionString + '
' + CSDVersion + #13#10 +
OSManufacturer + #13#10#13#10 +
ProcessorName + #13#10 +
Speed + '
MHz' + #13#10 +
CPUManufacturer);
except
on e:
Exception do
ShowMessage(e.
Message);
end;
end;
Aber da bekomme ich auch eine
Exception "Zugriff verweigert" in der WbemScripting_TLB an der Stelle:
Delphi-Quellcode:
class function CoSWbemLocator.CreateRemote(const MachineName: string): ISWbemLocator;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SWbemLocator) as ISWbemLocator;
end;