Ошибка в ведении логов захода в домен

@Jagir · Регистрация: 13.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Скрипт должен выполнять две функции:
1. Заносить в поле "Описание" запись о входе пользователя (строки 3-7)
2. Создавать (а если уже создан, то открыть) файл с именем компьютера, на котором работает пользователь. Занести туда информацию о времени, имени и т.д.

Вторая задача не выполняется - скрипт не создает и не заносит данные

Visual Basic

On Error Resume Next
Dim adsinfo, ThisComp, oUser, fso, tf
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Thiscomp.put "description", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("\\192.168.1.11\scripts\" + ThisComp.cn + ".txt") Then
Set tf = fso.OpenTextFile("\\192.168.1.11\scripts\" + ThisComp.cn + ".txt", 8, True)
tf.WriteLine "LOG ON" + " . " + Cstr(Now)+ " . " + oUser.sAMAccountName + " . " + ThisComp.cn
tf.CloseTextFile
Else
Set tf = fso.CreateTextFile("\\192.168.1.11\scripts\" + ThisComp.cn + ".txt", 8, True)
set tf = fso.OpenTextFile("\\192.168.1.11\scripts\" + ThisComp.cn + ".txt", 8, True)
tf.WriteLine "LOG ON" + " . " + Cstr(Now)+ " . " + oUser.sAMAccountName + " . " + ThisComp.cn
tf.CloseTextFile
End If
wscript.quit

подскажите, в чем ошибка. Спасибо!

Добавлено через 19 часов 39 минут
Решение нашел. Некорректно отрабатывались задачи создать и изменить файл ( пользователи не имели прав). Сам скрипт рабочий. Тему можно закрывать.

	30.04.2015, 12:47