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

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

Const ForReading = 1, ForWriting = 2, ForAppending = 8

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