This script will Rename the Recycle Bin. (VBScript)
| 'Rename the Recycle Bin Set ws = WScript.CreateObject("WScript.Shell") Message = "This script will Rename the Recycle Bin." & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Dim ws, j, p1, m, pm, PmBox, MsgTitle Dim itemtype p1 = "HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\" m = ws.RegRead(p1 & "LocalizedString") j = "Change the Name of The Recycle Bin" pm = InputBox("Type in the name to replace The Recycle Bin.", j, m) If pm <> "" Then ws.RegWrite p1 & "LocalizedString", pm MsgTitle = "Recycle Bin has been Renamed!" &vbCr &vbCr MsgTitle = MsgTitle & "This script was download from www.paulsxp.com" PmBox = MsgBox(MsgTitle, vbExclamation + vbOkOnly,"Finished") End If End If |