vor Migration

2025-10-06 14:06:15 +02:00
parent a0c5689d10
commit bca14ecde4
9 changed files with 259 additions and 140 deletions
--- a/Dokumentation/Classes/cPascom.vb
+++ b/Dokumentation/Classes/cPascom.vb
@@ -219,7 +219,7 @@ Public Class cPascom
            End If

            rest.AddHeader("Content-Type", "application/json")
-            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+            rest.SetAuthBasic("2XboAropSm6gsEmyc51hnC05Ovdmvlsd", "C5zA1eNAtZcUE0JujZ0uwEpJv0tkOESz")


            Dim json As New Chilkat.JsonObject
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -24,23 +24,21 @@ 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 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()
        Me.lblOfflinemodus = New System.Windows.Forms.Label()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
-        Me.lblNotruf = New System.Windows.Forms.Label()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.TelefonManuellZuweisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnTSSitzungen = New System.Windows.Forms.Button()
        Me.LblDEBUGMODE = New System.Windows.Forms.Label()
        Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
        Me.LblVersion = New System.Windows.Forms.Label()
-        Me.LblInfo = New System.Windows.Forms.Label()
        Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
        Me.CmdSucheReset = New System.Windows.Forms.Button()
        Me.TxtSuche = New System.Windows.Forms.TextBox()
@@ -58,6 +56,10 @@ Partial Class Main
        Me.ChKZugangsdaten = New System.Windows.Forms.CheckBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.LblNetzwerkinfo = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.TelefonManuellZuweisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LblInfo = New System.Windows.Forms.Label()
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NetzwerkeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -72,8 +74,13 @@ Partial Class Main
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
        Me.TicketsystemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SnipeITToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.PascomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UnifiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VCenterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FirewallToolStripMenuItem = 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()
@@ -132,16 +139,15 @@ Partial Class Main
        Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.Timer_Temperatur = New System.Windows.Forms.Timer(Me.components)
-        Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
        Me.PanType.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.PanSuche.SuspendLayout()
        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.PanNetzwerk.SuspendLayout()
@@ -159,24 +165,22 @@ Partial Class Main
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1494, 130)
+        Me.Panel2.Size = New System.Drawing.Size(1172, 130)
        Me.Panel2.TabIndex = 1
        '
        'Panel4
        '
        Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel4.Controls.Add(Me.lblRufbereitschaft)
        Me.Panel4.Controls.Add(Me.lblOfflinemodus)
        Me.Panel4.Controls.Add(Me.Button3)
        Me.Panel4.Controls.Add(Me.Button2)
-        Me.Panel4.Controls.Add(Me.lblNotruf)
        Me.Panel4.Controls.Add(Me.Label20)
        Me.Panel4.Controls.Add(Me.picAVISOMessenger)
-        Me.Panel4.Controls.Add(Me.Button1)
        Me.Panel4.Controls.Add(Me.btnTSSitzungen)
        Me.Panel4.Controls.Add(Me.LblDEBUGMODE)
        Me.Panel4.Controls.Add(Me.chkTSSitzungen)
        Me.Panel4.Controls.Add(Me.LblVersion)
-        Me.Panel4.Controls.Add(Me.LblInfo)
        Me.Panel4.Controls.Add(Me.btnBenutzerverwaltung)
        Me.Panel4.Controls.Add(Me.CmdSucheReset)
        Me.Panel4.Controls.Add(Me.TxtSuche)
@@ -188,11 +192,22 @@ Partial Class Main
        Me.Panel4.Controls.Add(Me.LblUhrzeit)
        Me.Panel4.Controls.Add(Me.ChKZugangsdaten)
        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel4.Location = New System.Drawing.Point(272, 24)
+        Me.Panel4.Location = New System.Drawing.Point(286, 24)
        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1222, 106)
+        Me.Panel4.Size = New System.Drawing.Size(886, 106)
        Me.Panel4.TabIndex = 14
        '
+        'lblRufbereitschaft
+        '
+        Me.lblRufbereitschaft.AutoSize = True
+        Me.lblRufbereitschaft.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblRufbereitschaft.ForeColor = System.Drawing.Color.DarkRed
+        Me.lblRufbereitschaft.Location = New System.Drawing.Point(79, 11)
+        Me.lblRufbereitschaft.Name = "lblRufbereitschaft"
+        Me.lblRufbereitschaft.Size = New System.Drawing.Size(104, 15)
+        Me.lblRufbereitschaft.TabIndex = 48
+        Me.lblRufbereitschaft.Text = "Rufbereitschaft"
+        '
        'lblOfflinemodus
        '
        Me.lblOfflinemodus.AutoSize = True
@@ -211,7 +226,7 @@ Partial Class Main
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.Location = New System.Drawing.Point(74, 39)
+        Me.Button3.Location = New System.Drawing.Point(17, 34)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(116, 28)
        Me.Button3.TabIndex = 46
@@ -225,29 +240,20 @@ Partial Class Main
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button2.Location = New System.Drawing.Point(74, 72)
+        Me.Button2.Location = New System.Drawing.Point(17, 67)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(116, 28)
        Me.Button2.TabIndex = 45
        Me.Button2.Text = "Profile SMB"
        Me.Button2.UseVisualStyleBackColor = False
        '
-        'lblNotruf
-        '
-        Me.lblNotruf.AutoSize = True
-        Me.lblNotruf.Location = New System.Drawing.Point(327, 15)
-        Me.lblNotruf.Name = "lblNotruf"
-        Me.lblNotruf.Size = New System.Drawing.Size(57, 13)
-        Me.lblNotruf.TabIndex = 44
-        Me.lblNotruf.Text = "Notruf an: "
-        '
        'Label20
        '
        Me.Label20.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.Label20.BackColor = System.Drawing.Color.Red
        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label20.ForeColor = System.Drawing.Color.White
-        Me.Label20.Location = New System.Drawing.Point(503, 75)
+        Me.Label20.Location = New System.Drawing.Point(120, 75)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(28, 19)
        Me.Label20.TabIndex = 42
@@ -261,39 +267,12 @@ Partial Class Main
        Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.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(475, 48)
+        Me.picAVISOMessenger.Location = New System.Drawing.Point(89, 40)
        Me.picAVISOMessenger.Name = "picAVISOMessenger"
        Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
        Me.picAVISOMessenger.TabIndex = 41
        Me.picAVISOMessenger.TabStop = False
        '
-        'Button1
-        '
-        Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
-        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.Dokumentation.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.Location = New System.Drawing.Point(196, 5)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(116, 28)
-        Me.Button1.TabIndex = 43
-        Me.Button1.Text = "Telefon"
-        Me.Button1.UseVisualStyleBackColor = False
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TelefonManuellZuweisenToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(211, 26)
-        '
-        'TelefonManuellZuweisenToolStripMenuItem
-        '
-        Me.TelefonManuellZuweisenToolStripMenuItem.Name = "TelefonManuellZuweisenToolStripMenuItem"
-        Me.TelefonManuellZuweisenToolStripMenuItem.Size = New System.Drawing.Size(210, 22)
-        Me.TelefonManuellZuweisenToolStripMenuItem.Text = "Telefon manuell zuweisen"
-        '
        'btnTSSitzungen
        '
        Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -301,7 +280,7 @@ Partial Class Main
        Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
        Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnTSSitzungen.Location = New System.Drawing.Point(196, 73)
+        Me.btnTSSitzungen.Location = New System.Drawing.Point(139, 68)
        Me.btnTSSitzungen.Name = "btnTSSitzungen"
        Me.btnTSSitzungen.Size = New System.Drawing.Size(116, 28)
        Me.btnTSSitzungen.TabIndex = 43
@@ -312,7 +291,7 @@ Partial Class Main
        '
        Me.LblDEBUGMODE.AutoSize = True
        Me.LblDEBUGMODE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.LblDEBUGMODE.Location = New System.Drawing.Point(7, 22)
+        Me.LblDEBUGMODE.Location = New System.Drawing.Point(879, 10)
        Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
        Me.LblDEBUGMODE.Size = New System.Drawing.Size(113, 16)
        Me.LblDEBUGMODE.TabIndex = 13
@@ -322,7 +301,7 @@ Partial Class Main
        'chkTSSitzungen
        '
        Me.chkTSSitzungen.AutoSize = True
-        Me.chkTSSitzungen.Location = New System.Drawing.Point(327, 34)
+        Me.chkTSSitzungen.Location = New System.Drawing.Point(277, 26)
        Me.chkTSSitzungen.Name = "chkTSSitzungen"
        Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
        Me.chkTSSitzungen.TabIndex = 19
@@ -333,21 +312,12 @@ Partial Class Main
        '
        Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.LblVersion.AutoSize = True
-        Me.LblVersion.Location = New System.Drawing.Point(3, 5)
+        Me.LblVersion.Location = New System.Drawing.Point(563, 85)
        Me.LblVersion.Name = "LblVersion"
        Me.LblVersion.Size = New System.Drawing.Size(42, 13)
        Me.LblVersion.TabIndex = 17
        Me.LblVersion.Text = "Version"
        '
-        'LblInfo
-        '
-        Me.LblInfo.AutoSize = True
-        Me.LblInfo.Location = New System.Drawing.Point(7, 87)
-        Me.LblInfo.Name = "LblInfo"
-        Me.LblInfo.Size = New System.Drawing.Size(39, 13)
-        Me.LblInfo.TabIndex = 16
-        Me.LblInfo.Text = "LblInfo"
-        '
        'btnBenutzerverwaltung
        '
        Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -355,7 +325,7 @@ Partial Class Main
        Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
        Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(196, 39)
+        Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(139, 34)
        Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
        Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(116, 28)
        Me.btnBenutzerverwaltung.TabIndex = 20
@@ -368,7 +338,7 @@ Partial Class Main
        Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdSucheReset.Location = New System.Drawing.Point(726, 71)
+        Me.CmdSucheReset.Location = New System.Drawing.Point(390, 71)
        Me.CmdSucheReset.Name = "CmdSucheReset"
        Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
        Me.CmdSucheReset.TabIndex = 15
@@ -379,7 +349,7 @@ Partial Class Main
        '
        Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.TxtSuche.Location = New System.Drawing.Point(540, 23)
+        Me.TxtSuche.Location = New System.Drawing.Point(204, 23)
        Me.TxtSuche.Name = "TxtSuche"
        Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
        Me.TxtSuche.TabIndex = 3
@@ -389,7 +359,7 @@ Partial Class Main
        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(493, 26)
+        Me.Label1.Location = New System.Drawing.Point(157, 26)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(47, 13)
        Me.Label1.TabIndex = 4
@@ -400,7 +370,7 @@ Partial Class Main
        Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.PanType.Controls.Add(Me.LstType)
        Me.PanType.Controls.Add(Me.Label2)
-        Me.PanType.Location = New System.Drawing.Point(684, 5)
+        Me.PanType.Location = New System.Drawing.Point(348, 5)
        Me.PanType.Name = "PanType"
        Me.PanType.Size = New System.Drawing.Size(183, 41)
        Me.PanType.TabIndex = 12
@@ -428,9 +398,9 @@ Partial Class Main
        '
        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(873, 6)
+        Me.PictureBox1.Location = New System.Drawing.Point(566, 10)
        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(340, 74)
+        Me.PictureBox1.Size = New System.Drawing.Size(320, 70)
        Me.PictureBox1.TabIndex = 1
        Me.PictureBox1.TabStop = False
        '
@@ -440,7 +410,7 @@ Partial Class Main
        Me.PanSuche.Controls.Add(Me.RadGlobal)
        Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
        Me.PanSuche.Controls.Add(Me.RadStandort)
-        Me.PanSuche.Location = New System.Drawing.Point(540, 49)
+        Me.PanSuche.Location = New System.Drawing.Point(204, 49)
        Me.PanSuche.Name = "PanSuche"
        Me.PanSuche.Size = New System.Drawing.Size(314, 31)
        Me.PanSuche.TabIndex = 11
@@ -480,7 +450,7 @@ Partial Class Main
        'ChkTools
        '
        Me.ChkTools.AutoSize = True
-        Me.ChkTools.Location = New System.Drawing.Point(327, 80)
+        Me.ChkTools.Location = New System.Drawing.Point(277, 72)
        Me.ChkTools.Name = "ChkTools"
        Me.ChkTools.Size = New System.Drawing.Size(107, 17)
        Me.ChkTools.TabIndex = 10
@@ -490,7 +460,7 @@ Partial Class Main
        'LblUhrzeit
        '
        Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.LblUhrzeit.Location = New System.Drawing.Point(975, 81)
+        Me.LblUhrzeit.Location = New System.Drawing.Point(639, 85)
        Me.LblUhrzeit.Name = "LblUhrzeit"
        Me.LblUhrzeit.Size = New System.Drawing.Size(235, 13)
        Me.LblUhrzeit.TabIndex = 7
@@ -500,7 +470,7 @@ Partial Class Main
        'ChKZugangsdaten
        '
        Me.ChKZugangsdaten.AutoSize = True
-        Me.ChKZugangsdaten.Location = New System.Drawing.Point(327, 57)
+        Me.ChKZugangsdaten.Location = New System.Drawing.Point(277, 49)
        Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
        Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
        Me.ChKZugangsdaten.TabIndex = 4
@@ -511,10 +481,12 @@ Partial Class Main
        '
        Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
        Me.Panel1.Controls.Add(Me.LblNetzwerkinfo)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.LblInfo)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel1.Location = New System.Drawing.Point(0, 24)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(272, 106)
+        Me.Panel1.Size = New System.Drawing.Size(286, 106)
        Me.Panel1.TabIndex = 13
        '
        'LblNetzwerkinfo
@@ -526,13 +498,50 @@ Partial Class Main
        Me.LblNetzwerkinfo.TabIndex = 0
        Me.LblNetzwerkinfo.Text = "Netzwerkinfo"
        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
+        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.Dokumentation.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"
+        Me.Button1.Size = New System.Drawing.Size(116, 28)
+        Me.Button1.TabIndex = 43
+        Me.Button1.Text = "Telefon"
+        Me.Button1.UseVisualStyleBackColor = False
+        Me.Button1.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TelefonManuellZuweisenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(211, 26)
+        '
+        'TelefonManuellZuweisenToolStripMenuItem
+        '
+        Me.TelefonManuellZuweisenToolStripMenuItem.Name = "TelefonManuellZuweisenToolStripMenuItem"
+        Me.TelefonManuellZuweisenToolStripMenuItem.Size = New System.Drawing.Size(210, 22)
+        Me.TelefonManuellZuweisenToolStripMenuItem.Text = "Telefon manuell zuweisen"
+        '
+        'LblInfo
+        '
+        Me.LblInfo.AutoSize = True
+        Me.LblInfo.Location = New System.Drawing.Point(92, 5)
+        Me.LblInfo.Name = "LblInfo"
+        Me.LblInfo.Size = New System.Drawing.Size(39, 13)
+        Me.LblInfo.TabIndex = 16
+        Me.LblInfo.Text = "LblInfo"
+        '
        'MenuStrip1
        '
        Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem, Me.ProxMoxToolStripMenuItem, Me.PortainerToolStripMenuItem})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.SnipeITToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem, Me.VCenterToolStripMenuItem, Me.ProxMoxToolStripMenuItem, Me.PortainerToolStripMenuItem, Me.FirewallToolStripMenuItem})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(1494, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1172, 24)
        Me.MenuStrip1.TabIndex = 2
        Me.MenuStrip1.Text = "MenuStrip1"
        '
@@ -615,6 +624,12 @@ Partial Class Main
        Me.TicketsystemToolStripMenuItem.Size = New System.Drawing.Size(88, 20)
        Me.TicketsystemToolStripMenuItem.Text = "Ticketsystem"
        '
+        'SnipeITToolStripMenuItem
+        '
+        Me.SnipeITToolStripMenuItem.Name = "SnipeITToolStripMenuItem"
+        Me.SnipeITToolStripMenuItem.Size = New System.Drawing.Size(58, 20)
+        Me.SnipeITToolStripMenuItem.Text = "SnipeIT"
+        '
        'PascomToolStripMenuItem
        '
        Me.PascomToolStripMenuItem.Name = "PascomToolStripMenuItem"
@@ -627,6 +642,31 @@ Partial Class Main
        Me.UnifiToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
        Me.UnifiToolStripMenuItem.Text = "Unifi"
        '
+        'VCenterToolStripMenuItem
+        '
+        Me.VCenterToolStripMenuItem.Name = "VCenterToolStripMenuItem"
+        Me.VCenterToolStripMenuItem.Size = New System.Drawing.Size(60, 20)
+        Me.VCenterToolStripMenuItem.Text = "vCenter"
+        '
+        'ProxMoxToolStripMenuItem
+        '
+        Me.ProxMoxToolStripMenuItem.Name = "ProxMoxToolStripMenuItem"
+        Me.ProxMoxToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
+        Me.ProxMoxToolStripMenuItem.Text = "ProxMox"
+        '
+        'PortainerToolStripMenuItem
+        '
+        Me.PortainerToolStripMenuItem.Name = "PortainerToolStripMenuItem"
+        Me.PortainerToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
+        Me.PortainerToolStripMenuItem.Text = "Portainer"
+        '
+        'FirewallToolStripMenuItem
+        '
+        Me.FirewallToolStripMenuItem.DoubleClickEnabled = True
+        Me.FirewallToolStripMenuItem.Name = "FirewallToolStripMenuItem"
+        Me.FirewallToolStripMenuItem.Size = New System.Drawing.Size(59, 20)
+        Me.FirewallToolStripMenuItem.Text = "Firewall"
+        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -648,7 +688,7 @@ Partial Class Main
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel3.Location = New System.Drawing.Point(0, 130)
        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(200, 831)
+        Me.Panel3.Size = New System.Drawing.Size(200, 442)
        Me.Panel3.TabIndex = 2
        '
        'lblTempServerraum15
@@ -849,7 +889,7 @@ Partial Class Main
        'CMdTest2
        '
        Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CMdTest2.Location = New System.Drawing.Point(785, 0)
+        Me.CMdTest2.Location = New System.Drawing.Point(463, 0)
        Me.CMdTest2.Name = "CMdTest2"
        Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
        Me.CMdTest2.TabIndex = 3
@@ -859,7 +899,7 @@ Partial Class Main
        'CmdTest
        '
        Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CmdTest.Location = New System.Drawing.Point(710, 0)
+        Me.CmdTest.Location = New System.Drawing.Point(388, 0)
        Me.CmdTest.Name = "CmdTest"
        Me.CmdTest.Size = New System.Drawing.Size(75, 100)
        Me.CmdTest.TabIndex = 2
@@ -884,25 +924,41 @@ Partial Class Main
        Me.DgVMain.AllowUserToDeleteRows = False
        Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
        Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
-        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.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        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
+        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]
+        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(860, 731)
+        Me.DgVMain.Size = New System.Drawing.Size(538, 342)
        Me.DgVMain.TabIndex = 3
        '
        'DGVMainContext
@@ -1051,9 +1107,9 @@ Partial Class Main
        Me.PanTools.Controls.Add(Me.CmdTest)
        Me.PanTools.Controls.Add(Me.CMdTest2)
        Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.PanTools.Location = New System.Drawing.Point(200, 861)
+        Me.PanTools.Location = New System.Drawing.Point(200, 472)
        Me.PanTools.Name = "PanTools"
-        Me.PanTools.Size = New System.Drawing.Size(860, 100)
+        Me.PanTools.Size = New System.Drawing.Size(538, 100)
        Me.PanTools.TabIndex = 4
        Me.PanTools.Visible = False
        '
@@ -1072,7 +1128,7 @@ Partial Class Main
        'btnTest3
        '
        Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
-        Me.btnTest3.Location = New System.Drawing.Point(635, 0)
+        Me.btnTest3.Location = New System.Drawing.Point(313, 0)
        Me.btnTest3.Name = "btnTest3"
        Me.btnTest3.Size = New System.Drawing.Size(75, 100)
        Me.btnTest3.TabIndex = 13
@@ -1123,9 +1179,9 @@ Partial Class Main
        'panTSSitzungen
        '
        Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
-        Me.panTSSitzungen.Location = New System.Drawing.Point(1060, 130)
+        Me.panTSSitzungen.Location = New System.Drawing.Point(738, 130)
        Me.panTSSitzungen.Name = "panTSSitzungen"
-        Me.panTSSitzungen.Size = New System.Drawing.Size(434, 831)
+        Me.panTSSitzungen.Size = New System.Drawing.Size(434, 442)
        Me.panTSSitzungen.TabIndex = 5
        Me.panTSSitzungen.Visible = False
        '
@@ -1142,23 +1198,16 @@ Partial Class Main
        Me.Timer_Temperatur.Enabled = True
        Me.Timer_Temperatur.Interval = 30000
        '
-        'ProxMoxToolStripMenuItem
+        'ContextMenuStrip2
        '
-        Me.ProxMoxToolStripMenuItem.Name = "ProxMoxToolStripMenuItem"
-        Me.ProxMoxToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
-        Me.ProxMoxToolStripMenuItem.Text = "ProxMox"
-        '
-        'PortainerToolStripMenuItem
-        '
-        Me.PortainerToolStripMenuItem.Name = "PortainerToolStripMenuItem"
-        Me.PortainerToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
-        Me.PortainerToolStripMenuItem.Text = "Portainer"
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1494, 961)
+        Me.ClientSize = New System.Drawing.Size(1172, 572)
        Me.Controls.Add(Me.DgVMain)
        Me.Controls.Add(Me.PanTools)
        Me.Controls.Add(Me.panTSSitzungen)
@@ -1166,7 +1215,7 @@ Partial Class Main
        Me.Controls.Add(Me.Panel2)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MainMenuStrip = Me.MenuStrip1
-        Me.MinimumSize = New System.Drawing.Size(1024, 740)
+        Me.MinimumSize = New System.Drawing.Size(1024, 541)
        Me.Name = "Main"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Dokumentation"
@@ -1175,7 +1224,6 @@ Partial Class Main
        Me.Panel4.ResumeLayout(False)
        Me.Panel4.PerformLayout()
        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.PanType.ResumeLayout(False)
        Me.PanType.PerformLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1183,6 +1231,7 @@ Partial Class Main
        Me.PanSuche.PerformLayout()
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.Panel3.ResumeLayout(False)
@@ -1282,7 +1331,6 @@ Partial Class Main
    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
    Friend WithEvents TelefonManuellZuweisenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents RDPFensterToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents lblNotruf As Label
    Friend WithEvents TicketsystemToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents PascomToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents UnifiToolStripMenuItem As ToolStripMenuItem
@@ -1304,4 +1352,9 @@ Partial Class Main
    Friend WithEvents Timer_Temperatur As Timer
    Friend WithEvents ProxMoxToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents PortainerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VCenterToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents FirewallToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+    Friend WithEvents lblRufbereitschaft As Label
+    Friend WithEvents SnipeITToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/Main.resx
+++ b/Dokumentation/Main.resx
@@ -117,12 +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>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1156, 17</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 +274,11 @@
        2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//Z
 </value>
  </data>
-  <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
+  <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="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>
@@ -310,6 +307,9 @@
  <metadata name="Timer_Temperatur.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1312, 17</value>
  </metadata>
+  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1463, 17</value>
+  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>64</value>
  </metadata>
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -1,12 +1,13 @@
 Imports System.Data.SqlClient
-Imports System.IO
-Imports System.Threading
-Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
-Imports System.Web.UI.WebControls
+Imports System.IO
 Imports System.Management.Automation
 Imports System.Management.Automation.Runspaces
 Imports System.Security
+Imports System.ServiceProcess
+Imports System.Threading
+Imports System.Web.UI.WebControls
+Imports Chilkat

 Public Class Main
    Public con As New SqlConnection
@@ -54,6 +55,7 @@ Public Class Main
        btnBenutzerverwaltung.Enabled = Not Class1.offline
        chkTSSitzungen.Checked = Not Class1.offline
        lblOfflinemodus.Visible = Class1.offline
+        If Not Class1.offline Then getIT()

        Me.KeyPreview = True

@@ -1258,7 +1260,7 @@ exit"
        If Class1.offline Then Exit Function
        dbload()
        Dim pascom As New cPascom
-        lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
+        'lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
        Dim RemoteVersion As String = ""
        LblVersion.Text = "Version: " & Version
        Try
@@ -1322,7 +1324,7 @@ exit"

    End Sub

-    Public Async Function AktualisiereTemperaturenAsync() As Task
+    Public Async Function AktualisiereTemperaturenAsync() As Task(Of Task)
        Dim prtg As New cPRTG()

        ' Aufgaben parallel starten
@@ -1470,6 +1472,7 @@ exit"
                ' MsgBox(newMsg)
                Label20.Text = newMsg
                Label20.Visible = (newMsg > 0)
+                getIT()
                If newMsg Then
                    ' Me.Icon = My.Resources.avisoNewMsg

@@ -1852,6 +1855,56 @@ exit"
        cExtProgramme.startlink("https://192.168.85.250:9443")
    End Sub

+    Private Sub VCenterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VCenterToolStripMenuItem.Click
+        cExtProgramme.startlink("https://vcenter.verag.ost.dmn/ui")
+    End Sub
+
+    Private Sub FirewallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FirewallToolStripMenuItem.Click
+        cExtProgramme.startlink("https://192.168.0.109:4444")
+    End Sub
+
+    Private Sub FirewallToolStripMenuItem_DoubleClick(sender As Object, e As EventArgs) Handles FirewallToolStripMenuItem.DoubleClick
+        MsgBox("DoubleTrouble")
+    End Sub
+
+    Private Sub lblRufbereitschaft_Click(sender As Object, e As EventArgs) Handles lblRufbereitschaft.Click
+
+        getIT()
+    End Sub
+
+    Private Sub lblRufbereitschaft_DoubleClick(sender As Object, e As EventArgs) Handles lblRufbereitschaft.DoubleClick
+
+        Dim pascom As New cPascom
+        If pascom.getredirect("199").Length > 2 Then
+            pascom.Weiterleitung("199", "")
+        Else
+            pascom.Weiterleitung("199", "555")
+        End If
+
+        getIT()
+    End Sub
+
+    Private Function getIT()
+        Dim pascom As New cPascom
+        'lblRufbereitschaft.Text = pascom.getredirect("199")
+        Dim text As String = ""
+
+        If pascom.getredirect("199").Length <= 2 Then
+            text = "199 - Umleitung deaktiviert"
+        Else
+            text = "199 - Umgeleitet auf: " & pascom.getredirect("199")
+        End If
+
+        If lblRufbereitschaft.Text <> text Then
+            lblRufbereitschaft.Text = text
+        End If
+
+    End Function
+
+    Private Sub SnipeITToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SnipeITToolStripMenuItem.Click
+        cExtProgramme.startlink("https://snipeit.verag.ag/")
+    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.08 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.12 ä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.08</value>
+    <value>0.0.2.12</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/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -100,6 +100,7 @@ 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.ContextMenuStrip3.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
@@ -445,30 +446,30 @@ Partial Class frmHostBearbeiten
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.MitHTTPSFuellen, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(163, 92)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(165, 92)
        '
        'MitHTTPFüllenToolStripMenuItem
        '
        Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem"
-        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
+        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
        Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen"
        '
        'MitHTTPSFuellen
        '
        Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
-        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(162, 22)
+        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(164, 22)
        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
        '
        'KopierenToolStripMenuItem
        '
        Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
-        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
+        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
        Me.KopierenToolStripMenuItem.Text = "Kopieren"
        '
        'FFPortToolStripMenuItem
        '
        Me.FFPortToolStripMenuItem.Name = "FFPortToolStripMenuItem"
-        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
+        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
        Me.FFPortToolStripMenuItem.Text = "FF Port"
        Me.FFPortToolStripMenuItem.Visible = False
        '
@@ -562,6 +563,7 @@ Partial Class frmHostBearbeiten
        'Panel1
        '
        Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip3
+        Me.Panel1.Controls.Add(Me.btn_IntelAMT)
        Me.Panel1.Controls.Add(Me.Button3)
        Me.Panel1.Controls.Add(Me.txtAnydesk)
        Me.Panel1.Controls.Add(Me.Label15)
@@ -885,6 +887,18 @@ Partial Class frmHostBearbeiten
        Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
        Me.PanNavTop.TabIndex = 141
        '
+        '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
+        '
        'frmHostBearbeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -991,4 +1005,5 @@ Partial Class frmHostBearbeiten
    Friend WithEvents CheckBox1 As CheckBox
    Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
    Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents btn_IntelAMT As Button
 End Class
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -428,4 +428,8 @@
    Private Sub IPAdresseKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseKopierenToolStripMenuItem.Click
        Clipboard.SetText(TxtIP.Text)
    End Sub
+
+    Private Sub btn_IntelAMT_Click(sender As Object, e As EventArgs) Handles btn_IntelAMT.Click
+        cExtProgramme.startlink("https://" & TxtIP.Text & ":16993")
+    End Sub
 End Class