You may want to ensure that you are using fully qualified credentials.
Sometimes see issues with that, especially when local or remote machines have
trust relationships.
ie.
my $dbh = DBI->connect('dbi:WMI:'.$machine,$machine.'\admin','admin');
Other than that, haven't used the DBD interfaces before - usually just use the
OLE methods directly and they haven't given problems.
You may want to confirm passwords, etc. using the wmic utility before worrying
about the underlying Perl code.
eg.
wmic /NODE:machine /USER:machine\admin OS LIST BRIEF
Mark
---
Mark Leighton
CLIC LAN Supervisor, Information Commons, University of Toronto
E-mail: mark{DOT}leighton{AT}utoronto.ca
-------- Original Message --------
Subject: WMI remote querying
From: David Evans <dev...@monsoon.co.uk>
To: perl-win32-users@listserv.ActiveState.com
Date: Tuesday, March 24, 2009 8:21:27 AM
> Hi wonderful people
>
> I hope one of you can help me. I need to access WMI on a remote Win XP
> desktops and I am getting permission errors when using the local admin
> account on the remote box. Any ideas?
>
> CODE:
>
> use DBI;
> my $machine = 'server';
> my $dbh = DBI->connect('dbi:WMI:'.$machine,'admin','admin');
> print "$dbh\n";
> my $sth = $dbh->prepare('SELECT * FROM Win32_OperatingSystem');
> $sth->execute;
> while (my @row = $sth->fetchrow) {
> my $printer = $row[0];
> printf "ServicePackMajorVersion is %s\n",
> $printer->{ServicePackMajorVersion}, $machine;
> printf "ServicePackMinorVersion is %s\n",
> $printer->{ServicePackMinorVersion}, $machine;
> };
> ERROR:
>
> C:\Scripting\toys>wmi.pl
> Win32::OLE(0.1707) error 0x80070005: "Access is denied"
> after character 0 in "winmgmts:\\server\root\cimV2" at
> C:/Perl/site/lib/DBD/
> WMI.pm line 95
> Any help greatly appreciated.
>
> Thanks
>
> Dave
>
> PS
> My system is...
> Host: WinXP SP2
> Perl: 5.8.8 Build 822
> DBD::WMI 0.06
> DBI 1.607
>
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
