This script will Enable or Disable the Pop Up description when you move the pointer over a folder or desktop items. (VBScript)
| 'Enable or Disable Pop Up Descriptions On Error Resume Next Set WSHShell = WScript.CreateObject("WScript.Shell") Dim WSHShell, n, p, itemtype Message = "This script will Enable or Disable Pop Up Descriptions." & vbCr Message = Message & "Don't forget to Refresh the Desktop for this to take effect." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") Z = WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If Z = 0 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 1, "REG_DWORD" MsgBox "Pop Up Descriptions are now ENABLED" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths script was download from www.paulsxp.com.", 64, "Done!" WshScript:Qiut Else Z = WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If Z = 1 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 0, "REG_DWORD" MsgBox "Pop Up Descriptions are now DISABLED" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths script was download from www.paulsxp.com.", 16, "Done!" End If End If End If |