Серийные номера устройств.

[Tip.the.besT]

Доброго времени суток.

Вообщем столкнулся с необходимостью определять физические серийные номера устройств, таких как: винчестер, сетевая плата(если не встроеная), процессор, CD/DVD-привод, материнка, память, видеокарта(опять же если не встроеная). О винчестерах много написано, но как быть с остальными устройствами? Линки по материалам приветствуются.
был бы один системник я бы и так нашёл, но их много

[JTG]

Копать в сторону WMI, что-то типа

program WmiTest;

{$APPTYPE CONSOLE}

uses
  SysUtils, ActiveX, ComObj, Variants;

function GetWMIstring(wmiHost, root, wmiClass, wmiProperty: string): string;
var
  objWMIService : OLEVariant;
  colItems      : OLEVariant;
  colItem       : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;

  function GetWMIObject(const objectName: String): IDispatch;
  var
    chEaten: Integer;
    BindCtx: IBindCtx;
    Moniker: IMoniker;
  begin
    OleCheck(CreateBindCtx(0, bindCtx));
    OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker));
    OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
  end;

begin
  objWMIService := GetWMIObject(Format('winmgmts:\\%s\%s',[wmiHost,root]));
  colItems      := objWMIService.ExecQuery(Format('SELECT * FROM %s',[wmiClass]),'WQL',0);
  oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
  while oEnum.Next(1, colItem, iValue) = 0 do
  begin
     if VarIsNull(colItem.Properties_.Item(wmiProperty, 0)) then Result := 'NULL'
     else Result := colItem.Properties_.Item(wmiProperty, 0)
  end;
end;

begin
 try
    CoInitialize(nil);
    try
      WriteLn(GetWMIstring('.', 'root\CIMV2', 'Win32_BaseBoard','SerialNumber'));
      WriteLn(GetWMIstring('.', 'root\CIMV2', 'Win32_BaseBoard','Product'));
      WriteLn(GetWMIstring('.', 'root\CIMV2', 'Win32_OperatingSystem','SerialNumber'));
      Readln;
    finally
      CoUninitialize;
    end;
 except
    on E:Exception do
    Begin
        Writeln(E.Classname, ': ', E.Message);
        Readln;
    End;
  end;
end.

[Tip.the.besT]

JTG конечно извините за наглость, но немогли бы закоментировать?

[JTG]

Да это такая лапша, что даже разработчики в Microsoft её не понимают Короче, WMI представляет собой набор зарегистрированных в системе СОМ-серверов (т.е. по сути библиотек), реализующих классы для доступа к разной информации и предоставляющих интерфейс для работы с ней.

Доступ к нужному классу осуществляется с помощью WMI-моникера, строки вида

winmgmts:{параметры_безопасности}!\ \имя_компьютера\пространство_имён:к ласс

BindToObject для этого моникера возвращает объект SWbemServices. У SWbemServices есть метод ExecQuery, который использует SQL-подобный язык запросов, в данном случае

SELECT * FROM имя_класса

возвращающий коллекцию SWbemObjectSet, например для Win32_BaseBoard результатом будет такая штука

Caption=Основная плата
ConfigOptions=
CreationClassName=Win32_BaseBoard
Depth=
Description=Основная плата
Height=
HostingBoard=TRUE
HotSwappable=
InstallDate=
Manufacturer=Winfast
Model=
Name=Основная плата
OtherIdentifyingInfo=
PartNumber=
PoweredOn=TRUE
Product=NF4(X)K8MC
Removable=
Replaceable=
RequirementsDescription=
RequiresDaughterBoard=
SerialNumber=
SKU=
SlotLayout=
SpecialRequirements=
Status=
Tag=Base Board
Version=
Weight=
Width=

из которой выбирается нужное свойство.

Весь этот ужас тут завёрнут в ф-ю GetWMIstring('компьютер', 'пространство_имён', 'класс', 'свойство'), код, кстати, из гугла, могут быть ошибки.

Список классов root\CIMV2 http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[Tip.the.besT]

Вообщем понятно, закомплимитировал в delphi 7 консольное приложение, работает, сейчас только подберу нужные классы и должно быть всё хорошо, после чего выложу код, может кому пригодится, а то смотрю ни кто и не знает даже об этом

JTG конечно отдельное спасибо, помог Разработчики Windows помойму половину того что пишут потом не понимают Такое ощющение, что Гейтс стоит у них за спиной и бьёт их палкой когда они медленно работают

[haruhi]

Сообщение от Tip.the.besT

Вообщем столкнулся с необходимостью определять физические серийные номера устройств, таких как: винчестер, сетевая плата(если не встроеная), процессор, CD/DVD-привод, материнка, память, видеокарта(опять же если не встроеная).

не у всех устройств есть серийные номера. у одной модели материнки может быть уникальный ID, а у другой быть что-то в духе "ID-1234567890" или "1111111-AAAA". если нужна именно инфа об устройствах, то копать в сторону SetupAPI. если нужна привязка к аппаратуре, я находила на этом в форуме (месяца три назад) и в этом разделе тему с подобной тематикой про флешки.