# Kod importuje zawarto pliku rejestru
# Poniewa nie jest dostpna adna funkcja skryptowa wykonujca to zadanie, po prostu
# w tym celu zastosowaem w kodzie narzdzie regedit.

# strCommand = "regedit /s <ciekaPliku>"

use Win32::OLE;
$Win32::OLE::Warn = 3;

$strCommand = 'regedit /s c:\\rallencorp.reg';
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run($strCommand, 0, 1);
if ($intRC != 0) {
    print 'Operacja importowania pliku rejestru zwrcia bd: ' . $intRC, "\n";
}
else {
    print "Operacja importowania pliku rejestru nie zwrcia adnych bdw.\n";
}
