neu

Aviso/cProgramFunctions.vb

@@ -7,6 +7,19 @@ Public Class cProgramFunctions
         Try
             Dim aktVersion = My.Resources.UpdaterVersion ' Aktuelle Updater Version
             Dim F = "F:\Programme\AVISO_install\"
+
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "IMEX"
+                    F = "\\192.168.1.20\daten\VERAG Programme\AVISO_INSTALL\"
+                Case "UNISPED"
+                    F = "\\10.4.3.17\VERAG gemeinsam\AVISO_INSTALL\"
+                    buildConnectionUNISPED()
+                Case "AMBAR"
+                Case Else
+            End Select
+
+
+
             Dim doUpdaterUpdate = False
             If IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\AVISOUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
                 Dim fs As New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\AVISOUPDATER_Version.txt", FileMode.Open, FileAccess.Read)
@@ -39,6 +52,23 @@ Public Class cProgramFunctions
         End Try
     End Function
 
+    Shared Sub buildConnectionUNISPED()
+        Try
+
+            Dim netuse As New System.Diagnostics.ProcessStartInfo()
+
+            netuse.FileName = "C:\Windows\system32\net"
+            netuse.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
+            netuse.CreateNoWindow = True
+            netuse.WindowStyle = ProcessWindowStyle.Hidden
+            System.Diagnostics.Process.Start(netuse)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+
+        End Try
+    End Sub
+
     Shared Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function 
         While file.Contains("\")
             file = file.Remove(0, 1)