//-----------------------------------------------------------------------------------------------------
// This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.350
// http://code.google.com/p/wmi-delphi-code-creator/
// Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
// Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015
//-----------------------------------------------------------------------------------------------------
//
// LIABILITY DISCLAIMER
// THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
// YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
// DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;
{$APPTYPE CONSOLE}
uses
SysUtils,
ActiveX,
ComObj,
Variants,
Classes;
// Raw SMBIOS Tables
procedure GetMSSmBios_RawSMBiosTablesInfo;
const
WbemUser ='
';
WbemPassword ='
';
WbemComputer ='
localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
SMBiosData: TBytes;
StringStream: TStringStream;
begin;
FSWbemLocator := CreateOleObject('
WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '
root\WMI', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('
SELECT * FROM MSSmBios_RawSMBiosTables','
WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum)
as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0
do
begin
Writeln(Format('
Active %s',[
String(FWbemObject.Active)]));
// Boolean
Writeln(Format('
DmiRevision %d',[Integer(FWbemObject.DmiRevision)]));
// Uint8
Writeln(Format('
InstanceName %s',[
String(FWbemObject.InstanceName)]));
// String
Writeln(Format('
Size %d',[Integer(FWbemObject.Size)]));
// Uint32
Writeln('
SMBiosData:');
// Array of Uint8
StringStream := TStringStream.Create(TBytes(FWbemObject.SMBiosData));
Writeln(StringStream.DataString);
StringStream.Free;
Writeln(Format('
SmbiosMajorVersion %d',[Integer(FWbemObject.SmbiosMajorVersion)]));
// Uint8
Writeln(Format('
SmbiosMinorVersion %d',[Integer(FWbemObject.SmbiosMinorVersion)]));
// Uint8
Writeln(Format('
Used20CallingMethod %s',[
String(FWbemObject.Used20CallingMethod)]));
// Boolean
Writeln('
');
FWbemObject:=Unassigned;
end;
end;
begin
try
CoInitialize(
nil);
try
GetMSSmBios_RawSMBiosTablesInfo;
finally
CoUninitialize;
end;
except
on E:EOleException
do
Writeln(Format('
EOleException %s %x', [E.
Message,E.ErrorCode]));
on E:
Exception do
Writeln(E.Classname, '
:', E.
Message);
end;
Writeln('
Press Enter to exit');
Readln;
end.