Login Check (ob auf Netzlaufwerk gestartet wird).

Aviso/frmLogin.vb

@@ -95,7 +95,7 @@ Public Class frmLogin
             Try
                 Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
                 If WI.Contains("\") Then
-                    Dim Split() = WI.Split("\")
+                    Dim Split() = WI.split("\")
                     'Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
                     Dim firmaTmp = ADMIN.getUstFirma_ByAD(Split(0), Split(1))
                     If firmaTmp = "" Then
@@ -299,7 +299,7 @@ Public Class frmLogin
         Try
             Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
             If WI.Contains("\") Then
-                Dim Split() = WI.Split("\")
+                Dim Split() = WI.split("\")
                 Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
                 If UsernameTMP <> "" Then
                     txtSachbear.Text = UsernameTMP
@@ -509,6 +509,13 @@ Public Class frmLogin
 
     Private Sub frmAnmeldung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         ' UPDATEUpdater
+
+        'todo prüfung nicht aus nw-laufwerk starten (start wit \\)
+        If AppDomain.CurrentDomain.BaseDirectory.ToString.StartsWith("\\") Then
+            MsgBox("AVISO kann nur lokal gestartet werden." & vbNewLine & "Bei Fragen bitte an die EDV wenden.")
+            Exit Sub
+        End If
+
         If cProgramFunctions.updateUpdater() Then
             MsgBox("Der Aviso-Updater wurde aktualisiert. Es muss ein Update durchgeführt werden.")
             UpdateAVISO()