Rename the Recycle Bin. (VBScript)
| Option Explicit Set ws = WScript.CreateObject("WScript.Shell") 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!" PmBox = MsgBox(MsgTitle, vbOkOnly, "Finished") End If |