' ***************************************************
'
' VBScript generated by SystemScripter
' www.scriptinternals.de
' 
' Autor:    			Pan_fee & Lutze
' Datum:    			Montag, 12. April 2005
' 
' Beschreibung:
'
' Deaktiviert die Sprechblasentipps im Infobereich von Windows XP. 
' Durch nochmaliges Ausführen des Skripts kann die Einstellung
' wieder rückgängig gemacht werden.
'
' Version: 1.0
' (C) 2005 by Lutz Sterbies
'
' ***************************************************        
key  = "HKCU\Software\Microsoft\Windows\" _ 
     & "CurrentVersion\Explorer\Advanced\EnableBalloonTips"  
wert = "0" 
typ  = "REG_DWORD"

text = "Die Sprechblasen sind abgeschaltet." & vbCr _
     & "Zum Löschen des Eintrags das Skript noch mal ausführen."

Set ws = WScript.CreateObject("Wscript.Shell")

On Error Resume Next
 pruefen = ws.RegRead(key) 'prüfen ob vorhanden
 ok = Err.number = 0
On Error Goto 0

If Not ok Then 'Existiert nicht
  ws.RegWrite key, wert, typ 'erstellen
  MsgBox text ,64, ":-)"
   
ElseIf Not pruefen = "0" Then 'Steht nicht auf 0
  ws.RegWrite key, wert, typ 'erstellen
  MsgBox text ,64, ":-)"

Else 'löschen
  ws.RegDelete key
  MsgBox "Die Sprechblasen sind wieder eingeschaltet." ,64, ":-)"
End If