Tweak Put Tweak UI In Control Panel

L

Leevoy

Guest
#1
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 :)
 
Q

Quick Reply

Guest
#3
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 posts

Latest profile posts

Perris Calderon wrote on Electronic Punk's profile.
Ep, glad to see you come back and tidy up...did want to ask a one day favor, I want to enhance my resume , was hoping you could make me administrator for a day, if so, take me right off since I won't be here to do anything, and don't know the slightest about the board, but it would be nice putting "served administrator osnn", if can do, THANKS

Been running around Quora lately, luv it there https://tinyurl.com/ycpxl
Electronic Punk wrote on Perris Calderon's profile.
All good still mate?
Hello, is there anybody in there? Just nod if you can hear me ...
Xie
What a long strange trip it's been. =)

Forum statistics

Threads
61,971
Messages
673,299
Members
89,016
Latest member
Poseeut