Не могу записать в файл - VB

Формулировка задачи:

Доброго времени суток. Хочу стандартными средствами винды осуществлять запись строк в файл (vbs скриптом). Но синтаксис языка не знаю, поэтому столкнулся с проблемой сразу же на ровном месте.

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", 2, True, 1)
tf.WriteLine "test_ok"
tf.close

Вроде всё с образцов интернета взято. Но не работает. Возникает ошибка "Недопустимый вызов или аргумент процедуры". Подскажите, что неправильно?

Решение задачи: «Не могу записать в файл»

textual
                            Листинг программы 
                        

                            strComputer = "."
 
    Dim fso, tf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.OpenTextFile("C:\Users\User\Desktop\Скрипты аудит\test.txt", 8, True)
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Security)}!\" & _
        strComputer & "\root\cimv2")
 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    
    ("Select * from __instancecreationevent where " _
        & "TargetInstance isa 'Win32_NTLogEvent' " _
            & "and TargetInstance.EventCode = '4801' ")
 
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
     strAlertToSend = objLatestEvent.TargetInstance.User _ 
         & " attempted to access DatabaseServer."
    tf.WriteLine "4801"
    tf.close
Loop
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Security)}!\" & _
        strComputer & "\root\cimv2")
 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    
    ("Select * from __instancecreationevent where " _
        & "TargetInstance isa 'Win32_NTLogEvent' " _
            & "and TargetInstance.EventCode = '4800' ")
 
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
     strAlertToSend = objLatestEvent.TargetInstance.User _ 
         & " attempted to access DatabaseServer."
    Set tf = fso.OpenTextFile("C:\Users\User\Desktop\Скрипты аудит\test.txt", 8, True)
    tf.WriteLine "4800"
    tf.close
Loop
                        