Teamviewer, Brumm Brumm

Dokumentation/Classes/Class1.vb

@@ -35,7 +35,7 @@ Public Class Class1
     End Sub
 
     Public Shared Function CheckDebug()
-        Dim Debugoverride As Boolean = True 'wenn True dann Override auf Produktiv!
+        Dim Debugoverride As Boolean = False 'wenn True dann Override auf Produktiv!
         Dim Startparameter As String = ""
         Dim i As Integer
         For Each s As String In Environment.GetCommandLineArgs

Dokumentation/Classes/Ext_Programme.vb

@@ -63,4 +63,18 @@
         End Try
     End Function
 
+    Public Shared Function StartTeamviewer(ID As String, Optional Passwort As String = "BmWr501956")
+        If Passwort.Length < 1 Then
+            Passwort = "BmWr501956"
+        End If
+        Dim teamviewer As New Process
+        With teamviewer.StartInfo
+            .FileName = "Teamviewer.exe"
+            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
+            .Arguments = "-i " & ID & " -P " & Passwort
+        End With
+
+        teamviewer.Start()
+    End Function
+
 End Class

Dokumentation/Classes/cHost.vb

@@ -22,6 +22,9 @@ Public Class cHost
     Property DHCP As String = ""
     Property Netzwerk As String = ""
     Property Firewall As Boolean = False
+    Property TeamviewerID As String = ""
+    Property TeamviewerKennwort As String = ""
+
 
 
 
@@ -49,6 +52,8 @@ Public Class cHost
         list.Add(New SQLVariable("DHCP", DHCP))
         list.Add(New SQLVariable("Netzwerk", Netzwerk))
         list.Add(New SQLVariable("Firewall", Firewall))
+        list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
+        list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
         Return list
 
     End Function
@@ -102,6 +107,8 @@ Public Class cHost
         Me.DHCP = ""
         Me.Netzwerk = ""
         Me.Firewall = False
+        Me.TeamviewerID = ""
+        Me.TeamviewerKennwort = ""
     End Function
 
     Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)