Delphi WMI[3] 获取硬盘ID的方法（无需管理员权限）

Delphi WMI[3] 获取硬盘ID的方法（无需管理员权限）

function GetWMIHardNo() : String;

var

  Locator : OleVariant;

  WMI     : OleVariant;

  RET     : OleVariant;

  Enum    : IEnumVariant;

  Tmp     : OleVariant;

  Value   : Cardinal;

begin

  Result := '';

  try

    Locator := CreateOleObject('WbemScripting.SWbemLocator');

    WMI     := Locator.ConnectServer('.', '', '', '');

    RET     := WMI.ExecQuery('Select * From  Win32_DiskDrive');  //Win32_DiskDrive  Win32_PhysicalMedia

    Enum    := IUnknown(RET._NewEnum) as IEnumVariant;

    while (Enum.Next(1, Tmp, Value)= S_OK) do

    begin

      Result := Trim(Tmp.SerialNumber);

      if (Length(Result) > 0) then

      begin  break; end;

    end;

  finally

    Locator := UnAssigned;

  end;

end;