sr.Openの前に ModeとTypeを指定してください。
VBScript
1sr.Mode = 3 '書き込みモード
2sr.Type = 2 'テキストデータ
###追記:空文字列でも出力できますよ。
さすがにNull値ではエラーが出ます。
VBScript
1Set sr = CreateObject("ADODB.Stream")
2dim Arr(2)
3Arr(0)="line 0"
4Arr(1)=""
5Arr(2)="line 2"
6
7WScript.StdOut.WriteLine "--start--"
8
9with sr
10 .Charset = "UTF-8"
11 .Mode = 3 '書き込みモード
12 .Type = 2 'テキストデータ
13 .Open
14
15 For i = 0 To UBound(Arr)
16 WScript.StdOut.WriteLine Arr(i)
17 .WriteText Arr(i), 1
18 Next
19 .SaveToFile "d:\\temp\\out.txt", 2
20 .Close
21End With
22WScript.StdOut.WriteLine "--end--"
出力はBOM付きUTF-8になります。
D:\temp>cscript //B foo.vbs
--start--
line 0
line 2
--end--
D:\temp>type out.txt
・ソline 0
line 2
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。