DocMost Integration

2026-06-22 10:06:30 +02:00
parent 6c572e110e
commit e3bc8dac4b
3 changed files with 70 additions and 19 deletions
--- a/Dokumentation/Classes/cHost.vb
+++ b/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)
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/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.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
+        Me.cmdDocMost.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdDocMost.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdDocMost.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdDocMost.Location = New System.Drawing.Point(434, 463)
+        Me.cmdDocMost.Name = "cmdDocMost"
+        Me.cmdDocMost.Size = New System.Drawing.Size(96, 23)
+        Me.cmdDocMost.TabIndex = 159
+        Me.cmdDocMost.Text = "DocMost"
+        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
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/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