2 Computereinträge pro User

Dokumentation/uscntr_DomUser.vb

@@ -19,6 +19,8 @@
             chkEMailAktiv.Checked = DomUser.du_Email_Activated
             txtInfo.Text = DomUser.du_Info
             txtComputer.Text = DomUser.du_computer
+            txtComputer2.Text = DomUser.du_computer2
+
             txtDomKennwort.Text = DomUser.du_Kennwort
 
             txtEMailAdresse.Enabled = DomUser.du_Email_Activated
@@ -42,6 +44,7 @@
         DomUser.du_EMail = txtEMailAdresse.Text
         DomUser.du_Info = txtInfo.Text
         DomUser.du_computer = txtComputer.Text
+        DomUser.du_computer2 = txtComputer2.Text
         DomUser.du_autologoff = chkAutoLogoff.Checked
         DomUser.du_autologofftime = DateTimePicker1.Value
     End Function
@@ -147,4 +150,9 @@
     Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles rdpadmin.CheckedChanged
 
     End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnConnectRDPComputer2.Click
+        cExtProgramme.RDPConnect(txtComputer2.Text, txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True, rdpadmin.Checked)
+    End Sub
 End Class