WMI Abfrage (Allgemeines zu Perl)

[thread]7629[/thread]

WMI Abfrage

Leser: 2

oblivion

2006-01-17 19:50

User since
2006-01-17
24 Artikel
BenutzerIn
[default_avatar]

schönen guten Abend!

kurzer Hintergrund:
Ich bin noch ein ziemlicher Anfänger und
man hat mir den lustigen Auftrag gegeben ein
Programm zu erstellen,das eine Hardware Inventur durchführt.
Ich benutze Perl und die WMI von Windows um auf die einzelnen Komponenten zugreifen zu können.

soweit klappt das ja auch alles, bis auf die ARRAYS und HASHES in der WMI:

Wenn ich z.B.:

Code: (dl )

use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

$computer = ".";
$objWMIService = Win32::OLE->GetObject
    ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
    ("SELECT * FROM Win32_NetworkAdapter","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

foreach my $objItem (in $colItems)
{
 print "$objItem->{IPAddress}";
}

eingebe, bekomme ich nichts angezeigt.

erst Wenn ich

Code: (dl )

foreach my $objItem (in $colItems)
{
 print "$objItem->{IPAddress}[0]";
}

eingebe, dann zeigt er mir die IP-Adresse an.

So, was mache ich jetzt aber wenn ich mehrere IP-Adressen habe? gibts eine Möglichkeit, das

$objItem->{IPAddress} zu einem Hash zu machen und alle Werte auslesen zu lassen?

vielen Dank für Eure Hilfe

Gruß Oblivion

esskar

2006-01-17 21:11

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

schau dir mal den Scriptomatic 2.0 von Microsoft an

oblivion

2006-01-17 21:46

User since
2006-01-17
24 Artikel
BenutzerIn
[default_avatar]

das ist ein guter tipp, vielen Dank!
Aber ich verstehe nicht, wie man an die Werte des Hashes rankommt. Wenn jemand dazu vielleicht eine Erklärung hätte wäre ich ihm wirklich dankbar

Gruß Oblivion

sesth

2006-01-18 12:08