Private Sub btnRRDPdeaktivieren_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles btnRRDPdeaktivieren.Click
 
 
        '######################################################################
        ' ##############
        '                                                                       
        '             '
        '                        REMOTE Registry Key setzen - RDP  deaktivieren 
        '             '
        '                                      XP/2003/Vista/2008               
        '             '
        '######################################################################
        ' ##############
 
 
 
        'Variable für Vista/2008
        Dim RemVistaRegKeyDeAktivieren As RegistryKey
        Dim strVistaRemRdpStatus As String = txtEingabe.Text
 
        'Variable für XP/2003
        Dim RemRegKeyDeAktivieren As RegistryKey
        Dim strRemRdpStatus As String = txtEingabe.Text
 
 
        'Vista/2008
        RemVistaRegKeyDeAktivieren = RegistryKey.OpenRemoteBaseKey( _
          RegistryHive.LocalMachine, strVistaRemRdpStatus)
        RemVistaRegKeyDeAktivieren = RemVistaRegKeyDeAktivieren.OpenSubKey( _
        "System\\CurrentControlSet\\Control\\Terminal" & _
        "Server\\WinStations\\RDP-Tcp", True)
        strVistaRemRdpStatus = RemVistaRegKeyDeAktivieren.GetValue( _
        "UserAuthentication")
 
 
        'XP/2003
        RemRegKeyDeAktivieren = RegistryKey.OpenRemoteBaseKey( _
          RegistryHive.LocalMachine, strRemRdpStatus)
        RemRegKeyDeAktivieren = RemRegKeyDeAktivieren.OpenSubKey( _
        "System\\CurrentControlSet\\Control\\Terminal Server", True)
        strRemRdpStatus = RemRegKeyDeAktivieren.GetValue("fDenyTSConnections")
 
 
        Select Case System.Environment.OSVersion.Version.Minor
            Case 0
                RemVistaRegKeyDeAktivieren.SetValue("UserAuthentication", 0)
            Case 2
                RemRegKeyDeAktivieren.SetValue("fDenyTSConnections", 1)
            Case 1
                RemRegKeyDeAktivieren.SetValue("fDenyTSConnections", 1)
            Case Else
                MessageBox.Show("Info: Minor Value nicht 0,1 oder 2!")
        End Select
 
    End Sub