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 richedit 加入链接

Delphi延时

Delphi createprocesswithlogonw用法

Delphi opendialog控件用法

Delphi获取桌面图标

Delphi mediaplayer1 播放avi 视频

Delphi 用拼音首字符检索汉字的源代码

Delphi 在线程中运行窗体

Delphi 把窗体客户区图像保存到文件或剪切板

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

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