а вот решение :)
UPD
Option Explicit
Dim WshShell, basekey,basekey2, rtn
Set WshShell = CreateObject("WScript.Shell")
basekey="HKLM\Software\Microsoft\Windows\C
urrentVersion\Policies\System\"
Task1
basekey="HKCU\Software\Microsoft\Windows\C
urrentVersion\Policies\System\"
Task1
basekey2="HKLM\Software\Microsoft\Window
s\CurrentVersion\Policies\Explorer\"
Task2
basekey2="HKCU\Software\Microsoft\Window
s\CurrentVersion\Policies\Explorer\"
Task2
Sub Task1()
On Error Resume Next
rtn = WshShell.Regdelete (basekey & "NoDispCPL")
rtn = WshShell.Regdelete (basekey & "NoDispAppearancePage")
rtn = WshShell.Regdelete (basekey & "NoDispBackgroundPage")
rtn = WshShell.Regdelete (basekey & "NoDispScrSavPage")
rtn = WshShell.Regdelete (basekey & "NoDispSettingsPage")
On Error Goto 0
End Sub
Sub Task2()
On Error Resume Next
rtn = WshShell.Regdelete (basekey2 & "NoThemesTab")
rtn = WshShell.Regdelete (basekey2 & "ClassicShell")
rtn = WshShell.Regdelete (basekey2 & "NoChangingWallPaper")
rtn = WshShell.Regdelete (basekey2 & "ForceActiveDesktopOn")
rtn = WshShell.Regdelete (basekey2 & "NoActiveDesktop")
rtn = WshShell.Regdelete (basekey2 & "NoWebView")
On Error Goto 0
End Sub
Wshshell.RUN ("regsvr32.exe shell32.dll -i -s")
Wshshell.RUN ("regsvr32.exe themeui.dll -s")
Msgbox "Done"
Set WshShell = Nothing