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  --最後復位日期和時間的網絡適配器