Public Class Class1
    Public sAppPath As String = Application.StartupPath
    'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"

    Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
    Public Shared DBADMINBuchhaltung As String = "Data Source=SQLGuide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
    Public Shared DBAdmin As String = "[SQLGuide01.verag.ost.dmn].ADMIN"
    Public Shared DBDoku As String = "Server=SQLGuide01.verag.ost.dmn\Verag;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
    'Public Shared DBDoku As String = "Server=dokusql.verag.ost.dmn\sqlexpress;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
    Public Shared DBDokuTest As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
    'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
    Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
    Public Shared Absender As String = "Absender Standard"
    'Public Shared sAppPath As String = Application.StartupPath

    Public Shared DBConString As String = DBDoku

    Public Shared Standorte As New List(Of String)
    Public Shared AlleStandorte As New List(Of String)
    Public Shared LoggedOnUser As New cBenutzer

    Public Shared LoggedOnUserisAdmin As Boolean = False
    Public Shared DebugMode As Boolean = False
    Public Shared DebugText As String = ""
    Public Shared GroupUsers As List(Of cBenutzer)
    Public Shared dtSuchergebnis As DataTable
    Public Shared TeamviewerToken As String = "6920997-rtea7sZy35Ujw2Erm3OP"

    Public Shared HostList As New List(Of String)
    Public Shared TerminalServerList As New List(Of String)

    Public Shared Function DBNull2emptyString(totest As Object)

        If IsDBNull(totest) Then
            Return ""
        Else
            Return totest
        End If

    End Function
End Class