-
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 system." & vbCR & vbCR
-
Message = Message & "Continue?"
-
X = MsgBox(Message, vbYesNo, "Notice")
-
If X = 6 Then
-
On Error Resume Next
-
Dim WSHShell, n, MyBox, p, t, errnum, vers
-
Dim itemtype
-
Dim enab, disab, jobfunc
-
Set WSHShell = WScript.CreateObject("WScript.Shell")
-
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
-
itemtype = "REG_DWORD"
-
enab = "ENABLED"
-
disab = "DISABLED"
-
jobfunc = "Notification Icons are now "
-
t = "Confirmation"
-
Err.Clear
-
n = WSHShell.RegRead (p)
-
errnum = Err.Number
-
if errnum <> 0 then
-
WSHShell.RegWrite p, 0, itemtype
-
End If
-
If n = 0 Then
-
n = 1
-
WSHShell.RegWrite p, n, itemtype
-
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
-
ElseIf n = 1 then
-
n = 0
-
WSHShell.RegWrite p, n, itemtype
-
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
-
End If
-
Set WshShell = Nothing
-
On Error GoTo 0
-
For Each Process in GetObject("winmgmts:"). _
-
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
-
Process.terminate(0)
-
Next
-
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
-
Else
-
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
-
End If
