Mestan Speciale: Reporter gibt Ruhe, wenn SQLCluster nicht erreichbar ist.

Main.vb

@@ -1,6 +1,7 @@
 Imports System.Environment
 Imports System.Globalization
 Imports System.IO
+Imports System.Net.NetworkInformation
 Imports Microsoft.Win32
 Public Class TSUserReporter
 
@@ -22,6 +23,15 @@ Public Class TSUserReporter
         Me.Visible = False
         StartTime = Date.Now
 
+        If IstServerErreichbar("sqlcluster.verag.ost.dmn") Then
+            'MsgBox("Erreichbar")
+        Else
+            ' MsgBox("Nicht erreichbar")
+            UpdateTimer.Enabled = False
+            Exit Sub
+
+        End If
+
         Routine()
 
         SetPrinterRoutine()
@@ -345,6 +355,17 @@ Public Class TSUserReporter
 
     End Sub
 
+    Function IstServerErreichbar(server As String) As Boolean
+        Try
+            Dim ping As New Ping()
+            Dim reply = ping.Send(server, 1000) ' Timeout 1 Sekunde
+
+            Return reply.Status = IPStatus.Success
+        Catch
+            Return False
+        End Try
+    End Function
+
 End Class
 
 Public Class Drucker

TSUserReporter.vbproj

@@ -70,7 +70,7 @@
     <SignManifests>true</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestCertificateThumbprint>0E7F805EC73FC627C5B07472C1EF817DF8E04CE2</ManifestCertificateThumbprint>
+    <ManifestCertificateThumbprint>1A931924D8078AE56D64EFA22EB781250AB2DEF4</ManifestCertificateThumbprint>
   </PropertyGroup>
   <PropertyGroup>
     <GenerateManifests>true</GenerateManifests>