Смена кодировки на UTF8 в VBScript

[Zeron]

Здравствуйте, вот так вот создаётся текстовый файлик на языке VBS:

Dim gg, gm
Set gg = CreateObject("Scripting.FileSystemO bject")
Set gm = gg.CreateTextFile("text.txt", True)
gm.WriteLine("текст текст текст")
gm.WriteLine("текст текст текст")
gm.WriteLine("текст текст текст")
gm.Close

Подскажите, что нужно сделать чтобы этот файлик создавался в кодировке UTF-8?

[Zeron]

Нашел решение:

Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "UTF-8"
st.WriteText("текст")
st.SaveToFile("1234.txt")

Но как оказалось мне нужен файл именно без BOM, а он создаётся с ним.
Помогите решить проблему.