|
Can anyone help me with this?
I'm trying to save a key using TieRegistry. When the following code
executes, I get the following error:
An I/O operation initiated by
the Registry failed unrecoverably.
The Registry could not read in, or write out, or flush, one of the files that contain the system's image of the Registry I'm running Perl build 623 from
ActiveState on a Win98 client. I'm not sure if this is important, but I
have other keys elsewhere in the Registry opened. Could this be the
problem?
Any help or suggestions would be
appreciated.
Thanks in advance.
Mark
------------------------------------------------------------ CODE
--------------------------------------------------------------
use
Win32::TieRegistry (AllowSave => 1, qw( KEY_ALL_ACCESS )
);
$TempKey = new
Win32::TieRegistry "LMachine\\Software\\Classes\\SMS\\",
{Access=>KEY_ALL_ACCESS};
if (! defined $TempKey) { PrintStatusMsg("(Phase 1) Error: Unable to open SMS key for backup. Error: $^E\n"); KillApp(); } if
($TempKey->RegSaveKey("C:\\SMSBKUP\\$TimeStamp\\SMS.REG", [] ) )
{
PrintStatusMsg("(Phase 1) Registry Key \\Software\\Classes\\SMS saved successfully\n"); } else { PrintStatusMsg("(Phase 1) Error: Unable to save SMS key in registry. Error $^E\n"); KillApp(); } |
