Registry tweak to disable Action Center notifications in Windows 7

6 thoughts on “Registry tweak to disable Action Center notifications in Windows 7”

1. Thanks. This has very useful :)

   Reply

   1. Yeah, just once click to disable them all.

      Reply

2. Does not work because the digits( After 30 digits) change on every single Windows 7 prof version and logged on User

   Reply

3. Problem Solved

   Hello I have got a solution now

   I wrote two Visual Basic Scripts

   Here shown as a Text

   Simply copy the text below into a file
   somewhere on your PC with the name
   [spoiler id="id1" title="Disable_all_notifications_in_Windows_Action_Center.TXT"]
   ____________________________________________Begin of first file_________________________________________________________

   Option Explicit
   Dim WshShell:Set WshShell=CreateObject(“Wscript.Shell”)

   On Error Resume Next
   Dim HoldReg, HoldProblem, HoldWindowsUpdate, HoldSpyware, HoldInternet, HoldUAC, HoldFirewall, HoldVirus, HoldBackup, HoldCheckUpdates, HoldTroubleshooting

   HoldProblem = False
   HoldWindowsUpdate = False
   HoldSpyware = False
   HoldInternet = False
   HoldUAC = False
   HoldFirewall = False
   HoldVirus = False
   HoldBackup = False
   HoldCheckUpdates = False
   HoldTroubleshooting = False

   Err.Clear()

   ‘Windows Update
   HoldReg = WshShell.RegRead (“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting”)
   If Err 0 Then
   HoldWindowsUpdate = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldWindowsUpdate = True
   End If
   Err.Clear()

   'Spyware
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
   If Err 0 Then
   HoldSpyware = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldSpyware = True
   End If
   Err.Clear()

   'Internet
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
   If Err 0 Then
   HoldInternet = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldInternet = True
   End If
   Err.Clear()

   'UAC
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
   If Err 0 Then
   HoldUAC = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldUAC = True
   End If
   Err.Clear()

   'Firewall
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
   If Err 0 Then
   HoldFirewall = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldFirewall = True
   End If
   Err.Clear()

   'Virus
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
   If Err 0 Then
   HoldVirus = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldVirus = True
   End If
   Err.Clear()

   'Windows Backup
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
   If Err 0 Then
   HoldBackup = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldBackup = True
   End If
   Err.Clear()

   'Check for updates
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
   If Err 0 Then
   HoldCheckUpdates = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldCheckUpdates = True
   End If
   Err.Clear()

   'Troubleshooting
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
   If Err 0 Then
   HoldTroubleshooting = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldTroubleshooting = True
   End If
   Err.Clear()

   If HoldWindowsUpdate+HoldSpyware+HoldInternet+HoldUAC+HoldFirewall+HoldVirus+HoldBa ckup+HoldCheckUpdates+HoldTroubleshooting 0 Then
   WshShell.run “rundll32.exe shell32.dll,Control_RunDLL wscui.cpl”, 1
   Wscript.Sleep 1000
   WshShell.SendKeys(“+{TAB}”) ‘shift-tab
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“{ENTER}”)
   Wscript.Sleep 500
   WshShell.SendKeys(“{TAB}”)
   If HoldWindowsUpdate Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldSpyware Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldInternet Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldUAC Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldFirewall Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldVirus Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldBackup Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldCheckUpdates Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldTroubleshooting Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   Wscript.Sleep 500
   WshShell.SendKeys(“{ENTER}”)
   Wscript.Sleep 500
   WshShell.SendKeys “%{F4}” ‘alt-f4

   If HoldWindowsUpdate Then
   HoldReg = WshShell.RegRead (“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting”)
   If uBound(HoldReg) < 220 Then
   MsgBox "Problem bei Abschaltung von Windows Update"
   HoldProblem = True
   End If
   End If

   If HoldSpyware Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Spyware"
   HoldProblem = True
   End If
   End If

   If HoldInternet Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Internet"
   HoldProblem = True
   End If
   End If

   If HoldUAC Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von UAC"
   HoldProblem = True
   End If
   End If

   If HoldFirewall Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
   If uBound(HoldReg) < 220 Then
   MsgBox "Problem bei Abschaltung von Firewall"
   HoldProblem = True
   End If
   End If

   If HoldVirus Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Virus"
   HoldProblem = True
   End If
   End If

   If HoldBackup Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Backup"
   HoldProblem = True
   End If
   End If

   If HoldCheckUpdates Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Check Updates"
   HoldCheckUpdates = True
   End If
   End If

   If HoldTroubleshooting Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then
   MsgBox "Problem bei Abschaltung von Troubleshooting"
   HoldProblem = True
   End If
   End If

   If HoldProblem Then
   Wscript.Sleep 1000
   WshShell.run "rundll32.exe shell32.dll,Control_RunDLL wscui.cpl", 1
   Wscript.Sleep 1000
   WshShell.SendKeys("+{TAB}") 'shift-tab
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("{ENTER}")
   MsgBox "Please select options manually"
   Else
   MsgBox "Alle Meldungen im Wartungscenter sind nun deaktivert!"
   End If
   Else
   MsgBox "Es wurden keine Veränderungen im Wartungscenter vorgenommen!"
   End If
   Set WshShell = Nothing

   _______________________________________________End of first file___________________________________________
   [/spoiler]
   The Second File

   Simply copy the text below into a file
   somewhere on your PC with the name
   [spoiler id="id2" title="Enable_all_notifications_in_Windows_Action_Center.TXT"]

   _______________________________________________Begin of second File________________________________________

   Option Explicit
   Dim WshShell:Set WshShell=CreateObject("Wscript.Shell")

   On Error Resume Next
   Dim HoldReg, HoldProblem, HoldWindowsUpdate, HoldSpyware, HoldInternet, HoldUAC, HoldFirewall, HoldVirus, HoldBackup, HoldCheckUpdates, HoldTroubleshooting

   HoldProblem = True
   HoldWindowsUpdate = True
   HoldSpyware = True
   HoldInternet = True
   HoldUAC = True
   HoldFirewall = True
   HoldVirus = True
   HoldBackup = True
   HoldCheckUpdates = True
   HoldTroubleshooting = True

   Err.Clear()

   'Windows Update
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting")
   If Err 0 Then
   HoldWindowsUpdate = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldWindowsUpdate = True
   End If
   Err.Clear()

   'Spyware
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
   If Err 0 Then
   HoldSpyware = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldSpyware = True
   End If
   Err.Clear()

   'Internet
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
   If Err 0 Then
   HoldInternet = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldInternet = True
   End If
   Err.Clear()

   'UAC
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
   If Err 0 Then
   HoldUAC = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldUAC = True
   End If
   Err.Clear()

   'Firewall
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
   If Err 0 Then
   HoldFirewall = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldFirewall = True
   End If
   Err.Clear()

   'Virus
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
   If Err 0 Then
   HoldVirus = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldVirus = True
   End If
   Err.Clear()

   'Windows Backup
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
   If Err 0 Then
   HoldBackup = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldBackup = True
   End If
   Err.Clear()

   'Check for updates
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
   If Err 0 Then
   HoldCheckUpdates = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldCheckUpdates = True
   End If
   Err.Clear()

   'Troubleshooting
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
   If Err 0 Then
   HoldTroubleshooting = True
   ElseIf uBound(HoldReg) < 220 Then
   HoldTroubleshooting = True
   End If
   Err.Clear()

   If HoldWindowsUpdate+HoldSpyware+HoldInternet+HoldUAC+HoldFirewall+HoldVirus+HoldBa ckup+HoldCheckUpdates+HoldTroubleshooting 0 Then
   WshShell.run “rundll32.exe shell32.dll,Control_RunDLL wscui.cpl”, 1
   Wscript.Sleep 1000
   WshShell.SendKeys(“+{TAB}”) ‘shift-tab
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“+{TAB}”)
   WshShell.SendKeys(“{ENTER}”)
   Wscript.Sleep 500
   WshShell.SendKeys(“{TAB}”)
   If HoldWindowsUpdate Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldSpyware Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldInternet Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldUAC Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldFirewall Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldVirus Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldBackup Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldCheckUpdates Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   If HoldTroubleshooting Then
   WshShell.SendKeys(” “)
   End If
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   WshShell.SendKeys(“{TAB}”)
   Wscript.Sleep 500
   WshShell.SendKeys(“{ENTER}”)
   Wscript.Sleep 500
   WshShell.SendKeys “%{F4}” ‘alt-f4

   If HoldWindowsUpdate Then
   HoldReg = WshShell.RegRead (“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting”)
   If uBound(HoldReg) < 220 Then
   HoldProblem = True
   End If
   End If

   If HoldSpyware Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldInternet Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldUAC Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldFirewall Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
   If uBound(HoldReg) < 220 Then

   HoldProblem = True
   End If
   End If

   If HoldVirus Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldBackup Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldCheckUpdates Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldCheckUpdates = True
   End If
   End If

   If HoldTroubleshooting Then
   HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
   If uBound(HoldReg) < 100 Then

   HoldProblem = True
   End If
   End If

   If HoldProblem Then
   Wscript.Sleep 1000

   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("+{TAB}")
   WshShell.SendKeys("{ENTER}")
   MsgBox "Alle Meldungen im Wartungscenter sind nun aktivert!"
   Else
   MsgBox "Alle Meldungen im Wartungscenter sind nun deaktivert!"
   End If
   Else
   MsgBox "Es wurden keine Veränderungen im Wartungscenter vorgenommen!"
   End If
   Set WshShell = Nothing

   _____________________________________________________End of second file_____________________________________________________
   [/spoiler]
   After you copied the files you must rename the Endings of the files into "VBS"
   Via double Mousclick you can now enable or disable
   Messages in Windows Actioncenter

   The Scripts have been tested on serveral PCs und on Windows 7 and 8

   And YES they work!!!

   Note for english speeking users

   The Text in the Messageboxes can be changed without any Problem

   For Instance "Es wurden keine Veränderungen im Wartungscenter vorgenommen!"

   change to "No changes were made in the Action Center"

   Reply

   1. Hi I am getting a “incorrect character” message for line 2 character 40 when I run the disable script.

      Reply

      1. yes because this fella made a lot of mistakes in the code… he has a german keyboard and he [censored]ed up all the characters like ‘ or ” (he was using ´ and “ instead…)
         there is also another error when he wrote back up instead of backup
         aaand he also forgot to use the = when using an if istance, and vb was waiting for “then”

         …btw

         i swear i logged in just to answer you :D

         i re-wrote the code removing the errors but it doesn’t work (ofc) because EVERY windows user has a different GUID for every checkbox and his code says that all my checks are already off because he searches for the entries in a wrong regedit key, with the GUID of HIS Computer…..
         the code on his pc works perfectly but it fails on (almost) any other pc in the world…

         SO
         till now i personally still didn’t found a valid script or solution.. when i will find it i’m going to reply again

         and btw here is the “working” (at least without errors) code to (theoretically) disable them all:
         [spoiler id="spoiler20160811"]

         Option Explicit
         Dim WshShell:Set WshShell=CreateObject("Wscript.Shell")
         
         On Error Resume Next
         Dim HoldReg, HoldProblem, HoldWindowsUpdate, HoldSpyware, HoldInternet, HoldUAC, HoldFirewall, HoldVirus, HoldBackup, HoldCheckUpdates, HoldTroubleshooting
         
         HoldProblem = False
         HoldWindowsUpdate = False
         HoldSpyware = False
         HoldInternet = False
         HoldUAC = False
         HoldFirewall = False
         HoldVirus = False
         HoldBackup = False
         HoldCheckUpdates = False
         HoldTroubleshooting = False
         
         Err.Clear()
         
         'Windows Update
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting")
         If Err = 0 then
         HoldWindowsUpdate = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldWindowsUpdate = True
         End If
         Err.Clear()
         
         'Spyware
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
         If Err = 0 Then
         HoldSpyware = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldSpyware = True
         End If
         Err.Clear()
         
         'Internet
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
         If Err = 0 Then
         HoldInternet = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldInternet = True
         End If
         Err.Clear()
         
         'UAC
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
         If Err = 0 Then
         HoldUAC = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldUAC = True
         End If
         Err.Clear()
         
         'Firewall
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
         If Err = 0 Then
         HoldFirewall = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldFirewall = True
         End If
         Err.Clear()
         
         'Virus
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
         If Err = 0 Then
         HoldVirus = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldVirus = True
         End If
         Err.Clear()
         
         'Windows Backup
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
         If Err = 0 Then
         HoldBackup = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldBackup = True
         End If
         Err.Clear()
         
         'Check for updates
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
         If Err = 0 Then
         HoldCheckUpdates = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldCheckUpdates = True
         End If
         Err.Clear()
         
         'Troubleshooting
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
         If Err = 0 Then
         HoldTroubleshooting = True
         ElseIf uBound(HoldReg) < 220 Then
         HoldTroubleshooting = True
         End If
         Err.Clear()
         
         If HoldWindowsUpdate+HoldSpyware+HoldInternet+HoldUAC+HoldFirewall+HoldVirus+HoldBackup+HoldCheckUpdates+HoldTroubleshooting = 0 Then
         WshShell.run "rundll32.exe shell32.dll,Control_RunDLL wscui.cpl", 1
         Wscript.Sleep 1000
         WshShell.SendKeys("+{TAB}") 'shift-tab
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("{ENTER}")
         Wscript.Sleep 500
         WshShell.SendKeys("{TAB}")
         If HoldWindowsUpdate Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldSpyware Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldInternet Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldUAC Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldFirewall Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldVirus Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldBackup Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldCheckUpdates Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         If HoldTroubleshooting Then
         WshShell.SendKeys(" ")
         End If
         WshShell.SendKeys("{TAB}")
         WshShell.SendKeys("{TAB}")
         WshShell.SendKeys("{TAB}")
         WshShell.SendKeys("{TAB}")
         Wscript.Sleep 500
         WshShell.SendKeys("{ENTER}")
         Wscript.Sleep 500
         WshShell.SendKeys "%{F4}" 'alt-f4
         
         If HoldWindowsUpdate Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103\CheckSetting")
         If uBound(HoldReg) < 220 Then
         MsgBox "Problem bei Abschaltung von Windows Update"
         HoldProblem = True
         End If
         End If
         
         If HoldSpyware Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Spyware"
         HoldProblem = True
         End If
         End If
         
         If HoldInternet Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Internet"
         HoldProblem = True
         End If
         End If
         
         If HoldUAC Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von UAC"
         HoldProblem = True
         End If
         End If
         
         If HoldFirewall Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101\CheckSetting")
         If uBound(HoldReg) < 220 Then
         MsgBox "Problem bei Abschaltung von Firewall"
         HoldProblem = True
         End If
         End If
         
         If HoldVirus Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Virus"
         HoldProblem = True
         End If
         End If
         
         If HoldBackup Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Backup"
         HoldProblem = True
         End If
         End If
         
         If HoldCheckUpdates Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Check Updates"
         HoldCheckUpdates = True
         End If
         End If
         
         If HoldTroubleshooting Then
         HoldReg = WshShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100\CheckSetting")
         If uBound(HoldReg) < 100 Then
         MsgBox "Problem bei Abschaltung von Troubleshooting"
         HoldProblem = True
         End If
         End If
         
         If HoldProblem Then
         Wscript.Sleep 1000
         WshShell.run "rundll32.exe shell32.dll,Control_RunDLL wscui.cpl", 1
         Wscript.Sleep 1000
         WshShell.SendKeys("+{TAB}") 'shift-tab
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("+{TAB}")
         WshShell.SendKeys("{ENTER}")
         MsgBox "Please select options manually"
         Else
         MsgBox "Alle Meldungen im Wartungscenter sind nun deaktivert!"
         End If
         Else
         MsgBox "Es wurden keine Veränderungen im Wartungscenter vorgenommen!"
         End If
         Set WshShell = Nothing

         [/spoiler]

         Reply