[Zoldan]

В логах ошибок нет. Я для эксперемнта попытался записать в файл чегонибуть и взял шару на другой машине:

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
rem F FSO.FileExists("\\192.168.4.7\user-info\test.log") Then
rem	MsgBox "Файл найден"
rem Else
rem	MsgBox "Файл не найден"
rem End If
Set UserInfoFile = FSO.OpenTextFile("\\192.168.4.100\s-1\test.log", 8)
UserInfoFile.WriteLine("test: " & Date & " " & Time)
UserInfoFile.Close

Так же никуда не пускает и вот сообщение:
строка 20 это как раз:

Код:

Set UserInfoFile = FSO.OpenTextFile("\\192.168.4.100\s-1\test.log", 8)