Фиксирование логона пользователя

[Mastdiers]

Доброго времени суток.

Идея такая - во время загрузки компа нужно, чтобы выполнялся скрипт, записывающий (добавляющий строку) в расшаренный файл на серваке имя пользователя и время его входа в систему. Как бы мне его так написать?
Скажу честно, с VBS дела вообще не имел. На VB писал когда-то

[codemaster]

Доброго времени суток.

Идея такая - во время загрузки компа нужно, чтобы выполнялся скрипт, записывающий (добавляющий строку) в расшаренный файл на серваке имя пользователя и время его входа в систему. Как бы мне его так написать?
Скажу честно, с VBS дела вообще не имел. На VB писал когда-то

см. Политики на сервере
поставь аудит Login LogOFF

[Mastdiers]

Неа, нужен скрипт.
Да я уже почти разобрался, только не могу понять как достать имя пользователя (%username%), и как ДОПИСАТЬ в файл. У меня почему-то он все переписывает, те стирает все и записывает новую строку. В общем как определить конец файла?

Сейчас у меня вот так:

Код: Выделить всё


Dim fso, tf, str, tm
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("c:\test.txt", ForWriting, True)

str = "Read The Fucking Manual "
tm = Now 'Системное время

tf.Write (str) ' Вставка строки
tf.WriteLine (tm) ' Вставка времени
tf.Close

[Mastdiers]

Вот. Кстати, очень удобно. Есть некоторая группа юзеров, время прихода и ухода которых записывается в файлик на серваке. Не нужно каждый раз залезать им в логи. Открыл файл и посмотрел.

Код: Выделить всё

Dim fso, tf, str, pc, user, tm
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForAppening = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("c:\test2.txt", ForAppening, True)
pc = WshNetwork.ComputerName
user = WshNetwork.UserName
tm = Now
tf.WriteLine ("Вход в систему: " & pc & " " & user & " " & tm)
tf.Close
Set WshNetwork = Nothing
Set fso = Nothing
Set tf = Nothing


[Ruslan Demidow]

Mastdiers

Код: Выделить всё


Dim NET
Set NET=CreateObject("Wscript.Network")
WScript.Echo NET.UserName


[Mastdiers]

Спасиб. Но я уже все сделал - выше сообщение - работающий скрипт
Мне сообщение-то не надо. Нужен был именно файл.