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

Private sub Test()
strKeyPath = "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WUServer"
strValue = "http://wsus01:8530"
 
If Not isRegKey(strKeyPath & "\" & strValueName, strValue) Then
     MsgBox ("Key Not Found")
Else
     MsgBox ("WSUS ist eingetragen!")
End If
End Sub
Private Function isRegKey(ByVal sRegPath As String, ByVal sValue As String) As _
  Boolean
Dim ws As Object
 
Set ws = CreateObject("WScript.Shell")
isRegKey = (sValue = ws.RegRead(sRegPath))
End Function

        strValue = "http://wsus01:8530"
 
        objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
          strValueName, strValue)
 
        If isNull(strValue) Then' Eigentlich immer False, oder?
            MsgBox("Key Not Found")
        Else
            MessageBox.Show("WSUS ist eingetragen!", "Settings")
        End If

       Dim sErgebnis as String
 
        sErgebnis=objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
          strValueName, strValue)
 
        If String.IsNullOrEmpty(sErgebnis) Then
            MsgBox("Key Not Found")
        Else
            MessageBox.Show("WSUS ist eingetragen!", "Settings")
        End If

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

MFG
Pedamo