'xp_ie_missing_tabs.vbs - Restores missing tabs to Internet Options Control Panel.

On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")

p1 = "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\"
p2 = "HKLM\Software\Policies\Microsoft\Internet Explorer\Control Panel\"

WshShell.RegWrite p1 & "GeneralTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "ProgramsTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "SecurityTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "ContentTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "PrivacyTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "AdvancedTab",0,"REG_DWORD"
WshShell.RegWrite p1 & "ConnectionsTab",0,"REG_DWORD"

WshShell.RegWrite p2 & "GeneralTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "ProgramsTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "SecurityTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "ContentTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "PrivacyTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "AdvancedTab",0,"REG_DWORD"
WshShell.RegWrite p2 & "ConnectionsTab",0,"REG_DWORD"

p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p2 = "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\"

WshShell.RegWrite p1 & "NoFolderOptions",0,"REG_DWORD"
WshShell.RegWrite p2 & "NoBrowserOptions",0,"REG_DWORD"

MsgBox "Your Internet Control Panel tabs should now be restored.", vbokonly, "Finished!"