Remove Items From Notification Area. (VBScript)
| 'Removes Items from Notification Area 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, "www.paulsxp.com") If X = 6 Then PmShell.RegDelete "HKCR\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\IconStreams" PmShell.RegDelete "HKCR\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\PastIconsStream" Set PmShell = Nothing>br> For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next MsgBox "Items from Notification Area have been Removed", 64, "Items Removed!" End If |