Announcement

**Andreas Kosch** · 11.03.2003, 08:07

Hallo,

>Wie macht man das unter XP

�ber die Klassen von WMI (Windows Management Instrumentation). WMI ist eine universelle Treiberschicht, die Informationen aus den unterschiedlichsten Bereichen (Hardware, Treiber, BIOS, Anwendungseinstellungen, Ereignisanzeige usw.) bereitstellen kann, indem alle diese Detail-APIs verborgen und durch ein univerelles API ersetzt werden. Ein Anwendungsentwickler muss sich nur noch in ein API (WMI) einarbeiten, um die verschiedenen Aufgaben erf�llen zu k�nnen. WMI steht ab Windows 2000 sofort zur Verf�gung, unter Windows 9x und Windows NT 4 jedoch nur als optional nachinstallierbare Komponente.

Die WMI-Klasse Win32_BIOS stellt die Attribute des BIOS dar, die auf dem Computer installiert sind.

Wenn mit .NET gearbeitet wird, ist die Sache dank der Klassen aus dem Namespace System.Mangement ganz einfach (hinter Bios1 verbirgt sich die vom .NET Framework beim Zugriff automatisch generierte .NET-Komponente vom Type ROOT.CIMV2.BIOS):
<pre>
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Bios1.ReleaseDate.ToString())
End Sub
</pre>
Wenn mit Delphi 5/6/7 gearbeitet wird, greift man am elegantesten �ber die die Typbibliothek Microsoft WMI Scripting V 1.1 Library zu, um von Delphi die VCL-Wrapperklassen generieren zu lassen. Die Suche nach der Zeichenkette ISWbemServices sollte hier im FORUM eine Handvoll Delphi-Beispiele f�r WMI finden

**Bernhard Geyer** · 11.03.2003, 09:30

Oder �ber die Funktion GetBIOSDate aus der Jedi.

Diese Funktion verl��t sich jedoch darauf, das die entsprechenden Infos in der Registry stehen, hat aber den Vorteil das sie ohne Installation auf dem Client-PC funktionieren sollte

**Matthias Jaensch** · 11.03.2003, 18:12

Hallo, 

@Andreas: Eine Frage und ein Hilferuf: 
Bei mir ist die entsprechende Unit WbemScriptig_TLB.Pas. Da finde ich aber nichts zum Bioas drin. Was mache ich falsch? 
Und nun der Hilferuf: Ich habe ausversehen diese TLB (?) aus der Liste der in Delphi angezeigten gel�scht. 
Woher kriege ich die wieder? (Genauer: Welche Datei verbirgt sich dahinter?) 

Gru�
Matthia

**Andreas Kosch** · 13.03.2003, 09:22

Hallo,

>Was mache ich falsch?

Nichts - aber den Komport der automatisch generierten Komponente gibt es nur in der .NET-Welt, da dort das .NET-Framework das Teil je nach Wunsch in den Sprachen C# oder VB.NET zusammenbaut. In der "alten Welt" m�ssen wir mit Delphi direkt mit den WMI-Klassen hantieren und die WQL-Abfrage (WMI Query Language) SELECT ReleaseDate FROM Win32_BIOS auf die Klasse abschicken. Das folgende Beispiel demonstriert dies:
<pre>
uses ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
aSrv : ISWbemServices;
aObjSet : ISWbemObjectSet;
vNVS : OleVariant;
aNVSDummy : IDispatch;
pEnum : IEnumVARIANT;
vOut : OleVariant;
dwRetrieved : LongWord;
hRes : HResult;
vValue : OleVariant;
begin
aSrv := SWbemLocator1.ConnectServer('','','','','','',0,vN VS);
aObjSet := aSrv.ExecQuery('SELECT ReleaseDate FROM Win32_BIOS',
'WQL', 0, aNVSDummy);
pEnum := aObjSet.Get__NewEnum as IEnumVARIANT;
while (TRUE) do
begin
hRes := pEnum.Next(1, vOut, dwRetrieved);
if hRes <> S_OK then
Break;
ListBox1.Items.Add(VarToStr(vOut.ReleaseDate));
end;
end;
</pre>

>Woher kriege ich die wieder?

�ber den Men�punkt Projekt | Typbibliothek importieren..., indem der Eintrag Microsoft WMI Scripting V 1.1 Library ausgew�hlt und dann der Button Installieren bei angekreuzter Wrapper-Checkbox angeklickt wird. Delphi generiert dann die Komponente TSWbemLocator, die in meinem Beispiel als SWbemLocator1 �ber den ConnectServer-Aufruf die Verbindung zum lokalen WMI herstellt. Ab diesem Punkt gibt es dann aber mit Delphi keine weitere Unterst�tzen - so dass der Zugriff �ber WQL am universellsten (und einfachsten) ist. Anstelle WQL k�nnte man aber auch direkt mit den Eigenschaften der Klasse hantieren - aber das ist dann weniger universell

**Matthias Jaensch** · 13.03.2003, 12:11

Hallo Andreas,

vielen Dank f�r das Beispiel. (Und f�r Deine B�cher!)
Probiere ich gleich aus, weil ich die Unit ja noch habe.
Aber:
Ich habe ja was schlimmeres vollbracht!
Im Fenster zum Importieren der Typbibliothek gibt es doch unterhalb der Listbox zwei Schalter: "Hinzuf�gen..." und "L�schen". Da habe ich das Scripting gel�scht. Das wieder hinzuzuf�gen ist kein Proble - wenn man wei�, in welcher Datei das Ding steckt. Und genau das wei� ich nicht und suche mir inzwischen die Finger wund...
Normalerweise wird die Datei bei Anwahl in der Listbox ja sogar angezeigt. Kannst Du mir sagen, in welcher Datei das Scripting steckt?

Vielen Dank!
Matthia

**Matthias Jaensch** · 13.03.2003, 21:07

Hallo Andreas, 

Dein Beispiel klappt nat�rlich einwandfrei. Ich habe nur das Problem, 
dass ich nicht wei�, wie ich das als Datum interpretieren soll. 
Bei mir zeigt er "20010402******.******+***" an. 

Au�erdem m�chte ich nat�rlich auch noch alle anderen Bios-Daten, die man bekommen kann. 
Und wenn schon WMI, von dem ich bisher gar nichts wusste, denn schon etwas genauer drauf gucken! 
Wo findet man denn eine Beschreibung zur WMI (f�r Delphi)? 
Dann w�rde ich mich schon durchfressen... 

Danke! 
Matthia

**Andreas Kosch** · 14.03.2003, 07:54

Hallo,

>..welcher Datei das Scripting steckt?

In wbemdisp.TLB aus dem System32\wbem-Unterverzeichnis von Windows.

>..RelaseDate...

Auf der Hilfesseite Platform SDK: Windows Management Instrumentation | Win32_BIOS wird der folgende Aufbau dokumentiert:
<pre>
ReleaseDate
Data type: datetime
Access type: Read-only
Release date of the Windows BIOS in the Coordinated Universal Time (UTC) format of YYYYMMDDHHMMSS.MMMMMM(+-)OOO.
</pre>

>..Wo findet man denn eine Beschreibung zur WMI?

in der Hilfe zum Microsoft Platform SDK (ca. 200 MByte CHM-Hilfedateien), auf der DVD der MSDN Library oder auf der MSDN-Webseite http://msdn.microsoft.com/library/default.asp - wobei allerdings die lokalen Hilfedateien wegen der Suchoption deutlich effektiver sind :-)

>..(f�r Delphi)?

Da gibt es meines Wissens nach nichts.

P.S: WMI ist st�ndig am wachsen. WMI ist Plattformunabh�ngig, ein Hardware-Hesteller liefert nur eine Textdatei im Managed Object Format (MOF) aus und das Betriebssystem baut daraus eine WMI-Klasse, die im Fall von Windows unter Win32 nur �ber die sp�te Bindung abrufbar ist. Erst in der .NET-Welt kann das Framework aus diesen Informationen eine komplette Klasse generieren, die alles �ber Properties und Methoden ver�ffentlicht

**Matthias Jaensch** · 16.03.2003, 16:28

Hallo Andreas, 

vielen Dank! Alles wieder da und das Datum ist nat�rlich auch inzwischen "decodiert" .
Mein "20010402******.******+***" ist nat�rlich der 02.04.2001. 
In einem js-Quelltext wir allerdings vom Monat noch 1 abgezogen. Warum, wei� ich nicht. 
Andererseits stimmt das Datum nicht mit dem beim Systemstart (und in der Registry eingetragenen) 
Datum �berein. Leider ist auch das Feld "InstallDate" nicht anders ausgef�llt - womit wir da w�ren, 
dass die Bios-Infos doch sehr bruchst�ckhaft sind. Name, Description und Caption lauten bei mir 
z. Bsp. alle "Version 1.00". 
Allerdings kann das auch ein Fehler des Biosherstellers (AMI) sein. Wir werden sehen... 

Ich wei� zwar leider nicht. wie ich die DVD bekommen kann, aber das ist nicht weiter schlimm. 
Sie d�rfte auf jeden Fall den Rahmen meines privaten Budgets um einiges sprengen. 

Nun muss ich leider erst mal ins Krankenhaus. Danach geht's weiter... 

Gru� 
Matthia

**Nico Bendlin** · 04.04.2003, 19:50

Ich habe f�r dieses Problem eine Unit geschrieben, die das ROM-BIOS unter allen Win32-Versionen (auch ohne WMI) aulesen kann. 
Im Beispiel Projekt wird auch gezeigt, wie man die SMBIOS-Informationen ausliest anstatt hartcodierte Offsets zu verwenden (F000:FFF5 ist zwar �blich, aber nicht standardisiert - bei einigen ist es F000:FFF6).

http://www.bendlins.de/nico/delphi/ 
BiosHelp (aktuell v2.1)

- nic

Announcement

BIOS-Datum unter XP auslesen?

BIOS-Datum unter XP auslesen?

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment