This script will Remove the Short Arrows from the Desktop Icons. (VBScript)
| 'Remove Short Cut Arrows, Vista On Error Resume Next Dim WshShell, ObjShell, m, MyBox, p, z, cm, Title, setting, error Set WshShell = WScript.CreateObject("WScript.Shell") If WScript.Arguments.length = 0 Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", """" & _ WScript.ScriptFullName & """" &_ " RunAsAdministrator", , "runas", 1 Else Message = "This script will Remove the short cut arrows on the Desktop Icons" Message = Message & " and the short cut text under the Icon." & vbCr & vbCr Message = Message & "This action will DELETE Registry Keys." & vbCr Message = Message & "Adding information can unintentionally change or delete values" & vbCr Message = Message & "and cause components to stop working correctly." & vbCr Message = Message & "If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr Message = Message & "Are you sure you want to continue?" X = MsgBox(Message, vbYesNo + vbExclamation, "Paul's XP and Vista Tweaks") If X = 6 Then WshShell.RegDelete "HKCR\lnkfile\IsShortcut" WshShell.RegDelete "HKCR\piffile\IsShortcut" WshShell.RegDelete "HKCR\InternetShortcut\IsShortcut" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\link", CLng(0), "REG_BINARY" Message = "You must LogOff/On for this change to take effect." & vbCr & vbCr Message = Message & "This script was downloaded from www.paulsxp.com." MsgBox Message,64, "Short Cut Arrows Removed!" Else Message = "Action was Canceled!" & vbCr & vbCr Message = Message & "This script was downloaded from www.paulsxp.com." MsgBox Message,48, "Nothing Done" End If End If |