VBS / WSH Funktion um Meldungen auszugeben je nach Interpreter
Problem :
Wenn man ein VBS Skript schreibt und Meldungen ausgeben möchte stehen einem mehrere Wege zur Verfügung die gängigsten sind eine MsgBox und WScript.Echo das Echo wird meistens verwendet wenn das Skript über cscript.exe gestartet wird , startet man es dann mit wscript.exe bekommt man für jede Zeile die ein Echo enthällt eine gesonderte Messagebox (MsgBox)
Lösung :
Ich hab hier eine kleine Funktion geschrieben die ermittelt über welchen Interpreter wscript / cscript das Skript gestartet wurde und die Meldung anpasst.
Wenn man ein VBS Skript schreibt und Meldungen ausgeben möchte stehen einem mehrere Wege zur Verfügung die gängigsten sind eine MsgBox und WScript.Echo das Echo wird meistens verwendet wenn das Skript über cscript.exe gestartet wird , startet man es dann mit wscript.exe bekommt man für jede Zeile die ein Echo enthällt eine gesonderte Messagebox (MsgBox)
Lösung :
Ich hab hier eine kleine Funktion geschrieben die ermittelt über welchen Interpreter wscript / cscript das Skript gestartet wurde und die Meldung anpasst.
Function ShowMessage(MSG,Titel) Dim StrScriptInt : StrScriptInt = LCase(WScript.FullName) ' --- Check Interpreter If Right(StrScriptInt,11) = "wscript.exe" Then MsgBox MSG,vbOKOnly + vbInformation,Titel Else WScript.Echo Titel & "--------------" & vbCrLf & MSG & vbCrLf End If End Function