delphi中WMI的使用（网卡是否接入）

wmi（windows management instrumentation,windows 管理规范）是一项核心的 windows 管理技术；用户可以使用 wmi 管理本地和远程计算机。

通过使用wmi，我们可以很方便的获取到电脑的系统信息，但是很遗憾的是，我在网上找到的基本上都是对于某个功能的实现，比如查询ip，获取计算机名称，检测操作系统信息等等，如果只是在工作中用到了来查一下是没有问题的，但是，要想全面的了解wmi中的类库，来系统的掌握就很困难，wmi中有哪些系统的类，里面有哪些属性，这些属性都代表什么意思？msnd上面对于vbscript脚本实现的教程很详细，但是具体在delphi中对应的类型和参数名称是不一样的。

unit unit1;

interface

uses
  windows, messages, sysutils, variants, classes, graphics, controls, forms,
  dialogs, stdctrls ,activex,comobj;

type
  tform1 = class(tform)
    button1: tbutton;
    edit1: tedit;
    procedure button1click(sender: tobject);
  private
    { private declarations }
  public
    { public declarations }
  end;


var
  form1: tform1;

implementation

{$r *.dfm}


 //网卡是否接入
function getnetworkconnected(const sname: string): boolean;
var
  c: cardinal;
  enum: ienumvariant;
  wmi, objs, obj, v: olevariant;
begin
  result := false;
  wmi := createoleobject('wbemscripting.swbemlocator');
  try
    // connectserver无参表示连接本机      netconnectionstatus=2 表示已经接入 7表示断开
    objs := wmi.connectserver().execquery('select * from win32_networkadapter where netconnectionstatus=2');
    enum := ienumvariant(iunknown(objs._newenum));
    enum.reset;
    //迭代信息
    while enum.next(1, obj, c) = s_ok do
    begin
      v := obj.properties_.item('name', 0).value;
      if varisclear(v) or varisnull(v) then
        continue;
      if v=sname then
      begin
         result:=true;
         break
      end;
    end;
  finally
    wmi := unassigned;
  end;
end;




procedure tform1.button1click(sender: tobject);

begin
  showmessage(booltostr(getnetworkconnected(edit1.text)));
end;

end.

 

因为wmi中通用的类大多是win32_开头的，这里只需要传递后面的部分。

那么下一步，怎么知道我需要的是什么参数呢？以获取计算机名为例：

str := getwmiproperty('operatingsystem','csname');即可获得。

当然，计算机名信息是比较常用的，在好几个类里面都有。

win32_开头的类有：

win32_account

win32_activeroute

win32_autochksetting

win32_baseboard

win32_baseservice

win32_bios

win32_bootconfiguration

win32_bus

win32_computersystem

win32_computersystemwindowsproductactivation

win32_desktop

win32_desktopmonitor

win32_devicesettings

win32_diskdrive

win32_diskdrivephysicalmedia

win32_displayconfiguration

win32_environment

win32_fontintoaction

win32_group

win32_idecontroller

win32_ip4persistedroutetable
win32_ip4routetable

win32_keyboard

win32_logicaldisk

win32_logicalprogramgroup

win32_logonsession

win32_mappedlogicaldisk

win32_memorydevice

win32_motherboarddevice

win32_networkadapter
win32_networkadapterconfiguration
win32_networkadaptersetting

win32_networkclient
win32_networkconnection

win32_operatingsystem

win32_perfformatteddata_remoteaccess_rasport

win32_perfformatteddata_remoteaccess_rastotal

win32_perfrawdata_remoteaccess_rasport

win32_physicalmedia

win32_physicalmemory

win32_pnpdevice

win32_portconnector

win32_potsmodem
win32_potsmodemtoserialport

win32_printer
win32_printerconfiguration

win32_process

win32_processor

win32_product

win32_programgroup

win32_scheduledjob

win32_serialport
win32_serialportconfiguration
win32_serialportsetting

win32_service

win32_servicecontrol

win32_sounddevice

win32_startupcommand

win32_systemaccount

win32_systembios

win32_systemsetting

win32_systemtimezone

win32_systemusers

win32_tapedrive

win32_temperatureprobe 

win32_usbcontroller
win32_usbcontrollerdevice

win32_useraccount

win32_videocontroller
win32_videosettings

win32_windowsproductactivation

 

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  --最后复位日期和时间的网络适配器