Tweak Put Tweak UI In Control Panel

Discussion in 'Windows Desktop Systems' started by Leevoy, Sep 30, 2003.

  1. Leevoy

    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

    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!"


    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 :)
  2. Jewelzz

    Jewelzz OSNN Godlike Veteran

  3. Quick Reply

    Quick Reply Guest

    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:
  4. Leevoy

    Leevoy Guest

    Yeah I know, but it LQQK's pretty in there.
  5. Perris Calderon

    Perris Calderon Moderator Staff Member Political User

    new york
    I like pretty looking things