Private Sub Button240_Click(sender As Object, e As EventArgs) Handles _
      Button240.Click
 
        Const HKEY_LOCAL_MACHINE = &H80000002
 
        strComputer = "."
        objRegistry = GetObject("winmgmts:\\" & _
            strComputer & "\root\default:StdRegProv")
 
        strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
        strValueName = "WUServer"
        strValue = "http://wsus01:8530"
        objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
          strValueName, strValue)
 
        If isNull(strValue) Then
            MsgBox("Key Not Found")
        Else
            MessageBox.Show("WSUS ist eingetragen!", "Settings")
        End If
 
    End Sub

MFG
Pedamo