Check out Win32::TieRegistry. It makes quick work of most registry
operations.
#########################
#Example
use strict;
use warnings;
use Win32::TieRegistry (Delimiter => '/');
my $path = "Software/Microsoft/Windows/CurrentVersion/Run";
my @computers = qw(computerA computerB computerC);
foreach my $wkstn(sort @computers){
my $virusKey = $Registry->{"//$wkstn/HKEY_LOCAL_MACHINE/$path"};
foreach my $entry(sort keys %{$virusKey}){
print "$entry => ".$virusKey->{$entry};
print "\n";
}
}
##########################
-----Original Message-----
From: Tim Wolak [mailto:[EMAIL PROTECTED]
Sent: Monday, August 29, 2005 11:08 AM
To: beginners@perl.org
Subject: windows registry
All,
This is my first attempt at using perl to work with a windows system
and need some help. I need to check for some registry entries made by
a virus and remove them. Which is the best module for this and do you
know of any example code I can look at?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
