Feedback

VB - MS Security-Center Update Monitoring

Veröffentlicht von am 27.12.2006
(2 Bewertungen)
Die Funktion ändert das Verhalten der Update Benachrichtigungs Settings.

Manchmal ist es nicht erwünscht, dass Systeme Updates durchführen. Trotzdem warnt das MS Sec.-Center, dass Üpdates vorhanden sind.

Will man diese Anzeige/Info nicht, so kann man dies hiermit schnell ändern.
    ''' <summary>
    ''' Der Wert muss als Integer uebergeben werden, damit
    ''' in der Registrey auch ein REG_DWORD geschrieben 
    ''' wird
    ''' </summary>
    ''' <param name="YesOrNo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>

Function DisableUpdatesNotification(ByVal YesOrNo As Integer) As Boolean
        Try
            Select Case YesOrNo
                Case Is = 1
                    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center", "UpdatesDisableNotify", YesOrNo)
                    MessageBox.Show("... completed successfully" & vbCrLf & "Please reboot system.", _
                                    "Reg. Manipulation ...", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Case Is = 0
                    Try
                        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center", "UpdatesDisableNotify", YesOrNo)
                        MessageBox.Show("... completed successfully" & vbCrLf & "Please reboot system.", _
                                        "Reg. Manipulation ...", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Catch ex As Exception
                        MessageBox.Show(ex.Message, "Reg. Manipulation failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
            End Select


        Catch ex As Exception
            MessageBox.Show(ex.Message, "Reg. Manipulation failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim YesOrNo As Integer = InputBox("Bitte geben Sie an, ob das Monitoring der Windows Updates aktiv sein soll." & _
                                          vbCrLf & "0 = AKTIV" & vbCrLf & "1 = NICHT AKTIV", "Firewall-Monitoring", _
                                          "0")


        DisableUpdatesNotification(YesOrNo)


End Sub
Abgelegt unter Updates, Monitoring.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!