'Restore the SideBar 

On Error Resume Next

Dim WshShell, objShell, Message

Set WshShell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.length = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

Message = "This script will Restore the Side Bar." & vbCr & vbCr _
 & "This action will DELETE Registry Keys and" & vbCr _
 & "Register and UnRegister dll files." & vbCr & vbCr _
 & "Would you like to Continue?"

M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP, Vista and Windows 7 Tweaks")
If M = 6 Then 

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Windows\Sidebar\TurnOffSidebar"'
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Windows\Sidebar\TurnOffSidebar"

WshShell.Run "Regsvr32 -u ""%ProgramFiles%\Windows Sidebar\sbdrop.dll"""
WshShell.Run "Regsvr32 -u ""%ProgramFiles%\Windows Sidebar\wlsrvc.dll"""
WshShell.Run "Regsvr32 ""%ProgramFiles%\Windows Sidebar\sbdrop.dll"""
WshShell.Run "Regsvr32 ""%ProgramFiles%\Windows Sidebar\wlsrvc.dll"""
WshShell.Run "Regsvr32 atl.dll"

WScript.Sleep 6000
Message = "Side Bar has been Restored!" & vbCr & vbCr _
 & "This script was downloaded from www.paulsxp.com." & vbCr & vbCr _
 & "Don't forget to Reboot your computer." 
MsgBox Message, 64, "Paul's XP, Vista and Windows 7 Tweaks"
End If
End If