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

# strCommand = "regedit /e <ciekaPliku> <RegKey>"

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

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