產生一個不能正常開啟的 XML 檔案 (1)

學習 VBScript 過程中，記得有一程式是要產生 XML 檔案。
程式運作後，檔案是產生了，但是卻無法正常開啟。

Write2XML.vbs
-------------------------
Const ForReading = 1, ForWriting = 2, TristateTrue = -1, TristateOff = 0
Dim oFSO,oFile,strg,re
Dim sStr

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("C:\Write.XML", ForWriting, True, TristateTrue)

sStr = "<?xml version = " & Chr(34) & "1.0" & Chr(34) & " encoding = " & _
    Chr(34) & "UTF-8" & Chr(34) & " ?>" & vbCrlf
sStr = sStr & "<book>" & vbCrlf
sStr = sStr & "</book>" & vbCrlf

oFile.WriteLine sStr

WScript.Echo "C:\Write.XML be Created"       

oFile.Close
Set oFile = Nothing

這程式使用的參數 TristateTrue 來產生 Unicode 檔案，但是此時的 Unicode 是 UTF-16 LE，而不是 UTF-8。
所以，就無法以點擊滑鼠兩次的方式來開啟該 XML 檔案。