neu

AVISOUPDATER/UPDATERfrm.vb

@@ -51,6 +51,8 @@ Public Class UPDATERfrm
         If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung
 
 
+        If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
+
         'Falls Settings existiert, wird der Pfad daraus verwendet.
         ' F = System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")(0)
         '   F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
@@ -163,7 +165,6 @@ Public Class UPDATERfrm
                 getFByIP = F
             End If
         End If
-        If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
     End Function
 
 
@@ -171,6 +172,14 @@ Public Class UPDATERfrm
         Try
 
             writeLine(RichTextBox, "UNISPED Netzwerkzugriff einrichten...")
+            'Dim netuse1 As New System.Diagnostics.ProcessStartInfo()
+
+            'netuse1.FileName = "C:\Windows\system32\net"
+            'netuse1.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
+            'netuse1.CreateNoWindow = True
+            'netuse1.WindowStyle = ProcessWindowStyle.Hidden
+            'System.Diagnostics.Process.Start(netuse1)
+
             Dim netuse As New System.Diagnostics.ProcessStartInfo()
 
             netuse.FileName = "C:\Windows\system32\net"