'xp_balloontips.vbs - Disables/Enables Windows XP BalloonTips
'© Doug Knox - rev 02/06/2002

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, itemtype, Title

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
p = p & "EnableBalloonTips"
itemtype = "REG_DWORD"
n = 0

WSHShell.RegWrite p, n, itemtype
Title = "Balloon Tips are now Disabled." & vbCR
Title = Title & "You may need to log off/log on" & vbCR
Title = Title & "For the change to take effect."
MyBox = MsgBox(Title,4096,"Finished")