VBScript to export Reg Branch

[shuanpicto]

I am looking to export a registry branch in VBscript.
This is the code i have:-
On Error Resume Next
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Set wshshell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

APPDATA = WshShell.ExpandEnvironmentStrings("%APPDATA%")

wshshell.Run "REGEDIT /e " & APPDATA & "\temp\wallpaper.reg" "hkey_current_user\Control Panel\Desktop\", 1, true

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

When i run this command in CMD it works :-
REGEDIT /E "%APPDATA%\Temp\wallpaper.reg" "hkey_current_user\Control Panel\Desktop\"

Can anyone help me ?

I don't want to just create a CMD and run that, but i may have to !!

 

[tsuji]

[1] appdata may not resolve well.

http://support.microsoft.com/default.aspx?scid=kb;en-us;329308&Product=winxp

[2] Even it resolves well, it contains space. Do this.
[tt] APPDATA = chr(34) & WshShell.ExpandEnvironmentStrings("%APPDATA%") & chr(34)[/tt]
[3] vbscript is not vb.

http://tek-tips.com/threadminder.cfm?pid=329

 

[tsuji]

Correction to [2]

[2'] Should read instead.
[tt] APPDATA = WshShell.ExpandEnvironmentStrings("%APPDATA%")
wshshell.Run "REGEDIT /e " & [red]chr(34) & [/red]APPDATA & "\temp\wallpaper.reg" [red]& chr(34)[/red] & "hkey_current_user\Control Panel\Desktop\", 1, true
[/tt]
My bad!