Tweak Put Tweak UI In Control Panel

L

Leevoy

Guest
I can't remember where I downloaded this one from.

But I can post it in here: It is a VB Script File.

'© Doug Knox - 2003
'Based on AddTweakUItoCP.reg from http://www.kellys-korner-xp.com/xp_tweaks.htm

On Error Resume Next

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

Set fso = CreateObject("Scripting.FileSystemObject")

SysDir = fso.GetSpecialFolder(1)
Tweak = SysDir & "\tweakui.exe"

If fso.FileExists(Tweak) Then

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

p1 = "HKCR\CLSID\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\"

WshShell.RegWrite p1, "TweakUIXP"
WshShell.RegWrite p1 & "InfoTip", "Starts TweakUI for Windows XP"
WshShell.RegWrite p1 & "DefaultIcon\","%SystemRoot%\\System32\\tweakui.exe,0", "REG_EXPAND_SZ"
WshShell.RegWrite p1 & "Shell\Open\Command\","tweakui.exe"
WshShell.RegWrite p1 & "ShellFolder\Attributes",48,"REG_DWORD"

WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\{D14ED2E1-C75B-443c-BD7C-FC03B2F08C17}\", "Add Tweakui to Control Panel"

MsgBox "TweakUI has been added to your Control Panel.", vbokonly, "Finished!"

Else

MsgBox "TweakUI.EXE was not found in the " & SysDir & " folder. No changes were made.", vbokonly, "Problem!!"

End If

Set FSO = Nothing
Set WshShell = Nothing




Save as .vbs file :)
 
This tweak is pretty pointless, it's not like it matters if TweakUI is on the Start Menu or Control Panel, it won't make it work any different! :confused:
 

Members online

No members online now.

Latest profile posts

Also Hi EP and people. I found this place again while looking through a oooollllllldddd backup. I have filled over 10TB and was looking at my collection of antiques. Any bids on the 500Mhz Win 95 fix?
Any of the SP crew still out there?
Xie wrote on Electronic Punk's profile.
Impressed you have kept this alive this long EP! So many sites have come and gone. :(

Just did some crude math and I apparently joined almost 18yrs ago, how is that possible???
hello peeps... is been some time since i last came here.
Electronic Punk wrote on Sazar's profile.
Rest in peace my friend, been trying to find you and finally did in the worst way imaginable.

Forum statistics

Threads
62,015
Messages
673,494
Members
5,621
Latest member
naeemsafi
Back