edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PRTG Temperaturen der Serverräume jetzt per SQL anpassbar

Browse Source
This commit is contained in:
ms
2026-06-29 09:04:32 +02:00
parent 586c7c639e
commit e5a552892e
6 changed files with 78 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Dokumentation/Main.vb
View File

@@ -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