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

Download


Back to Line 12