2 Computereinträge pro User

2026-04-28 13:19:10 +02:00
parent d6cf889f5b
commit 6c572e110e
7 changed files with 59 additions and 13 deletions
--- a/Dokumentation/Classes/cDomUser.vb
+++ b/Dokumentation/Classes/cDomUser.vb
@@ -19,6 +19,8 @@ Public Class cDomUser
    Property mit_username As String = ""
    Property mit_pwd As String = ""
    Property du_computer As String = ""
+    Property du_computer2 As String = ""
+
    '-----------------------------------------
    Dim SelectItems As String = ""
    Public Exist As Boolean = False
@@ -49,6 +51,7 @@ Public Class cDomUser
        list.Add(New SQLVariable("mit_username", mit_username))
        list.Add(New SQLVariable("mit_pwd", mit_pwd))
        list.Add(New SQLVariable("du_computer", du_computer))
+        list.Add(New SQLVariable("du_computer2", du_computer2))
        Return list
    End Function

--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -1796,10 +1796,7 @@ exit"
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Me.Cursor = Cursors.WaitCursor
-
-        SMB.Show()
-        Me.Cursor = Cursors.Default
+        cExtProgramme.startlink("https://syncluster02.verag.ost.dmn:5001/")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -1849,7 +1846,7 @@ exit"
    End Sub

    Private Sub ProxMoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProxMoxToolStripMenuItem.Click
-        cExtProgramme.startlink("https://192.168.0.242:8006/")
+        cExtProgramme.startlink("https://192.168.0.20:8006/")
    End Sub

    Private Sub PortainerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PortainerToolStripMenuItem.Click
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -319,7 +319,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.15 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.19 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -137,7 +137,7 @@
    <value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>0.0.2.15</value>
+    <value>0.0.2.19</value>
  </data>
  <data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
--- a/Dokumentation/SMB.vb
+++ b/Dokumentation/SMB.vb
@@ -2,7 +2,7 @@

 Public Class SMB

-    Property fileserver As String = "pandorasbox.verag.ost.dmn"
+    Property fileserver As String = "stor10.verag.ost.dmn"
    Dim ds As New DataSet
    Private Sub SMB_Load(sender As Object, e As EventArgs) Handles Me.Load
        Class1.EnableDoubleBuffered(dgv)
@@ -31,7 +31,7 @@ Public Class SMB
            .AutoResizeColumn(2)
            .AutoResizeColumn(3)
        End With
-        counter.Text = dgv.Rows.Count
+        counter.Text = fileserver & " " & dgv.Rows.Count

    End Function

--- a/Dokumentation/uscntr_DomUser.Designer.vb
+++ b/Dokumentation/uscntr_DomUser.Designer.vb
@@ -58,6 +58,9 @@ Partial Class uscntr_DomUser
        Me.chkRDP2TS = New System.Windows.Forms.CheckBox()
        Me.btnAMT = New System.Windows.Forms.Button()
        Me.rdpadmin = New System.Windows.Forms.CheckBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtComputer2 = New System.Windows.Forms.TextBox()
+        Me.btnConnectRDPComputer2 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'cmdSave
@@ -322,7 +325,7 @@ Partial Class uscntr_DomUser
        '
        Me.chkAutoLogoff.AutoSize = True
        Me.chkAutoLogoff.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 290)
+        Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 376)
        Me.chkAutoLogoff.Name = "chkAutoLogoff"
        Me.chkAutoLogoff.Size = New System.Drawing.Size(78, 17)
        Me.chkAutoLogoff.TabIndex = 164
@@ -334,7 +337,7 @@ Partial Class uscntr_DomUser
        '
        Me.DateTimePicker1.Enabled = False
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time
-        Me.DateTimePicker1.Location = New System.Drawing.Point(103, 287)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(103, 373)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(82, 20)
        Me.DateTimePicker1.TabIndex = 165
@@ -346,7 +349,7 @@ Partial Class uscntr_DomUser
        Me.cmd3Uhr.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.cmd3Uhr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmd3Uhr.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmd3Uhr.Location = New System.Drawing.Point(191, 287)
+        Me.cmd3Uhr.Location = New System.Drawing.Point(191, 373)
        Me.cmd3Uhr.Name = "cmd3Uhr"
        Me.cmd3Uhr.Size = New System.Drawing.Size(66, 20)
        Me.cmd3Uhr.TabIndex = 166
@@ -430,12 +433,44 @@ Partial Class uscntr_DomUser
        Me.rdpadmin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.rdpadmin.UseVisualStyleBackColor = True
        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(5, 288)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(58, 13)
+        Me.Label5.TabIndex = 177
+        Me.Label5.Text = "Computer2"
+        '
+        'txtComputer2
+        '
+        Me.txtComputer2.Location = New System.Drawing.Point(8, 304)
+        Me.txtComputer2.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
+        Me.txtComputer2.Name = "txtComputer2"
+        Me.txtComputer2.Size = New System.Drawing.Size(300, 20)
+        Me.txtComputer2.TabIndex = 176
+        '
+        'btnConnectRDPComputer2
+        '
+        Me.btnConnectRDPComputer2.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnConnectRDPComputer2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.btnConnectRDPComputer2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnConnectRDPComputer2.Location = New System.Drawing.Point(118, 330)
+        Me.btnConnectRDPComputer2.Name = "btnConnectRDPComputer2"
+        Me.btnConnectRDPComputer2.Size = New System.Drawing.Size(104, 23)
+        Me.btnConnectRDPComputer2.TabIndex = 175
+        Me.btnConnectRDPComputer2.Text = "RDP Fenster"
+        Me.btnConnectRDPComputer2.UseVisualStyleBackColor = False
+        '
        'uscntr_DomUser
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoSize = True
        Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.txtComputer2)
+        Me.Controls.Add(Me.btnConnectRDPComputer2)
        Me.Controls.Add(Me.rdpadmin)
        Me.Controls.Add(Me.btnAMT)
        Me.Controls.Add(Me.chkRDP2TS)
@@ -473,7 +508,7 @@ Partial Class uscntr_DomUser
        Me.Controls.Add(Me.ChkKennwortAnzeigen)
        Me.Controls.Add(Me.cmdSave)
        Me.Name = "uscntr_DomUser"
-        Me.Size = New System.Drawing.Size(678, 369)
+        Me.Size = New System.Drawing.Size(678, 413)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -515,4 +550,7 @@ Partial Class uscntr_DomUser
    Friend WithEvents chkRDP2TS As CheckBox
    Friend WithEvents btnAMT As Button
    Friend WithEvents rdpadmin As CheckBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtComputer2 As TextBox
+    Friend WithEvents btnConnectRDPComputer2 As Button
 End Class
--- a/Dokumentation/uscntr_DomUser.vb
+++ b/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