This script will Remove Items From Notification Area. (VBScript)
| On Error Resume Next Set PmShell = WScript.CreateObject("WScript.Shell") Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This will not harm your computer." & vbCR & vbCR Message = Message & "Continue?" X = MsgBox(Message, vbYesNo +vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then PmShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams" PmShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream" Set PmShell = Nothing For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next MsgBox "Done!"& vbCr & "This script was download from www.paulsxp.com",64, "Items Removed" End If |