To pme:
Děkují moc.
Ještě je problem tady.

oEnum.Next(1, FWbemObject, iValue);

Nevím jak to upravit.
Přiznávám a již ve škole jsem jim vysvětloval že se mně žádný programátor nebude a že se snaží zbytečně.
Znám jen základy a toto je už nad mé znalostí.

Prostě dost často muslim v práci vypínat sitovku.
První jsem to řešil s batakem přes netsh interface ale toto vypada lip.
Ten zdrojak jsem našel na netu a jelikož vím že máme v prací na 1 PC delphi, chtěl jsem to zkusit.
Už se s tým trápím dost dlouho abych to vzdal.


Toto funguje, ale diky tomu že je sitovka Realtek jako první.
Vím že je problem v tom oEnum.Next(1, FWbemObject, iValue);
Ale prostě lama.
Pomužete prosím.

 begin;
      FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
      FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
      FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter where name= "Realtek PCIe GBE Family Controller"','WQL',wbemFlagForwardOnly);
      oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
      oEnum.Next(1, FWbemObject, iValue);
      FWbemObject.Disable();
      FWbemObject:=Unassigned;
    end;