RDP auch auf Computer

Dokumentation/uscntr_DomUser.vb

@@ -18,6 +18,7 @@
             txtDomaene.Text = DomUser.du_Dom
             chkEMailAktiv.Checked = DomUser.du_Email_Activated
             txtInfo.Text = DomUser.du_Info
+            txtComputer.Text = DomUser.du_computer
             txtDomKennwort.Text = DomUser.du_Kennwort
 
             txtEMailAdresse.Enabled = DomUser.du_Email_Activated
@@ -40,6 +41,7 @@
         DomUser.du_Email_Activated = chkEMailAktiv.Checked
         DomUser.du_EMail = txtEMailAdresse.Text
         DomUser.du_Info = txtInfo.Text
+        DomUser.du_computer = txtComputer.Text
         DomUser.du_autologoff = chkAutoLogoff.Checked
         DomUser.du_autologofftime = DateTimePicker1.Value
     End Function
@@ -119,10 +121,22 @@
     End Sub
 
     Private Sub btnRDP_Click(sender As Object, e As EventArgs) Handles btnRDP.Click
-        cExtProgramme.RDPConnect("rdpintern.verag.ag", txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
+        cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
-        cExtProgramme.RDPConnect("rdpintern.verag.ag", txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
+        cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
     End Sub
+
+    Private Function SelectRDPTarget() As String
+        If DomUser.du_computer.Length > 0 Then
+            If chkRDP2TS.Checked Then
+                Return "rdpintern.verag.ag"
+            Else
+                Return DomUser.du_computer
+            End If
+        Else
+            Return "rdpintern.verag.ag"
+        End If
+    End Function
 End Class