WMI Classes

[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* .

[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.

[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" ()

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.