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
  fso.OpenTextFile(f, ForWriting).Write (Mid(t, 4))
  MsgBox "BOM gelöscht!"
Else
  MsgBox "UTF-8-BOM nicht vorhanden!"
End If