Habe mal versucht den VBS Code umzusetzen aber es gelingt mir nicht so wirklich, da ich in diesem Gebiet absoluter Newbie bin.
Mein Code bis jetzt:
Delphi-Quellcode:
...
procedure TForm1.Button1Click(Sender: TObject);
var
oCPAppletMgr, objWMIService, colChassis, objChassis : OleVariant;
strComputer : string;
i : Integer;
begin
strComputer := '.';
oCPAppletMgr := CreateOleObject('CPApplet.CPAppletMgr');
objWMIService := GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+ strComputer + '\root\cimv2'); // hier kommt ne Fehlermeldung: Inkompatible Typen: HGDIOBJ und String
// Rest konnte ich noch nicht testen, da ich erst die Fehler oben beseitigen muss
colChassis := objWMIService.ExecQuery('Select * from Win32_SystemEnclosure');
for i:=0 to colChassis.Count do
begin
objChassis := colChassis.Item[i];
ShowMessage(objChassis.ChassisTypes);
end;
end;
...
Hilfe?