PRTG Temperaturen der Serverräume jetzt per SQL anpassbar

2026-06-29 09:04:32 +02:00
parent 586c7c639e
commit e5a552892e
6 changed files with 78 additions and 59 deletions
--- a/Dokumentation/Classes/cSQL.vb
+++ b/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

--- a/Dokumentation/Main.Designer.vb
+++ b/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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 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
-        DataGridViewCellStyle4.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))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
        Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.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))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DgVMain.DefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        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
-        DataGridViewCellStyle6.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))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        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!)
--- a/Dokumentation/Main.resx
+++ b/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">
-    <value>True</value>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <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>
--- a/Dokumentation/Main.vb
+++ b/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 ds As New DataSet
-        cSMB.obj2DS(ps, ds, "SMB")
+        Dim text As String
+
+        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 task2 = prtg.getValuefromPRTG("8223", 9)
+        'Dim task1 = prtg.getValuefromPRTG("8208", 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
@@ -1907,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
--- 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.20 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.21 ä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.20</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>