This script will Enable ALL Balloons Tips. (VBScript)
| 'Enable All balloon Tips XP Dim WSHShell, MyBox,Title Message = "This script will Enable All Balloon Tips." & vbCr Message = Message & "You may need to LogOff and On for this to change 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") WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\FolderContentsInfoTip", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartButtonBalloonTip", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSMBalloonTip", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\tips\Show", 1, "REG_DWORD" Title = "All Balloon Tips are now Enabled." & vbCR Title = Title & "You may need to log off and on" & vbCR Title = Title & "for this change to take effect." & vbcr & vbcr Title = Title & "This script was downloaded from www.paulsxp.com." MyBox = MsgBox(Title,64,"Finished") End If |