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_ip4routetable
win32_networkadapterconfiguration
win32_networkadaptersetting
win32_networkconnection
win32_potsmodemtoserialport
win32_printerconfiguration
win32_serialportconfiguration
win32_serialportsetting
win32_usbcontrollerdevice
win32_videosettings
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 --最后复位日期和时间的网络适配器