|
|
![]() |
|
|
Top | #1 |
|
Unregistered
Posts: n/a
|
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
|
|
|
|
Top | #2 |
|
Queen of Farts
Joined: March 2002
Location: Texas
Posts: 10,944
Blog Entries: 7
Reputation: 1843
Power: 249 |
:confused:
|
|
|
|
![]() |
| Bookmarks |
| Thread Tools | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| ATi Control Panel? | champ2005 | Graphics Cards | 6 | August 17th, 2004 3:39am |
| ati control panel | [CpK]Bastid | Windows Desktop Systems | 7 | May 28th, 2003 1:36pm |
| control panel | iannn | Windows Desktop Systems | 8 | November 18th, 2002 12:38am |
| XP-erience Files - Tweak files - DNS Cache Tweak | Teddy | Windows Desktop Systems | 2 | October 23rd, 2002 5:59pm |
| Control Panel??? | tinymonkey | Windows Desktop Systems | 10 | July 8th, 2002 6:38am |