Option Explicit '~ On Error Resume Nex RequireAdmin Dim objReg Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.100", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,135,171,43,226,227,158,117,195,190,186,180,230,33,171,175,102,200,104,172,32,164,75,165,132,6,247,195,16,54,18,36,82,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,239,72,35,207,195,37,8,133,145,141,168,233,128,165,218,252,23,17,29,210,158,145,44,123,74,235,90,244,31,142,31,60,176,0,0,0,76,138,48,17,124,232,173,159,109,238,42,101,62,74,212,12,119,17,34,81,193,100,93,198,89,65,45,17,224,53,174,252,16,120,25,13,229,6,55,178,136,255,199,139,116,183,180,92,107,224,245,9,187,8,28,166,42,244,174,223,86,229,116,200,122,140,150,75,33,18,170,199,201,213,82,188,203,184,175,211,97,244,124,165,220,152,112,41,93,109,214,142,241,218,53,95,218,161,248,10,103,3,147,204,218,121,43,40,198,138,6,112,14,171,136,111,134,76,113,246,2,137,153,175,205,55,54,81,47,189,44,199,206,235,200,0,131,226,228,229,77,204,149,214,84,32,240,193,244,60,67,209,88,192,150,116,186,26,108,137,198,71,164,179,135,211,81,91,57,97,21,98,45,202,112,203,64,0,0,0,69,160,61,221,159,47,238,107,204,9,101,80,52,42,235,140,49,204,60,193,85,129,114,66,101,48,70,131,255,33,103,228,202,85,193,250,106,231,1,25,38,144,40,208,96,17,155,212,103,180,53,103,248,46,60,251,25,219,242,82,205,127,117,162) RegWriteKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{01979c6a-42fa-414c-b8aa-eee2c8202018}.check.101" RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{11CD958A-C507-4EF3-B3F2-5FD9DFBD2C78}.check.101", "CheckSetting", "REG_BINARY", Array(35,0,65,0,67,0,66,0,108,0,111,0,98,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{852FB1F8-5CC6-4567-9C0E-7C330F8807C2}.check.100", "CheckSetting", "REG_BINARY", Array(35,0,65,0,67,0,66,0,108,0,111,0,98,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,255,255,255,255,0,0,0,0) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{852FB1F8-5CC6-4567-9C0E-7C330F8807C2}.check.101", "CheckSetting", "REG_BINARY", Array(35,0,65,0,67,0,66,0,108,0,111,0,98,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,254,7,0,0,2,0,0,0) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{945a8954-c147-4acd-923f-40c45405a658}.check.42", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,73,227,148,9,81,90,176,4,78,19,148,109,227,19,151,26,188,202,164,104,27,170,160,95,176,131,196,255,53,108,191,49,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,127,107,67,156,77,69,196,95,1,39,202,3,76,252,132,94,94,82,218,51,139,246,7,225,5,119,154,70,137,217,182,18,176,0,0,0,205,91,173,221,162,164,63,112,97,231,206,144,141,4,179,160,66,99,129,47,45,50,100,77,44,206,197,225,225,168,131,64,86,49,147,81,209,25,26,199,62,53,90,157,30,129,41,83,23,46,109,170,167,149,53,66,88,41,219,47,65,51,80,47,186,57,179,19,66,202,247,171,65,185,119,76,124,69,219,243,92,180,196,135,70,167,44,155,4,124,130,172,212,206,38,12,239,127,205,190,217,228,127,213,33,165,94,29,95,193,169,227,76,166,20,129,12,140,144,103,22,240,152,227,174,95,217,119,188,248,160,85,147,40,31,121,159,212,187,246,22,180,159,12,123,26,247,104,103,184,170,105,253,154,116,106,112,63,156,98,112,89,155,236,67,101,88,198,96,196,58,133,197,119,224,176,64,0,0,0,180,84,219,53,206,87,31,76,1,138,202,23,79,72,234,99,139,184,252,101,251,202,96,216,89,222,132,95,0,210,36,93,157,82,89,103,65,138,185,79,31,63,64,211,196,143,61,25,136,98,221,126,137,119,197,44,110,190,191,214,74,139,85,17) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{A5268B8E-7DB5-465b-BAB7-BDCDA39A394A}.check.100", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,7,250,134,26,116,11,41,207,35,10,103,56,186,96,81,62,149,246,80,16,139,64,116,99,155,91,105,29,153,146,112,49,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,33,221,161,177,175,72,254,141,75,192,36,183,222,91,116,43,36,124,145,137,117,255,214,32,194,179,13,16,135,139,178,123,48,0,0,0,139,149,138,25,100,127,49,199,26,206,41,127,45,225,5,176,49,9,179,113,44,213,128,96,35,130,195,128,182,94,227,109,205,142,32,196,139,189,66,150,112,210,78,237,89,211,235,216,64,0,0,0,230,123,51,191,42,0,62,3,24,219,11,15,170,168,89,130,110,211,230,150,230,108,102,236,198,175,219,139,90,160,190,154,204,94,184,105,25,8,141,28,29,108,245,220,39,185,171,83,109,70,69,38,30,123,8,244,145,149,230,14,167,15,248,184) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,33,204,73,134,213,98,118,58,81,208,186,208,36,251,245,204,49,152,155,6,58,198,125,162,243,241,239,178,93,112,7,37,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,191,220,46,30,51,120,223,87,204,99,240,166,134,138,108,96,235,195,18,63,171,82,229,151,79,219,177,137,36,7,107,77,48,0,0,0,234,116,34,108,77,213,209,57,159,250,33,189,206,52,144,97,49,222,104,227,146,0,26,137,21,131,31,155,122,6,105,62,223,66,58,2,243,85,48,162,106,163,143,76,45,65,94,242,64,0,0,0,84,223,232,48,113,136,215,18,102,178,169,102,22,72,52,90,55,255,42,10,146,237,108,161,142,179,200,112,41,205,31,51,182,47,243,118,147,187,149,248,46,13,39,96,8,176,107,188,80,226,177,178,137,192,134,52,75,115,37,89,3,160,254,25) RegWriteKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{DAB69A6A-4D2A-4D44-94BF-E0091898C881}.check.100" RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.100", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,236,28,213,92,173,133,124,123,237,82,114,225,145,204,192,13,50,244,90,196,208,140,94,68,188,113,211,101,144,69,186,97,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,60,112,62,83,237,147,95,179,1,231,190,139,65,27,90,42,179,122,225,6,6,138,145,240,29,201,190,183,145,64,28,196,192,0,0,0,13,20,24,179,194,140,18,230,235,118,155,0,74,10,29,90,47,221,70,156,7,221,210,170,212,168,146,189,12,84,15,67,35,242,139,58,21,246,168,238,147,241,12,72,121,60,198,7,206,0,207,185,99,73,20,39,204,163,180,187,172,145,53,67,147,63,167,14,157,220,181,208,40,83,50,28,133,220,20,120,177,182,220,7,114,24,196,70,223,5,33,12,154,223,183,177,137,1,54,193,232,69,150,86,98,203,28,83,118,128,121,245,168,30,107,69,191,200,84,5,190,129,227,210,166,248,208,29,234,120,235,64,107,108,213,29,40,218,55,20,157,151,52,61,158,140,54,53,61,222,18,52,120,227,7,225,197,53,95,126,141,28,115,167,167,254,193,146,196,234,229,131,227,204,67,35,140,222,83,163,250,237,49,64,123,179,54,124,14,222,133,117,64,0,0,0,36,227,221,160,101,6,202,44,158,91,31,129,246,248,60,31,52,123,157,102,122,226,103,109,33,151,204,227,48,172,121,246,95,191,161,162,210,50,200,228,123,54,4,92,40,98,128,133,245,21,218,242,155,125,162,59,94,204,47,73,212,133,65,52) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.101", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,155,67,7,82,252,110,180,64,6,254,222,2,73,211,136,87,213,169,60,95,121,130,19,87,89,169,36,45,104,217,55,245,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,12,6,212,91,207,18,227,163,178,193,135,87,155,97,14,53,34,215,120,122,25,127,3,92,132,72,165,228,236,124,199,53,48,0,0,0,226,225,18,161,207,111,28,232,151,1,144,48,4,211,67,24,92,91,243,118,150,211,32,197,171,181,59,20,207,135,65,74,3,65,36,146,15,94,239,125,21,235,65,60,242,191,160,29,64,0,0,0,14,19,25,52,185,168,5,87,223,60,118,33,175,185,158,18,170,7,244,124,192,121,102,99,9,54,213,208,113,137,164,85,217,26,187,95,121,47,89,162,145,37,252,149,134,184,173,169,206,254,150,17,234,199,193,209,104,248,200,123,75,182,180,37) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.102", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,211,7,131,155,189,182,132,45,200,3,166,21,108,14,41,10,49,167,217,246,190,101,211,79,140,125,58,223,63,92,222,4,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,105,195,178,194,242,49,224,102,154,1,150,221,247,31,162,53,37,235,41,180,195,121,93,66,24,226,95,25,66,212,212,205,208,0,0,0,122,199,245,240,100,116,27,82,185,43,255,223,203,117,85,73,178,211,203,81,253,76,86,101,101,187,20,96,136,142,174,195,174,229,62,209,2,218,149,156,63,249,224,3,16,138,228,70,239,0,186,146,161,129,180,152,173,213,76,97,80,18,81,193,215,208,124,31,72,211,30,217,247,19,66,77,90,158,80,120,147,249,90,216,79,134,9,191,94,97,236,74,144,130,29,208,26,218,87,156,174,22,178,202,140,193,19,54,3,225,160,129,218,68,48,241,168,254,210,140,192,117,208,121,122,42,239,222,37,1,199,162,219,3,197,1,116,213,146,97,59,107,241,227,125,183,20,191,213,103,209,239,143,63,65,154,63,180,47,202,62,64,184,42,159,161,163,239,250,117,87,240,20,42,89,114,91,21,71,178,252,176,149,131,253,195,3,248,207,194,87,242,228,152,214,12,184,143,184,201,225,60,21,170,210,191,218,44,64,0,0,0,108,205,104,252,62,131,34,74,228,230,179,35,163,159,122,70,12,188,173,188,84,101,246,101,4,201,15,63,87,251,62,127,125,237,239,130,225,19,130,245,100,2,74,37,161,10,6,220,152,156,46,150,185,212,24,165,108,235,182,12,200,145,101,238) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.103", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,52,104,62,139,147,173,184,244,162,209,231,175,140,119,211,245,29,185,217,132,127,112,100,246,133,16,26,207,168,232,219,233,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,26,147,252,153,18,243,132,211,132,218,173,83,130,105,137,185,165,231,47,165,255,205,73,33,198,174,113,201,167,102,71,212,48,0,0,0,178,203,17,187,104,108,227,39,105,155,69,155,7,178,39,36,234,254,225,249,57,226,204,163,190,63,205,196,100,85,187,229,107,209,92,219,125,133,47,250,190,86,28,129,70,153,96,139,64,0,0,0,191,180,131,78,234,65,56,134,72,252,97,62,253,10,217,122,98,111,224,177,172,29,194,7,246,105,160,122,19,161,193,27,238,255,92,120,56,210,110,72,38,148,85,195,192,141,80,28,204,42,97,104,195,237,215,121,211,38,89,46,38,103,205,123) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.104", "CheckSetting", "REG_BINARY", Array(1,0,0,0,208,140,157,223,1,21,209,17,140,122,0,192,79,194,151,235,1,0,0,0,195,12,198,67,190,139,229,77,164,68,82,154,189,39,115,90,0,0,0,0,2,0,0,0,0,0,16,102,0,0,0,1,0,0,32,0,0,0,85,139,239,15,224,95,83,23,122,217,147,186,202,118,185,93,221,136,179,0,58,84,168,43,158,243,4,169,77,48,230,117,0,0,0,0,14,128,0,0,0,2,0,0,32,0,0,0,4,21,192,49,13,66,134,212,131,116,171,25,248,132,143,58,120,38,27,164,0,172,83,155,102,74,230,22,254,20,170,225,48,0,0,0,113,85,230,0,199,156,34,225,37,211,164,218,49,24,150,204,128,58,55,74,144,168,249,83,189,130,158,18,146,71,28,237,151,238,98,59,16,27,202,31,78,229,75,118,236,24,142,50,64,0,0,0,202,211,178,215,182,95,219,252,200,203,113,208,95,193,188,70,71,166,194,39,61,199,19,5,95,125,17,213,150,154,173,230,37,137,47,143,211,179,43,42,203,198,178,91,55,34,150,214,153,232,152,201,92,132,170,189,201,9,106,5,116,184,180,135) RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Action Center\Checks\{E8433B72-5842-4d43-8645-BC2C35960837}.check.106", "CheckSetting", "REG_BINARY", Array(35,0,65,0,67,0,66,0,108,0,111,0,98,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,58,4,59,4,0,0,93,0) Function RegWrite(reg_keyname, reg_valuename,reg_type,ByVal reg_value) Dim aRegKey, Return aRegKey = RegSplitKey(reg_keyname) If IsArray(aRegKey) = 0 Then RegWrite = 0 Exit Function End If Return = RegWriteKey(aRegKey) If Return = 0 Then RegWrite = 0 Exit Function End If Select Case reg_type Case "REG_SZ" Return = objReg.SetStringValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) Case "REG_EXPAND_SZ" Return = objReg.SetExpandedStringValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) Case "REG_BINARY" If IsArray(reg_value) = 0 Then reg_value = Array() Return = objReg.SetBinaryValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) Case "REG_DWORD" If IsNumeric(reg_value) = 0 Then reg_value = 0 Return = objReg.SetDWORDValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) Case "REG_MULTI_SZ" If IsArray(reg_value) = 0 Then If Len(reg_value) = 0 Then reg_value = Array() Else reg_value = Array(reg_value) End If End If Return = objReg.SetMultiStringValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) 'Case "REG_QWORD" 'Return = oReg.SetQWORDValue(aRegKey(0),aRegKey(1),reg_valuename,reg_value) Case Else RegWrite = 0 Exit Function End Select If (Return <> 0) Or (Err.Number <> 0) Then RegWrite = 0 Exit Function End If RegWrite = 1 End Function Function RegWriteKey(RegKeyName) Dim Return If IsArray(RegKeyName) = 0 Then RegKeyName = RegSplitKey(RegKeyName) End If If (IsArray(RegKeyName) = 0) Or (UBound(RegKeyName) <> 1) Then RegWriteKey = 0 Exit Function End If Return = objReg.CreateKey(RegKeyName(0),RegKeyName(1)) If (Return <> 0) Or (Err.Number <> 0) Then RegWriteKey = 0 Exit Function End If RegWriteKey = 1 End Function Function RegDelete(reg_keyname, reg_valuename) Dim Return,aRegKey aRegKey = RegSplitKey(reg_keyname) If IsArray(aRegKey) = 0 Then RegDelete = 0 Exit Function End If Return = objReg.DeleteValue(aRegKey(0),aRegKey(1),reg_valuename) If (Return <> 0) And (Err.Number <> 0) Then RegDelete = 0 Exit Function End If RegDelete = 1 End Function Function RegDeleteKey(reg_keyname) Dim Return,aRegKey aRegKey = RegSplitKey(reg_keyname) If IsArray(aRegKey) = 0 Then RegDeleteKey = 0 Exit Function End If 'On Error Resume Next Return = RegDeleteSubKey(aRegKey(0),aRegKey(1)) 'On Error Goto 0 If Return = 0 Then RegDeleteKey = 0 Exit Function End If RegDeleteKey = 1 End Function Function RegDeleteSubKey(strRegHive, strKeyPath) Dim Return,arrSubkeys,strSubkey objReg.EnumKey strRegHive, strKeyPath, arrSubkeys If IsArray(arrSubkeys) <> 0 Then For Each strSubkey In arrSubkeys RegDeleteSubKey strRegHive, strKeyPath & "\" & strSubkey Next End If Return = objReg.DeleteKey(strRegHive, strKeyPath) If (Return <> 0) Or (Err.Number <> 0) Then RegDeleteSubKey = 0 Exit Function End If RegDeleteSubKey = 1 End Function Function RegSplitKey(RegKeyName) Dim strHive, strInstr, strLeft strInstr=InStr(RegKeyName,"\") If strInstr = 0 Then Exit Function strLeft=left(RegKeyName,strInstr-1) Select Case strLeft Case "HKCR","HKEY_CLASSES_ROOT" strHive = &H80000000 Case "HKCU","HKEY_CURRENT_USER" strHive = &H80000001 Case "HKLM","HKEY_LOCAL_MACHINE" strHive = &H80000002 Case "HKU","HKEY_USERS" strHive = &H80000003 Case "HKCC","HKEY_CURRENT_CONFIG" strHive = &H80000005 Case Else Exit Function End Select RegSplitKey = Array(strHive,Mid(RegKeyName,strInstr+1)) End Function Function RequireAdmin() Dim reg_valuename, WShell, Cmd, CmdLine, I GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")_ .EnumValues &H80000003, "S-1-5-19\Environment", reg_valuename If IsArray(reg_valuename) <> 0 Then RequireAdmin = 1 Exit Function End If Set Cmd = WScript.Arguments For I = 0 to Cmd.Count - 1 If Cmd(I) = "/admin" Then Wscript.Echo "To script you must have administrator rights!" 'RequireAdmin = 0 'Exit Function WScript.Quit End If CmdLine = CmdLine & Chr(32) & Chr(34) & Cmd(I) & Chr(34) Next CmdLine = CmdLine & Chr(32) & Chr(34) & "/admin" & Chr(34) Set WShell= WScript.CreateObject( "WScript.Shell") CreateObject("Shell.Application").ShellExecute WShell.ExpandEnvironmentStrings(_ "%SystemRoot%\System32\WScript.exe"),Chr(34) & WScript.ScriptFullName & Chr(34) & CmdLine, "", "runas" WScript.Quit End Function