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

Update VeragProgAllgemein; Feature: RDP direkt starten;

Browse Source
This commit is contained in:
ms
2022-11-22 10:53:34 +01:00
parent 67f2a10607
commit f717deac50
31 changed files with 900 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Dokumentation/Classes/cHost.vb
View File

@@ -24,6 +24,7 @@ Public Class cHost
Property Firewall As Boolean = False
Property TeamviewerID As String = ""
Property TeamviewerKennwort As String = ""
Property SSHPort As Decimal = 22
@@ -54,6 +55,7 @@ Public Class cHost
list.Add(New SQLVariable("Firewall", Firewall))
list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
list.Add(New SQLVariable("SSHPort", SSHPort))
Return list
End Function
@@ -83,6 +85,7 @@ Public Class cHost
list.Add(New SQLVariable("Firewall", Firewall))
list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
list.Add(New SQLVariable("SSHPort", SSHPort))
Return list
End Function
@@ -111,6 +114,7 @@ Public Class cHost
Me.Firewall = False
Me.TeamviewerID = ""
Me.TeamviewerKennwort = ""
Me.SSHPort = 22
End Function
Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
@@ -297,6 +301,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
newhost.Standort = Me.Standort
newhost.DHCP = Me.DHCP
newhost.Firewall = Me.Firewall
newhost.SSHPort = Me.SSHPort
Dim update, where As String
getUpdateCmd(update, where, "", "", newhost.Linked, newhost)