Use vbscript to implement scripts that hide taskbar icons

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 = ("")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Notification Icons are now "
t = "Confirmation"

n =  (p)
errnum = 
if errnum <> 0 then
  p, 0, itemtype
End If
If n = 0 Then
 n = 1
 p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 1 then
 n = 0
 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=''")
 (0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else 
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If