PRTG Temperaturen der Serverräume jetzt per SQL anpassbar

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
 

Dokumentation/Classes/cHost.vb

@@ -27,6 +27,7 @@ Public Class cHost
     Property SSHPort As Decimal = 22
     Property AnydeskID As String = ""
     Property AnydeskPassword As String = ""
+    Property DocMostURL As String = ""
 
 
 
@@ -60,6 +61,7 @@ Public Class cHost
         list.Add(New SQLVariable("SSHPort", SSHPort))
         list.Add(New SQLVariable("AnydeskID", AnydeskID))
         list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword))
+        list.Add(New SQLVariable("DocMostURL", DocmostURL))
         Return list
 
     End Function
@@ -92,6 +94,7 @@ Public Class cHost
         list.Add(New SQLVariable("SSHPort", SSHPort))
         list.Add(New SQLVariable("AnydeskID", AnydeskID))
         list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword))
+        list.Add(New SQLVariable("DocMostURL", DocMostURL))
         Return list
 
     End Function
@@ -123,6 +126,7 @@ Public Class cHost
         Me.SSHPort = 22
         Me.AnydeskID = ""
         Me.AnydeskPassword = ""
+        Me.DocMostURL = ""
     End Function
 
     Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
@@ -312,6 +316,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
         newhost.SSHPort = Me.SSHPort
         newhost.AnydeskID = Me.AnydeskID
         newhost.AnydeskPassword = Me.AnydeskPassword
+        newhost.DocMostURL = Me.DocMostURL
 
         Dim update, where As String
         getUpdateCmd(update, where, "", "", newhost.Linked, newhost)

Dokumentation/Classes/cSQL.vb

@@ -178,6 +178,18 @@ Public Class cSQL
         con.Close()
     End Sub
 
+    Public Shared Function sql_simple_request(db As String, table As String, WO As String) As String
+        Dim ds As New DataSet
+        Dim Antwort As String
+        cSQL.SQL2DS($"SELECT Parameter FROM [{db}].[dbo].[{table}] WHERE Name = '{WO}'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            Antwort = ds.Tables(0).Rows(0).Item(0).ToString
+            Return Antwort
+        End If
+
+        ds.Clear()
+    End Function
+
 
 End Class
 

Dokumentation/Main.Designer.vb

@@ -24,9 +24,9 @@ Partial Class Main
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.lblRufbereitschaft = New System.Windows.Forms.Label()
@@ -81,6 +81,7 @@ Partial Class Main
         Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FirewallToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DocmostToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.lblTempServerraum15 = New System.Windows.Forms.Label()
         Me.lblTempServerraum100 = New System.Windows.Forms.Label()
@@ -140,7 +141,6 @@ Partial Class Main
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer_Temperatur = New System.Windows.Forms.Timer(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.DocmostToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -225,7 +225,7 @@ Partial Class Main
         Me.Button3.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.Button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Image = Global.Doku.My.Resources.Resources.mstsc1
+        Me.Button3.Image = Global.DOKU.My.Resources.Resources.mstsc1
         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button3.Location = New System.Drawing.Point(17, 34)
         Me.Button3.Name = "Button3"
@@ -239,7 +239,7 @@ Partial Class Main
         Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Image = Global.Doku.My.Resources.Resources.Netzwerk20
+        Me.Button2.Image = Global.DOKU.My.Resources.Resources.Netzwerk20
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button2.Location = New System.Drawing.Point(17, 67)
         Me.Button2.Name = "Button2"
@@ -265,7 +265,7 @@ Partial Class Main
         'picAVISOMessenger
         '
         Me.picAVISOMessenger.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.picAVISOMessenger.BackgroundImage = Global.Doku.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessenger.BackgroundImage = Global.DOKU.My.Resources.Resources.aviso_messenger
         Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
         Me.picAVISOMessenger.Location = New System.Drawing.Point(427, 40)
@@ -279,7 +279,7 @@ Partial Class Main
         Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnTSSitzungen.Image = Global.Doku.My.Resources.Resources.external_content_duckduckgo_com
+        Me.btnTSSitzungen.Image = Global.DOKU.My.Resources.Resources.external_content_duckduckgo_com
         Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnTSSitzungen.Location = New System.Drawing.Point(139, 68)
         Me.btnTSSitzungen.Name = "btnTSSitzungen"
@@ -324,7 +324,7 @@ Partial Class Main
         Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnBenutzerverwaltung.Image = Global.Doku.My.Resources.Resources.Admin20
+        Me.btnBenutzerverwaltung.Image = Global.DOKU.My.Resources.Resources.Admin20
         Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(139, 34)
         Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
@@ -505,7 +505,7 @@ Partial Class Main
         Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.Doku.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
+        Me.Button1.Image = Global.DOKU.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.Location = New System.Drawing.Point(150, 70)
         Me.Button1.Name = "Button1"
@@ -668,6 +668,12 @@ Partial Class Main
         Me.FirewallToolStripMenuItem.Size = New System.Drawing.Size(59, 20)
         Me.FirewallToolStripMenuItem.Text = "Firewall"
         '
+        'DocmostToolStripMenuItem
+        '
+        Me.DocmostToolStripMenuItem.Name = "DocmostToolStripMenuItem"
+        Me.DocmostToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
+        Me.DocmostToolStripMenuItem.Text = "Docmost"
+        '
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -715,7 +721,7 @@ Partial Class Main
         Me.btnSync.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnSync.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.btnSync.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSync.Image = Global.Doku.My.Resources.Resources.sign_sync_icon_34357
+        Me.btnSync.Image = Global.DOKU.My.Resources.Resources.sign_sync_icon_34357
         Me.btnSync.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnSync.Location = New System.Drawing.Point(51, 613)
         Me.btnSync.Name = "btnSync"
@@ -739,7 +745,7 @@ Partial Class Main
         Me.btnNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnNeu.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnNeu.Image = Global.Doku.My.Resources.Resources.Bearbeiten20
+        Me.btnNeu.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20
         Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnNeu.Location = New System.Drawing.Point(25, 476)
         Me.btnNeu.Name = "btnNeu"
@@ -795,7 +801,7 @@ Partial Class Main
         Me.CmdNWDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmdNWDateien.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdNWDateien.Image = Global.Doku.My.Resources.Resources.Folder20
+        Me.CmdNWDateien.Image = Global.DOKU.My.Resources.Resources.Folder20
         Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11)
         Me.CmdNWDateien.Name = "CmdNWDateien"
@@ -809,7 +815,7 @@ Partial Class Main
         Me.CmdNetzwerkbearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmdNetzwerkbearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdNetzwerkbearbeiten.Image = Global.Doku.My.Resources.Resources.Netzwerk20
+        Me.CmdNetzwerkbearbeiten.Image = Global.DOKU.My.Resources.Resources.Netzwerk20
         Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45)
         Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten"
@@ -823,7 +829,7 @@ Partial Class Main
         Me.CmDBearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmDBearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmDBearbeiten.Image = Global.Doku.My.Resources.Resources.Bearbeiten20
+        Me.CmDBearbeiten.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20
         Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 442)
         Me.CmDBearbeiten.Name = "CmDBearbeiten"
@@ -837,7 +843,7 @@ Partial Class Main
         Me.CmdFiles.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmdFiles.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdFiles.Image = Global.Doku.My.Resources.Resources.Folder20
+        Me.CmdFiles.Image = Global.DOKU.My.Resources.Resources.Folder20
         Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.CmdFiles.Location = New System.Drawing.Point(25, 408)
         Me.CmdFiles.Name = "CmdFiles"
@@ -860,7 +866,7 @@ Partial Class Main
         Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmdLink.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdLink.Image = Global.Doku.My.Resources.Resources.Link20
+        Me.CmdLink.Image = Global.DOKU.My.Resources.Resources.Link20
         Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.CmdLink.Location = New System.Drawing.Point(25, 374)
         Me.CmdLink.Name = "CmdLink"
@@ -925,38 +931,38 @@ Partial Class Main
         Me.DgVMain.AllowUserToDeleteRows = False
         Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DgVMain.DefaultCellStyle = DataGridViewCellStyle5
+        Me.DgVMain.DefaultCellStyle = DataGridViewCellStyle2
         Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.DgVMain.Location = New System.Drawing.Point(200, 130)
         Me.DgVMain.MultiSelect = False
         Me.DgVMain.Name = "DgVMain"
         Me.DgVMain.ReadOnly = True
         Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.DgVMain.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.DgVMain.RowHeadersVisible = False
         Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.DgVMain.Size = New System.Drawing.Size(876, 708)
@@ -1204,12 +1210,6 @@ Partial Class Main
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'DocmostToolStripMenuItem
-        '
-        Me.DocmostToolStripMenuItem.Name = "DocmostToolStripMenuItem"
-        Me.DocmostToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
-        Me.DocmostToolStripMenuItem.Text = "Docmost"
-        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Dokumentation/Main.resx

@@ -117,9 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>33, 15</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -280,8 +277,8 @@
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1156, 17</value>
   </metadata>
-  <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>True</value>
+    <value>33, 15</value>
   </metadata>
   <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>

Dokumentation/Main.vb

@@ -675,9 +675,11 @@ Public Class Main
 
     End Sub
     Public Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
+        Dim text As String
-        Dim ds As New DataSet
+
-        cSMB.obj2DS(ps, ds, "SMB")
+        text = cSQL.sql_simple_request("Doku", "TbL_Dienste", "Wartung")
+
+        MsgBox(text)
 
     End Sub
 
@@ -1329,8 +1331,11 @@ exit"
         Dim prtg As New cPRTG()
 
         ' Aufgaben parallel starten
-        Dim task1 = prtg.getValuefromPRTG("8208", 9)
+        'Dim task1 = prtg.getValuefromPRTG("8208", 9)
-        Dim task2 = prtg.getValuefromPRTG("8223", 9)
+        'Dim task2 = prtg.getValuefromPRTG("8223", 9)
+
+        Dim task1 = prtg.getValuefromPRTG(cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum100_PRTG_ID"), cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum100_Kanal"))
+        Dim task2 = prtg.getValuefromPRTG(cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum15_PRTG_ID"), cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum15_Kanal"))
 
         ' Ergebnisse abwarten
         Dim result1 = Await task1
@@ -1796,10 +1801,7 @@ exit"
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Me.Cursor = Cursors.WaitCursor
+        cExtProgramme.startlink("https://syncluster02.verag.ost.dmn:5001/")
-
-        SMB.Show()
-        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -1849,7 +1851,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
@@ -1910,6 +1912,11 @@ exit"
         cExtProgramme.startlink("https://docmost.it.verag.ag")
     End Sub
 
+    Private Async Sub lblTempServerraum15_Click(sender As Object, e As EventArgs) Handles lblTempServerraum15.Click, lblTempServerraum100.Click
+
+        Await AktualisiereTemperaturenAsync()
+    End Sub
+
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
 
         Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked

Dokumentation/My 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.21 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My 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.21</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>

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
 

Dokumentation/frmHostBearbeiten.Designer.vb

@@ -75,6 +75,7 @@ Partial Class frmHostBearbeiten
         Me.CmdDelete = New System.Windows.Forms.Button()
         Me.TxtBenutzername = New System.Windows.Forms.TextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btn_IntelAMT = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.txtAnydesk = New System.Windows.Forms.TextBox()
         Me.Label15 = New System.Windows.Forms.Label()
@@ -100,7 +101,9 @@ Partial Class frmHostBearbeiten
         Me.PanFirewall = New System.Windows.Forms.Panel()
         Me.PanSlaves = New System.Windows.Forms.Panel()
         Me.PanNavTop = New System.Windows.Forms.Panel()
-        Me.btn_IntelAMT = New System.Windows.Forms.Button()
+        Me.cmdDocMost = New System.Windows.Forms.Button()
+        Me.txtDocMostURL = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
         Me.ContextMenuStrip3.SuspendLayout()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -563,6 +566,9 @@ Partial Class frmHostBearbeiten
         'Panel1
         '
         Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip3
+        Me.Panel1.Controls.Add(Me.txtDocMostURL)
+        Me.Panel1.Controls.Add(Me.Label17)
+        Me.Panel1.Controls.Add(Me.cmdDocMost)
         Me.Panel1.Controls.Add(Me.btn_IntelAMT)
         Me.Panel1.Controls.Add(Me.Button3)
         Me.Panel1.Controls.Add(Me.txtAnydesk)
@@ -628,6 +634,18 @@ Partial Class frmHostBearbeiten
         Me.Panel1.Size = New System.Drawing.Size(643, 588)
         Me.Panel1.TabIndex = 137
         '
+        'btn_IntelAMT
+        '
+        Me.btn_IntelAMT.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btn_IntelAMT.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.btn_IntelAMT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_IntelAMT.Location = New System.Drawing.Point(332, 463)
+        Me.btn_IntelAMT.Name = "btn_IntelAMT"
+        Me.btn_IntelAMT.Size = New System.Drawing.Size(96, 23)
+        Me.btn_IntelAMT.TabIndex = 158
+        Me.btn_IntelAMT.Text = "IntelAMT"
+        Me.btn_IntelAMT.UseVisualStyleBackColor = False
+        '
         'Button3
         '
         Me.Button3.BackColor = System.Drawing.Color.SkyBlue
@@ -705,7 +723,7 @@ Partial Class frmHostBearbeiten
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Button1.ForeColor = System.Drawing.Color.Red
-        Me.Button1.Image = Global.Doku.My.Resources.Resources.mstsc1
+        Me.Button1.Image = Global.DOKU.My.Resources.Resources.mstsc1
         Me.Button1.Location = New System.Drawing.Point(271, 340)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(32, 32)
@@ -734,7 +752,7 @@ Partial Class frmHostBearbeiten
         Me.cmdRDP.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.cmdRDP.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
         Me.cmdRDP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdRDP.Image = Global.Doku.My.Resources.Resources.mstsc1
+        Me.cmdRDP.Image = Global.DOKU.My.Resources.Resources.mstsc1
         Me.cmdRDP.Location = New System.Drawing.Point(231, 340)
         Me.cmdRDP.Name = "cmdRDP"
         Me.cmdRDP.Size = New System.Drawing.Size(32, 32)
@@ -746,7 +764,7 @@ Partial Class frmHostBearbeiten
         Me.cmdPutty.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.cmdPutty.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
         Me.cmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdPutty.Image = Global.Doku.My.Resources.Resources.ico_putty_exe0001
+        Me.cmdPutty.Image = Global.DOKU.My.Resources.Resources.ico_putty_exe0001
         Me.cmdPutty.Location = New System.Drawing.Point(85, 339)
         Me.cmdPutty.Name = "cmdPutty"
         Me.cmdPutty.Size = New System.Drawing.Size(32, 32)
@@ -770,7 +788,7 @@ Partial Class frmHostBearbeiten
         '
         Me.txtTeamviewer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
         Me.txtTeamviewer.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
-        Me.txtTeamviewer.Location = New System.Drawing.Point(332, 525)
+        Me.txtTeamviewer.Location = New System.Drawing.Point(6, 517)
         Me.txtTeamviewer.Name = "txtTeamviewer"
         Me.txtTeamviewer.Size = New System.Drawing.Size(219, 20)
         Me.txtTeamviewer.TabIndex = 140
@@ -778,7 +796,7 @@ Partial Class frmHostBearbeiten
         'Label12
         '
         Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(329, 509)
+        Me.Label12.Location = New System.Drawing.Point(3, 501)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(76, 13)
         Me.Label12.TabIndex = 143
@@ -786,7 +804,7 @@ Partial Class frmHostBearbeiten
         '
         'txtTVKennwort
         '
-        Me.txtTVKennwort.Location = New System.Drawing.Point(332, 565)
+        Me.txtTVKennwort.Location = New System.Drawing.Point(6, 557)
         Me.txtTVKennwort.Name = "txtTVKennwort"
         Me.txtTVKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
         Me.txtTVKennwort.Size = New System.Drawing.Size(300, 20)
@@ -795,7 +813,7 @@ Partial Class frmHostBearbeiten
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(329, 548)
+        Me.Label13.Location = New System.Drawing.Point(3, 540)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(66, 13)
         Me.Label13.TabIndex = 144
@@ -804,7 +822,7 @@ Partial Class frmHostBearbeiten
         'chkTeamViewerKennwortAnzeigen
         '
         Me.chkTeamViewerKennwortAnzeigen.AutoSize = True
-        Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(401, 548)
+        Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(75, 540)
         Me.chkTeamViewerKennwortAnzeigen.Name = "chkTeamViewerKennwortAnzeigen"
         Me.chkTeamViewerKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
         Me.chkTeamViewerKennwortAnzeigen.TabIndex = 141
@@ -887,17 +905,35 @@ Partial Class frmHostBearbeiten
         Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
         Me.PanNavTop.TabIndex = 141
         '
-        'btn_IntelAMT
+        'cmdDocMost
         '
-        Me.btn_IntelAMT.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdDocMost.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.btn_IntelAMT.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdDocMost.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.btn_IntelAMT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdDocMost.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_IntelAMT.Location = New System.Drawing.Point(332, 463)
+        Me.cmdDocMost.Location = New System.Drawing.Point(434, 463)
-        Me.btn_IntelAMT.Name = "btn_IntelAMT"
+        Me.cmdDocMost.Name = "cmdDocMost"
-        Me.btn_IntelAMT.Size = New System.Drawing.Size(96, 23)
+        Me.cmdDocMost.Size = New System.Drawing.Size(96, 23)
-        Me.btn_IntelAMT.TabIndex = 158
+        Me.cmdDocMost.TabIndex = 159
-        Me.btn_IntelAMT.Text = "IntelAMT"
+        Me.cmdDocMost.Text = "DocMost"
-        Me.btn_IntelAMT.UseVisualStyleBackColor = False
+        Me.cmdDocMost.UseVisualStyleBackColor = False
+        '
+        'txtDocMostURL
+        '
+        Me.txtDocMostURL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.txtDocMostURL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.txtDocMostURL.Location = New System.Drawing.Point(332, 556)
+        Me.txtDocMostURL.Name = "txtDocMostURL"
+        Me.txtDocMostURL.Size = New System.Drawing.Size(219, 20)
+        Me.txtDocMostURL.TabIndex = 160
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(329, 540)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(75, 13)
+        Me.Label17.TabIndex = 161
+        Me.Label17.Text = "DocMost URL"
         '
         'frmHostBearbeiten
         '
@@ -1006,4 +1042,7 @@ Partial Class frmHostBearbeiten
     Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
     Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents btn_IntelAMT As Button
+    Friend WithEvents txtDocMostURL As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents cmdDocMost As Button
 End Class

Dokumentation/frmHostBearbeiten.vb

@@ -41,6 +41,8 @@
         txtAnydesk.Text = host.AnydeskID
         txtAnydeskPass.Text = host.AnydeskPassword
 
+        txtDocMostURL.Text = host.DocmostURL
+
         Me.Text = host.FQDN
 
         Dim ds As New DataSet
@@ -90,6 +92,7 @@
             .SSHPort = txtSSHPort.Text
             .AnydeskID = txtAnydesk.Text
             .AnydeskPassword = txtAnydeskPass.Text
+            .DocmostURL = txtDocMostURL.Text
         End With
     End Function
 
@@ -432,4 +435,8 @@
     Private Sub btn_IntelAMT_Click(sender As Object, e As EventArgs) Handles btn_IntelAMT.Click
         cExtProgramme.startlink("https://" & TxtIP.Text & ":16993")
     End Sub
+
+    Private Sub cmdDocMost_Click(sender As Object, e As EventArgs) Handles cmdDocMost.Click
+        cExtProgramme.startlink(txtDocMostURL.Text)
+    End Sub
 End Class

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

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