Update auf .NET 8

Windream/Windream.vb

@@ -1,5 +1,7 @@
-Imports System.IO
+Imports System.Data
+Imports System.IO
 Imports System.IO.Path
+Imports System.Net.NetworkInformation
 Imports System.Text.RegularExpressions
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
@@ -464,11 +466,15 @@ Public Class Windream
 
         'Test connection to windream server
         Try
-            Dim response = My.Computer.Network.Ping(ServerName)
-            If response = False Then
-                _logger.Warn("Windream Server {0} refused connection", ServerName)
+
+            Dim pingSender As New Ping()
+            Dim reply As PingReply = pingSender.Send(ServerName)
+
+            If Not reply.Status = IPStatus.Success Then
+                _logger.Warn("Could not reach Windream Server {0}, or the server refused the connection", ServerName)
                 Return Nothing
             End If
+
         Catch ex As Exception
             _logger.Error(ex)
             Return Nothing