exporting registry entries to a *.reg file

[gorgo]

I found this code:

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

arrRegPaths = Array( _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset1\", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset2\", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset3\", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset4\" _
      )

Const intForReading = 1
Const intUnicode = -1

strFileName = objShell.ExpandEnvironmentStrings("%UserProfile%") & "\Desktop\RegKeys.reg"

For Each strRegPath In arrRegPaths
      strCommand = "cmd /c REG EXPORT " & strRegPath & " " & Replace(strRegPath, "\", "_") & ".reg"
      objShell.Run strCommand, 0, True
      Set objRegFile = objFSO.CreateTextFile(strFileName, True, True)
      objRegFile.WriteLine "Windows Registry Editor Version 5.00"
      If objFSO.FileExists(Replace(strRegPath, "\", "_") & ".reg") = True Then
            'WScript.Sleep 1000 ' Wait one second to give the file time to close
            Set objInputFile = objFSO.OpenTextFile(Replace(strRegPath, "\", "_") & ".reg", intForReading, False, intUnicode)
            If Not objInputFile.AtEndOfStream Then
                  objInputFile.SkipLine
                  objRegFile.Write objInputFile.ReadAll
            End If
            objInputFile.Close
            Set objInputFile = Nothing
            objFSO.DeleteFile Replace(strRegPath, "\", "_") & ".reg", True
      End If
      objRegFile.Close
      Set objRegFile = Nothing
Next

MsgBox "Finished."

But if I use this in a button in a form and run it, I get a Compile Error, Variable not defined at line ObjShell. How do I define it?

[gorgo]

*UPDATE:

running this will give the error/stop Runtime Error 91, Object Variable or With block Variable not set.

Private Sub CommandButton1_Click()
Dim objShell As Object
Dim objFSO As Object
Dim arrRegPaths As Object
Dim strFileName As Object
Dim objRegFile As Object
Dim strRegPath As Object
Dim strCommand As Object
Dim objInputFile As Object
'Dim objShell As Object
Dim objInputFire As Object

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

arrRegPaths = Array( _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset1", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset2", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset3", _
      "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\PNPreset4" _
      )

Const intForReading = 1
Const intUnicode = -1

strFileName = objShell.ExpandEnvironmentStrings("%UserProfile%") & "\Desktop\PageNumberer_settings.reg"

Set objRegFile = objFSO.CreateTextFile(strFileName, True, True)
objRegFile.WriteLine "Windows Registry Editor Version 5.00"

For Each strRegPath In arrRegPaths
      strCommand = "cmd /c REG EXPORT " & strRegPath & " " & Replace(strRegPath, "\", "_") & ".reg"
      objShell.Run strCommand, 0, True
      If objFSO.FileExists(Replace(strRegPath, "\", "_") & ".reg") = True Then
            'WScript.Sleep 1000 ' Wait one second to give the file time to close
            Set objInputFile = objFSO.OpenTextFile(Replace(strRegPath, "\", "_") & ".reg", intForReading, False, intUnicode)
            If Not objInputFile.AtEndOfStream Then
                  objInputFile.SkipLine
                  objRegFile.Write objInputFile.ReadAll
            End If
            objInputFile.Close
            Set objInputFile = Nothing
            objFSO.DeleteFile Replace(strRegPath, "\", "_") & ".reg", True
      End If
Next

objRegFile.Close
Set objRegFile = Nothing

MsgBox "Finished."
End Sub

[shelbym]

REM all the following lines:

'Dim arrRegPaths As Object
'Dim strFileName As Object
'Dim objRegFile As Object
'Dim strRegPath As Object
'Dim strCommand As Object
'Dim objInputFile As Object
'Dim objShell As Object
'Dim objInputFire As Object

and it should work, many of these variables should be be redefined to the proper types, but that is the quick answer that should work for you.

-Shelby

[gorgo]

Originally Posted by shelbym

REM all the following lines:

'Dim arrRegPaths As Object
'Dim strFileName As Object
'Dim objRegFile As Object
'Dim strRegPath As Object
'Dim strCommand As Object
'Dim objInputFile As Object
'Dim objShell As Object
'Dim objInputFire As Object

and it should work, many of these variables should be be redefined to the proper types, but that is the quick answer that should work for you.

-Shelby

okay, did this. now error.

[gorgo]

Originally Posted by gorgo

okay, did this. now error.

ah ha! got it to work now with alternate changes. verifying.

[gorgo]

new problem. I got this far, now the *.reg file is empty (other than "Windows Registry Editor Version 5.00
"). What to do to tell this code to properly input the registry values as noted in the lines starting with HKEY_CURRENT_USER.