| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Учет включения - выключения ПК
Call BeginWork
Sub BeginWork ()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fil, fl, tim
tim = Now
Set fil = CreateObject("Scripting.FileSystemObject")
Set fl = fil.OpenTextFile ("c:\uchet.txt",ForAppending, True)
fl.Write "Работник пришел " & tim & vbCrLf
fl.Close
End Sub
Дальше создаешь еще один файл с тем же расширением, и пишешь там:
Call EndWork
Sub EndWork ()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fil, fl, tim
tim = Now
Set fil = CreateObject("Scripting.FileSystemObject")
Set fl = fil.OpenTextFile ("c:\uchet.txt",ForAppending, True)
fl.Write "Работник ушел " & tim & vbCrLf
fl.Close
End Sub
Теперь открываешь утилиту редактирования групповой политики gpedit.msc и в разделе User Configuration > Windows Settings > Scripts(Logon/Logoff) в качестве Logon скрипта прописываешь первый файл, а в качестве Logoff - второй. Теперь, даже если юзверь будет просто выключать компутер, Винда все равно будет делать сначала Logoff, а потом шатдаун всем службам, т.е. Logoff-скрипт все равно исполнится. И теперь, при каждом входе на эту машину под каким-либо именем будет писаться в файле c:\uchet.txt "Работник пришел ", а при выходе - "Работник ушел ". Если не нравится путь, найди строчку с
"c:\uchet.txt" в обоих файлах и подправь путь. Можно задать разные пути для журналов прихода и ухода. Если файла такого нет, скрипт его создаст сам.
|
| Категория: Скрипты | Добавил: IgorD (21.01.2010)
|
| Просмотров: 1402
| Рейтинг: 0.0/0 |
|
|
|
