Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell") Dim objWMISrv : Set objWMISrv = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Dim RegPath : RegPath = "HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\" Dim RegKey(1) RegKey(0) = "IconStreams" RegKey(1) = "PastIconsStream" If MsgBox("Sollen die SysTray Icons gefixt werden ?",vbYesNo + vbQuestion,"Ausführen ?") = vbYes then For X = 0 To UBound(RegKey) ObjWsh.RegDelete RegPath & RegKey(X) Next MsgBox "Icons wurden gefixt bitte melden sie sich ab/an um die Änderungen zu sehen",vbOKOnly + vbInformation,"Icon Fehler behoben" Else MsgBox "Skript wurde abgebrochen",vbOKOnly + vbExclamation,"Abbruch" End If WScript.Quit(0)