Zapis danych do pliku

Dim fso, file_r
Set fso  = CreateObject("Scripting.FileSystemObject")

Set file_r = fso.CreateTextFile("raport.txt", True, False)
file_r.WriteLine("Tekst do zapis")
file_r.Close

WScript.echo "Koniec"