ThinClient TeamViewer

Dokumentation/Classes/Class1.vb

@@ -35,7 +35,7 @@ Public Class Class1
     End Sub
 
     Public Shared Function CheckDebug()
-        Dim Debugoverride As Boolean = False 'wenn True dann Override auf Produktiv!
+        Dim Debugoverride As Boolean = True '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

@@ -45,8 +45,10 @@
 
     Public Shared Function pingip(ip As String, Optional ByVal Argument As String = "")
         Dim ping As New Process
-        ping.StartInfo.FileName = "cmd.exe"
-        ping.StartInfo.Arguments = " /k ping " & ip & Argument
+        'ping.StartInfo.FileName = "cmd.exe"
+        'ping.StartInfo.Arguments = " /k ping " & ip & Argument
+        ping.StartInfo.FileName = "powershell.exe"
+        ping.StartInfo.Arguments = " /noexit /c ping " & ip & Argument
         ping.Start()
     End Function
 

Dokumentation/Classes/cHost.vb

@@ -81,6 +81,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