delphi wmi 获取网络信息

本文整理自网络，侵删。

 
单元：,ShlObj,ActiveX, ComObj

procedure GetAdapters;
var
  oBindObj : IDispatch;
  oNetAdapters, oNetAdapter,
  odnsAddr, oWMIService : OleVariant;
  i, iValue : LongWord;
  oEnum : IEnumVariant;
  oCtx : IBindCtx;
  oMk : IMoniker;
  sFileObj : WideString;
begin
  MainForm.sComboBox1.Items.Clear;
  sFileObj := 'winmgmts:\\.\root\cimv2';

  OleCheck(CreateBindCtx(0,oCtx));
  OleCheck(MkParseDisplayNameEx(oCtx, PWideChar(sFileObj), i, oMk));
  OleCheck(oMk.BindToObject(oCtx, nil, IUnknown, oBindObj));
  oWMIService := oBindObj;

  oNetAdapters := oWMIService.ExecQuery('SE L EC T * FROM Win32_NetworkAdapter WHERE PhysicalAdapter=True AND MACAddress IS NOT NULL AND AdapterType IS NOT NULL');

  oEnum := IUnknown(oNetAdapters._NewEnum) as IEnumVariant;

  while oEnum.Next(1, oNetAdapter, iValue) = 0 do begin
    try
      MainForm.sCombobox1.Items.Add(oNetAdapter.Caption);
    except
    end;

    oNetAdapter := Unassigned;
  end;

  odnsAddr := Unassigned;
  oNetAdapters := Unassigned;
  oWMIService := Unassigned;
end;
 

相关阅读 >>

Delphi中二进制文件数据存文件方法

Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串

Delphi从dbgrid导出数据保存成excel文件

Delphi隐藏指定程序的托盘图标

Delphi 查看所有的串口设备

Delphi编程之win10桌面图标设置

Delphi xe10 手机端错误提示：detected problems with api compatibility (visit g.co/dev/appcompat for more info

Delphi adoquery查询，如何得到查询记录数？

Delphi 判断一目录是否共享

Delphi pascal 单元文件的特殊定义格式

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

转载请注明出处：木庄网络博客 » delphi wmi 获取网络信息