[leon2009]

Здравствуйте! на win 11 и delphi 11

Код:

procedure TestWMI;
var
  WMI: OleVariant;
begin
  CoInitialize(nil);
  try
    WMI := GetObject('winmgmts:\\.\root\CIMV2');
    Writeln('WMI подключен успешно');
  except
    on E: Exception do
      Writeln('Ошибка подключения к WMI: ', E.Message);
  end;
  CoUninitialize;
end;

Код:

WMI := GetObject('winmgmts:\\.\root\CIMV2');

ошибка : winmgmts:\\.\root\CIMV2

может я в USES что нибудь забыл ???

[lmikle]

Copilot?
Он неправильный пример создает.
Посмотри вот тут:
https://stackoverflow.com/questions/...pplications-fi