' ============================================================
'  Startet start_server.bat OHNE sichtbares Fenster.
'  Wird von der Aufgabenplanung beim Login aufgerufen
'  (Auto-Start). Manuell zum Testen ebenfalls per Doppelklick.
' ============================================================
Dim sh, fso, here
Set sh  = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
here = fso.GetParentFolderName(WScript.ScriptFullName)
sh.CurrentDirectory = here
' Fensterstil 0 = unsichtbar, False = nicht auf Ende warten
sh.Run """" & here & "\start_server.bat""", 0, False
