Fenstertitel von "Windows Script Host" auf etwas anderes ändern

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Fenstertitel von "Windows Script Host" auf etwas anderes ändern

    Hallo zusammen,

    ich habe ein kleines Script, welches eine Datei Ausliest und den Inhalt dieser Datei in einer Meldung auf dem Bildschirm anzeigt. Wenn die Datei leer ist, gibt es eine Meldung aus.

    Quellcode

    1. Set objFSO = CreateObject("Scripting.FileSystemObject")
    2. Set objFile = objFSO.GetFile("datei2.txt")
    3. If objFile.Size > 0 Then
    4. Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
    5. strContents = objReadFile.ReadAll
    6. Wscript.Echo strContents
    7. objReadFile.Close
    8. Else
    9. Wscript.Echo "Derzeit sind keine Störungen bekannt"
    10. End If


    Beim Aufruf des Scripts erscheint als Titel des Fensters "Windows Script Host". Wenn man eine MessageBox aufruft, ist es jedoch möglich den Titel des Fensters anzugeben. Welche möglichkeit habe ich bei einem Script den Titel des Fensters zu ändern?

    Vielen Dank vorab für eure Hilfe!

    Gruß
    mat1010

    Edit by der_Kurt:
    Bitte auf das richtige Unterforum achten
    * verschoben *

    EDIT:
    Habe die Lösung gefunden.

    Quellcode

    1. Set objFSO = CreateObject("Scripting.FileSystemObject")
    2. Set objFile = objFSO.GetFile("datei2.txt")
    3. If objFile.Size > 0 Then
    4. Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
    5. strContents = objReadFile.ReadAll
    6. MsgBox strContents, 0, "Mitteilungen"
    7. objReadFile.Close
    8. Else
    9. 'Wscript.Echo "Derzeit sind keine Störungen bekannt"
    10. End If



    Kann geschlossen werden.

    Gruß
    mat1010

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „mat1010“ ()

    Oder der Klassiker..., verschwindet nach 4 Sekunden automatisch..

    Visual Basic-Quellcode

    1. Set WshShell = Wscript.CreateObject("Wscript.Shell")
    2. WshShell.Popup "Nachricht!",4, "Titel",vbokonly+vbinformation
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook