Imports Microsoft.Win32
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim strKeyPath As String = _
        "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
        Dim strValueName = "WUServer"
        Dim rc As RegistryKey = Registry.LocalMachine.OpenSubKey(strKeyPath)
        If rc IsNot Nothing Then
            If rc.GetValue(strValueName) IsNot Nothing Then
                MsgBox(rc.GetValue(strValueName).ToString)
            Else
                MsgBox("Wert nicht vorhanden")
            End If
        Else
            MsgBox("Schlüssel nicht vorhanden")
        End If
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus