DELPHI WMI开发之网卡参数

在之前我们大概针对DELPHI如何利用WMI获得硬件参数做了简单的概述，本章节主要针对网卡做详细说明与记录

网卡库：Win32_NetworkAdapter

通常一般的电脑都不止一个网卡，有线的，无线的可能都会存在多个，那么我们想要获得网卡信息，就要获取全部，而实现的方式就是：循环查询网卡数量+单网卡信息获取

假定我们将网卡的INDEX当作区分网卡唯一的条件，那么我们首先要查询网卡的数量，再来获得单个网卡的信息，代码如下：

procedure TFrmMain.RzGroup1Items6Click(Sender: TObject);
var
  Wmi, Objs, Obj: oleVariant;
  Enum: IEnumVariant;
  C: Cardinal;
  Str,str1:string;
begin
  Memo1.Clear;
  Memo1.Lines.Add('【网卡参数信息】');
  Wmi:= CreateOleObject('WbemScripting.SWbemLocator');
  Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select * from Win32_NetworkAdapter');//此处是查询网卡的WMI库
  Enum := IEnumVariant(IUnknown(Objs._NewEnum));
  Enum.Reset;
  while (Enum.Next(1,Obj,C)=s_ok) do  //循环查询网卡信息
  begin
      str1:='Index';//将INDEX当作网卡唯一的识别码
      Obj := Obj.Properties_.Item(str1, 0).Value;

      if VarIsNull(obj) then
      begin
        Str:='ERROR';
      end;

      if VarIsArray(obj) then
      begin
        str:=Obj[0];
      end;

      if VarIsStr(obj) or VarIsCustom(obj) or VarIsFloat(obj) or VarIsNumeric(obj) or VarIsOrdinal(obj) then
      begin
        str:=Obj;
      end;


//在循环的过程当调用获取网卡信息的函数，并将查询的参数传给函数，下面的函数内容之前已写过，这里在下面再贴一次

      Memo1.Lines.Add('');
      Memo1.Lines.Add('网卡序号：         '+Str);
      Memo1.Lines.Add('网卡名称：         '+GetWMISub('NetworkAdapter','name',str1,Str));
      Memo1.Lines.Add('MAC地址：        '+GetWMISub('NetworkAdapter','MACAddress',str1,Str));

      Memo1.Lines.Add('网卡类型：         '+GetWMISub('NetworkAdapter','AdapterType',str1,Str));

      Memo1.Lines.Add('制造商：            '+GetWMISub('NetworkAdapter','Manufacturer',str1,Str));

      Memo1.Lines.Add('IP地址：            '+GetWMISub('NetworkAdapter','NetworkAddresses',str1,Str));


  end;


end;

上面的代码可获得所有网卡信息，当然如果没有获得信息的函数，还是会报错，如下面这句

Memo1.Lines.Add('制造商：            '+GetWMISub('NetworkAdapter','Manufacturer',str1,Str));

那么GetWMISub(‘NetworkAdapter’,‘Manufacturer’,str1,Str));的函数是怎样的？见下面代码

function GetWMISub(WMIType,WMIProperty,WMISearch,WMISearchText:String):String;
var
  Wmi, Objs, Obj: oleVariant;
  Enum: IEnumVariant;
  C: Cardinal;
begin
  Wmi:= CreateOleObject('WbemScripting.SWbemLocator');
  Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select * from Win32_' + WMIType + ' where '+WMISearch+' = '+ '"'+WMISearchText+'"');
  Enum := IEnumVariant(IUnknown(Objs._NewEnum));
  Enum.Reset;
  Enum.Next(1,Obj,C);

      Obj := Obj.Properties_.Item(WMIProperty, 0).Value;

      if VarIsNull(obj) then
      begin
        Result:='Unknow';
      end;

      if VarIsArray(obj) then
      begin
        Result := Obj[0];
      end;

      if VarIsStr(obj) or VarIsCustom(obj) or VarIsFloat(obj) or VarIsNumeric(obj) or VarIsOrdinal(obj) then
      begin
        Result:= Obj;
      end;

end;

以上这么简单的两段代码就能获得所有网卡信息，下面将网卡库的所有参数贴上，以作备忘
Win32_NetworkAdapter 网卡 参数说明
AdapterType --适配器的类型
AdapterTypeID --适配器的类型ID
AutoSense --如果为True，网络适配器能自动判断连接或网络媒体的速度
Availability --可用性和设备的状态
Caption --设备的简短描述
ConfigManagerErrorCode --Windows配置管理器错误代码
ConfigManagerUserConfig --如果为True，该设备使用用户定义的配置
CreationClassName --第一个具体类的名称出现在创建实例所使用的继承链
Description --描述
DeviceID --系统中的其他设备的网络适配器的唯一标识符
ErrorCleared --如果为True，在上一个错误代码报告现已清除
ErrorDescription --错误的描述信息
GUID --全局唯一标识符进行连接
Index --存储在系统注册表中网络适配器的索引号
InstallDate --日期和时间对象安装
Installed --如果为True，网络适配器安装在系统中
InterfaceIndex --索引值唯一标识本地网络接口
LastErrorCode --报告的逻辑设备上一个错误代码
MACAddress --MAC地址
Manufacturer --制造商的名称
MaxNumberControlled --通过这个网络适配器支持直接寻址的端口的最大数量
MaxSpeed --最大速度，以每秒位数，为网络适配器
Name --适配器的名称
NetConnectionID --网络连接的名称出现在网络连接控制面板程序
NetConnectionStatus --网络适配器连接至网络的状态
NetEnabled --指明适配器是否已启用。如果为True，适配器已启用。您可以启用或通过启用和禁用方法禁用网卡。
NetworkAddresses --适配器的IP地址
PermanentAddress --网络地址硬编码到一个适配器。这种硬编码地址，可以通过固件升级或软件配置进行更改
PhysicalAdapter --指明适配器是否是物理或逻辑适配器。如果为True，适配器是物理
PNPDeviceID --即插即用逻辑设备的播放设备标识符
PowerManagementCapabilities --逻辑设备的特定功率相关的能力阵列
PowerManagementSupported --如果为True，该设备可以是电源管理（可放进入暂停模式，等等）
ProductName --网络适配器的产品名称
ServiceName --网络适配器的服务名
Speed --估计当前带宽比特每秒
Status --对象的当前状态
StatusInfo --对象的当前状态详细信息
SystemCreationClassName --该作用域计算机的创建类别名称属性的值
SystemName --系统名称
TimeOfLastReset --最后复位日期和时间的网络适配器