Узнать какие-нибудь параметры материнской платы

Corrector

Есть ли у материнки какой-нибудь уникальный серийный номер и т.д.?
И самое главное как его узнать программно?
Можете привести исходник? Желательно delphi, в крайнем случае си.
зы: нет интернета
В programming все молчат, мб в HnS кто-нибудь отзовется

geja_03

Гы, а на ней не написано?

Darkman

Можно по биосу узнать серийный номер материнки - из таблиц специальных
Так называемые таблицы соответствия - посмотри в инете где они (в поисковике)
Кстати - а может кто нить знает где наиболее полная их версия ?

Corrector

Надо узнать программно. Такова постановка задачи.

Viktory-s

Все узнает для тебя Aida32. За прогой зайди к соседу!

Viktory-s

И ваще это вопрос не для Programming! Потому и молчат!

laisan

Что-то вроде этого, но все же стоит ознакомиться с принципами работы с WMI:

uses ComObj;
...
var Guid : TGUID;
WBEMLocator : Variant; // ISWBemLocator, ['{76A6415B-CB41-11D1-8B02-00600806D9B6}']
WBEMServices : Variant; // ISWbemServices, ['{76A6415C-CB41-11D1-8B02-00600806D9B6}']
Win32_BaseBoard : Variant; // ISWbemObject, ['{76A6415A-CB41-11D1-8B02-00600806D9B6}']
prop : variant; // ISWbemProperty ['{1A388F98-D4BA-11D1-8B09-00600806D9B6}']
value : olevariant;
begin
guid := ProgIDToClassID('WbemScripting.SWbemLocator');
WBEMLocator := CreateComObject(guid) as IDispatch;
WBEMServices := WBEMLocator.ConnectServer;
Win32_BaseBoard := WBEMServices.Get('Win32_BaseBoard');
Win32_BaseBoard.Security_.ImpersonationLevel := 3;
prop := Win32_BaseBoard.Properties_.Item(widestring('Caption' 0);
(* вот как оно описано в MSDN
class Win32_BaseBoard : CIM_Card
{
string Caption;
string ConfigOptions[];
string CreationClassName;
real32 Depth;
string Description;
real32 Height;
boolean HostingBoard;
boolean HotSwappable;
datetime InstallDate;
string Manufacturer;
string Model;
string Name;
string OtherIdentifyingInfo;
string PartNumber;
boolean PoweredOn;
string Product;
boolean Removable;
boolean Replaceable;
string RequirementsDescription;
boolean RequiresDaughterBoard;
string SerialNumber;
string SKU;
string SlotLayout;
boolean SpecialRequirements;
string Status;
string Tag;
string Version;
real32 Weight;
real32 Width;
};
*)
value := prop.value;

laisan

Да, а вообще сходи в меню Project|Import Type Library и импортни Microsoft WMI Scripting V1.1 Library (Version 1.1)
Оставить комментарий
Имя или ник:
Комментарий: