Dim authserver As String = "authserver"
        Dim authserver_b As Boolean = CheckProcessIsRun(authserver)
        If authserver_b Then
            Label4.Text = "Online"
            Label4.ForeColor = Color.Green
        Else
            Label4.Text = "Offline"
            Label4.ForeColor = Color.Red()
 
            Dim authserver_oprocess As New Process
            With authserver_oprocess.StartInfo
                .UseShellExecute = False
                .FileName = "core/authserver.exe"
                .Arguments = "-c core/authserver.conf"
                .CreateNoWindow = True
                .RedirectStandardOutput = True
            End With
            authserver_oprocess.Start()
            Dim authserver_output = _
              authserver_oprocess.StandardOutput.ReadToEnd()
            logonserverauslesen.TextBox1.Text = (authserver_output)
            'Dim httpd_server As System.Diagnostics.Process = 
            ' System.Diagnostics.Process.Start("core/authserver.exe")
        End If