This script will remove items from the Notification Area. (VBScript)
|
'Removes Items from Notification Area On Error Resume Next Dim WshShell, sMsg, sInput, sDone sMsg = "This script will remove items from the Notification Area." & vbCr & vbCr _ & "To work correctly, the script will close and restart the Windows Explorer shell. This will not harm your computer." & vbCr & vbCr _ & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _ & " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _ & "Would you like to continue?" sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks") If sInput = vbYes Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKCR\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams" WshShell.RegDelete "HKCR\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream" For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next sDone = "Items from Notification Area have been Removed!" & vbCr & vbCr _ & "This script was downloaded from www.paulsxp.com." MsgBox sDone, 64, "Paul's XP and Vista Tweaks" End If |