Perlscript WMI Example using Instances

You can download the scripting program for generating these scripts at:

http://www.planetmps.com/wmiscriptsinstances.html

use Win32::OLE( 'in' );
my $locator = Win32::OLE->CreateObject("WBemScripting.SWbemLocator");
my $svc = $locator->ConnectServer();
$ob = $svc->Get("Win32_Process");
$objs = $ob->Instances_;
my $mystr = "";
foreach my $obj (in($objs)
{
    foreach my $prop (in($obj->Properties_)
    {
    }
last;
}