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 tstringlist 保存txt文本文件最后一行不留空行

Delphi xe5 为android增加启动图片显示

Delphi简单的字符串加密解密函数

Delphi tstringlist的delimitedtext的空格问题

Delphi 在指定图片上绘制透明文字

Delphi如何计算一个文件目录的大小

Delphi 调用clipboard 收集剪切板信息

Delphi关于小数位精度的问题

Delphi简单读取网上的文本文件

Delphi 将memo转化为jpg输出

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

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