' 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> <KluczRejestru>"
strCommand = "regedit /e c:\rallencorp.reg HKEY_LOCAL_MACHINE\Software\Rallencorp"
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
if intRC <> 0 then
   WScript.Echo "Operacja eksportowania pliku rejestru zwrcia bd: " & intRC
else
   WScript.Echo "Operacja eksportowania pliku rejestru nie zwrcia adnych bdw."
end if
