AW: WMI Problem

[Dietmar Fiehn, Dr.]

I think @ARGV[0] is not a valid contruct. you should use $ARGV[0] instead.
 
Dietmar

-----Ursprüngliche Nachricht-----
Von: StoneBeat [mailto:[EMAIL PROTECTED]
Gesendet: Dienstag, 30. Oktober 2007 16:55
An: Steven Manross
Cc: perl-win32-users@listserv.activestate.com
Betreff: Re: WMI Problem


Hi Steven, very thanks for your response.

Look this:

D:\UME\tudimelo>perl software.pl remotehost administrador password
Caption: Producto de sistema informßtico
Description: Producto de sistema informßtico 
Identifying Number: GB8724JDMK
Name: ProLiant DL360 G5
Vendor: HP
Version: <undef>


D:\UME\tudimelo>

As you can see, only shows one record, dont know why 


On 10/30/07, Steven Manross < [EMAIL PROTECTED]> wrote: 

I don't think Win32::OLE is strict safe.

take out the.....

use strict;

I tested it here on my systems, and it returned what I think you are
looking for (software titles that were installed on the remote system. 

Steven


________________________________

        From: [EMAIL PROTECTED]
[mailto:  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED] On Behalf Of
StoneBeat
        Sent: Monday, October 29, 2007 8:30 AM
        To: perl-win32-users@listserv.activestate.com  
<mailto:perl-win32-users@listserv.activestate.com> 
        Subject: WMI Problem


        Hi, Im triying to execute a remote WMI query with this script:

        ------
        use strict;
        use warnings;
        use Win32::OLE qw( in ); 
        use Win32::OLE::Variant;

        use constant wbemFlagReturnImmediately => 0x10;
        use constant wbemFlagForwardOnly => 0x20;
        use constant wbemFlagBidirectional => 0x0 ;

        $| = 1;

        Win32::OLE->Option(Warn => 100);


        my $locator =
Win32::OLE->CreateObject('WbemScripting.SWbemLocator ') or warn;

        my $service = $locator->ConnectServer("@ARGV[0]", 
"root/CIMV2","@ARGV[1]", "@ARGV[2]") || die "ops error\n";

        my $colItems = $service->ExecQuery ('SELECT * FROM
CIM_Product',"WQL");


        foreach my $objItem (in $colItems)
        {
              print "Caption: $objItem->{Caption}\n";
              print "Description: $objItem->{Description}\n";
              print "Identifying Number: 
$objItem->{IdentifyingNumber}\n";
              print "Name: $objItem->{Name}\n";
              print "Vendor: $objItem->{Vendor}\n";
              print "Version: $objItem->{Version}\n"; 
              print "\n";
        }

        -----------


        When I execute this script I get ONLY one record and program
stops.

        Moreover ... when I try to use Win32_Product instead of 
CIM_Product it returns nothing :=?












_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs