Option Explicit Const UTF8_BOM = "" Const ForReading = 1 Const ForWriting = 2 Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim f f = WScript.Arguments.Item(0) Dim t t = fso.OpenTextFile(f, ForReading).ReadAll If Left(t, 3) = UTF8_BOM Then MsgBox "UTF-8-BOM bereits vorhanden!" Else fso.OpenTextFile(f, ForWriting).Write UTF8_BOM & t MsgBox "BOM hinzugefügt!" End If