WMI Classes

[Luckie]

Mit Hilfe dieser WMI Classes kann man ja recht viel über die Hardware rausbekommen. Siehe hier: http://msdn.microsoft.com/library/de...re_classes.asp . Weiß da jemand mehr drüber? Also wie man damit in Delphi umgeht? Gibt es da schon Header-Übersetzungen? Usw.

[Compet]

Das würde mich auch interessieren. In einem anderen Forum war mal ein Thread über class Temperatursensor aber wie man damit umgeht wurde nicht beantwortet.
Vielleicht habe ich ja hier Glück.

Gruß
Compet

[Daniel]

Hallo Luckie,

ich habe da mal ein Beispiel geschrieben und ins Netz gestellt:
http://users.andara.com/~dblondeau/downloads.htm.
Schaue auf dieser Seite mal nach dem 'Delphi-Sample'.


:roll: Na gut. Ist nicht von mir. Aber die Demo sieht ganz nach dem aus, was Du suchst.

[Motzi]

Hi,

das Beispiel hab ich auch schon gefunden und mich daran ortientiert... hab auch schon vor einiger Zeit angefangen mich mit WMI zu beschäftigen (für den X-Spy) da man damit auch an Infos rankommt für die man sonst native APIs bräuchte...

Das Beispiel verwendet die Scripting-APIs, ich bin momentan auf der Suche nach Möglichkeiten wie man die COM-APIs für WMI benutzen kann...

Eine kleines quick-and-dirty Programm für Infos über den Prozessor hab ich mal angehängt (Vorraussetzung zum kompilieren ist die importierte TypeLibrary "wbemdisp.tlb").

[Luckie]

Daniel, ich glaube, das war genau, das, was ich gesucht habe. Man damit kann man ja eine riesige SysInfo bauen. Ich werde mich mal damit beschäftigen dem nächst.

[Luckie]

Ich glaube, ich habe diese Type-Library Microsoft WMI Scripting v1.1 Library (Version 1.1) nicht installiert. Wo bekomme ich die her?

[Motzi]

Ist normalerweise in "System32\Wbem" drinnen... einfach über Project->Import Type Library importieren...

[Luckie]

Ich habe da nur wbemads.tlb und wbemctl.tlb. Aber deine Exe läuft.

[Luckie]

So, habe sie gefunden. Nur sagt mir Delphi jetzt, wen cih dein programm Compilieren will:

Zitat:

Zitat von blöde Debugger

[Fehler] Main.pas(96): Undefinierter Bezeichner: 'TSWbemLocator'

Was fehlt denn da jetzt noch?

[Daniel B]

http://www.delphipraxis.net/internal...ct.php?p=75378 <-- Über Google gefunden :lol:

Ansonsten http://www.nldelphi.com/cgi-bin/forum.exe/Thread/7596

[Luckie]

Mit Hilfe des ersten Links habe ich es ja auch geschaft, die richtige TLB zu finden. Der zweite scheint leider nutzlos zu sein.

[Motzi]

Also wenn du die TypeLibrary importiert hast, dann sollte Delphi eine Datei "WbemScripting_TLB.pas" erstellt haben, die brauchst du natürlich in der uses-Liste!

In dieser Datei sind nun die importierten Interfaces ect. plus die von Delphi automatisch erzeugten Klassen die von TOleServer abgeleitet sind. TSWbemLocator ist zB so eine Klasse...

Ich weiß nicht ob in diesem Punkt ein Unterschied zwischen der personal und der professional Version ist, aber ich glaube schon, das TOleServer bei der personal Version auch dabei ist, es sollte also kein Unterschied sein...

[Luckie]

Ich habe die Typ-Bibliothek importiert, wie du es gesagt hast und dann dein Projekt geöffnet. Die MadExports habe ich noch entfernt und dann wollte ich es kompilieren. Und dabei trat dann obiger Fehler auf.

[Motzi]

Häng mal die von deinem Delphi erzeugte WbemScripting_TLB.pas an... vielleicht besteht doch ein Unterschied zwischen prof und personal Version...

Kannst du das Demo dessen Link Daniel gepostet hat kompilieren?

[Luckie]

Habe ich noch nicht probiert. Aber hier mal die Datei... *such* *wühl* *festplatte umkrempel* *tadaaa* :P.

[Motzi]

Ok.. anscheinend besteht also doch ein Unterschied zwischen personal und professional Version... Du musst also direkt mit den interfaces arbeiten:

Delphi-Quellcode:

var
  aLocator      : ISWbemLocator;
  aServices     : ISWbemServices;
begin
  aLocator := CoSWbemLocator.Create;
  aServices := aLocator.ConnectServer('', 'root\cimv2', '', '', '', '', 0, nil);
  {..}
end;

Der Rest müsste gleich bleiben...

[Luckie]

Ja so geht es. Nur aLocator.Free mag er nicht. :gruebel:

[Motzi]

Das kannst du ganz weglassen... Interface-Referenzzähler werden von Delphi intern verwaltet...

[Luckie]

So, jetzt die Gretchen Frage: Gibt es das WMI auch unter 98 und ME? Würden dan die Exe's laufen?

[Christian Seehase]

Moin Luckie,

in diesem Falle ist das PSDK "des Pudels Kern" (:mrgreen:)

Unter dem Indexeintrag "WMI [WMI]"

wird es als von 95 bis .NET Server 2003 lauffähig angegeben.
Ggf. müssen dann allerdings noch Redistributables mitgeliefert werden.

[Luckie]

Danke. Ich werde mich dann mal da einlesen. Hat jemand zufällig schon ein paar gute Links zur Hand?

[Motzi]

Naja, WMI wird eigentlich erst mit NT "wirklich" unterstützt..! Aber es steht eh bei jeder Klasse dabei ab welcher Version sie verfügbar ist. (zB mein ProcessInfo geht nur unter NT)

Zitat:

Hat jemand zufällig schon ein paar gute Links zur Hand?

Zu WMI? Gibt es kaum was... hab auch schon gesucht, im Endeffekt bist du hauptsächlich aufs PSDK/MSDN angewiesen..!
Bezüglich COM allgemein könnte ich dir das Buch von "COM/DCOM/COM+" von Andreas Kosch empfehlen..!

[Luckie]

Zitat:

Zitat von Motzi

Naja, WMI wird eigentlich erst mit NT "wirklich" unterstützt..! Aber es steht eh bei jeder Klasse dabei ab welcher Version sie verfügbar ist. (zB mein ProcessInfo geht nur unter NT)

Zitat:

Hat jemand zufällig schon ein paar gute Links zur Hand?

Zu WMI? Gibt es kaum was... hab auch schon gesucht, im Endeffekt bist du hauptsächlich aufs PSDK/MSDN angewiesen..!

So weit war ich eben auch schon, dass ich nichts gescheites gefunden habe. :roll:

[toms]

Vielleicht hilft das ein wenig:

WMI - how to use Windows Management Instrumentation in Delphi:

Link

[Luckie]

Danke, werde ich mir mal ankucken.