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 将字符串转换为c-escape转义字符串格式

Delphi xe 横屏竖屏的管理

Delphi获取android上的imei

Delphi 获取含跨域网址的框架网页的源码

Delphi 调用系统右键菜单

Delphi和金山词霸制作批量单词翻译

Delphi 汉字与区位码

Delphi读取excel文件-统计全部工作表中内容相同单元格出现次数

Delphi xe5 for android 地理定位gps

Delphi 动态调用chm文件

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

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