delphi WMI获取网卡MAC

本文整理自网络，侵删。

 
单元文件 ShlObj,ActiveX, ComObj
uses
  SysUtils, ActiveX, ComObj, Variants;

procedure GetWin32_NetworkAdapterInfo;
const
  WbemUser = '';
  WbemPassword = '';
  WbemComputer = 'localhost';
  wbemFlagForwardOnly = $00000020;
var
  ElementCount: LongWord;
  FWMIService: OleVariant;
  FWbemObject: OleVariant;
  EnumVariant: IEnumVARIANT;
  FSWbemLocator: OleVariant;
  FWbemObjectSet: OleVariant;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE PhysicalAdapter = 1', 'WQL', wbemFlagForwardOnly);
  EnumVariant := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while EnumVariant.Next(1, FWbemObject, ElementCount) = 0 do
  begin
    memo1.text:=(Format('MACAddress %s', [VarToStr(FWbemObject.MACAddress)]));
    FWbemObject := Unassigned;
  end;
end;

try
      GetWin32_NetworkAdapterInfo;
    finally

    end;
 

相关阅读 >>

Delphi检测本机的网络连接状态的三种方法

Delphi 10 seattle plus 新特性――system.json.builders

Delphi 调用js字符串编码

Delphi unix时间转换成Delphi时间

Delphi 播放声音 采用 异步方式，比较流畅

Delphi 无dll版下载者

Delphi 实现产品编号批量生成简单算法

Delphi读写utf-8、unicode格式文本文件

Delphi sql server 主从表例子

Delphi emptyrecycle() 清空回收站

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi WMI获取网卡MAC