Finaly, WMI appears to be broken (at least in remote mode)
I have try with :
wmic /USER:administrador /PASSWORD:test /node:192.168.8.13 path
Win32_Product get name
and:
wmic /USER:administrador /PASSWORD:test /node:192.168.8.13 path CIM_Product
get name
and, in first case, no records, in second case, only one ...
If I try in local mode, it works fine.
*** Windows r0X ***
Finaly for query remote-installed-software I have do:
------------
#!/usr/bin/perl
use strict;
use Win32::NetResource;
use Win32::TieRegistry(Delimiter => '/');
## Enviar credenciales
my %NETRESOURCE=(
RemoteName => "[EMAIL PROTECTED]",
);
my $rc = Win32::NetResource::AddConnection(\%NETRESOURCE, @ARGV[2],
@ARGV[1], 0);
###
my $key =
"\/\/@ARGV[0]\/LMachine\/Software\/Microsoft\/Windows\/CurrentVersion\/Uninstall";
foreach my $subkey ( keys(%{$Registry-> {$key}}) ) {
# beware: $subkey comes with a trailing slash
if ($Registry-> {"$key/$subkey/DisplayName"} && $Registry->
{"$key/$subkey/DisplayVersion"}) {
my $name = $Registry-> {"$key/$subkey/DisplayName"};
my $version = $Registry-> {"$key/$subkey/DisplayVersion"};
my $installdate = $Registry-> {"$key/$subkey/InstallDate"};
if ($name) {
print "[*************]\n";
print "$name\n" ;
print "Version: $version\n";
print "Fecha de Instalacion: $installdate\n";
};
}
}
--------
On Oct 31, 2007 4:44 AM, Justin Allegakoen <[EMAIL PROTECTED]>
wrote:
>
> -------8<---------
> You know, I seem to remember that it wasn't strict safe (from a long
> time ago). Since you think it is, please accept my apologies (Because
> you are the expert when it comes to Win32-OLE, and I just use it).
> -------8<---------
>
> You probably meant that Win32::OLE is not _thread_ safe
>
> Just in
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
