Всем привет. Скажу сразу это не реклама, а реально нииид хеплп!!! Есть головной офис и несколько филлиалов по все России матушке. Поставили задачу: Когда сотрудник в филиале включает\выключает компьютер, то в офисе соответственно отображается время прихода\ухода. Что он на компе делает нас не интересует, главное приход\уход. Как это реализовать на программном уровне? подскажите плииз.
» Учет времени прихода сотрудников (НЕ РЕКЛАМА!!!)
Как отличить реальное выключение и включение от перезагрузки (выкл+вкл)?
Какая-то тупая "хотелка" от недалекого руководителя - можно договориться с ответственным сотрудником, платить ему маленькую сумму в месяц офисом и он будет ровно в минуту окончания рабочего дня ходить и выключать компьютеры всего офиса, в то время когда все уже давно уйдут пораньше. Также будет приходить и включать в начале рабочего дня, пока остальные высыпаются сколько им надо.
Какая-то тупая "хотелка" от недалекого руководителя - можно договориться с ответственным сотрудником, платить ему маленькую сумму в месяц офисом и он будет ровно в минуту окончания рабочего дня ходить и выключать компьютеры всего офиса, в то время когда все уже давно уйдут пораньше. Также будет приходить и включать в начале рабочего дня, пока остальные высыпаются сколько им надо.
Понимаю, но тут по принципу "он начальник- я дурак".
LanAgent, умеет собирать все логи, скрины, переписки, ввод с клавиатуры, не нужное можно обрубить и оставить только лог включения - выключения ПК, данные можно выводить отчетом. Устанавливать можно удаленно, пользователь даже ничего не заметит.
Для таких целей есть другие средства, причем не дорогие СКУД самый наверно подходящий способ выполнить требгвание. А всякого рода манипуляции с компами, это пустая затея на мой взгляд.
Ну почему пустая. Если погрешности такого измерения удовлетворят запросы - вполне себе рабочий вариант...
Цитата:
Понимаю, но тут по принципу "он начальник- я дурак".
Ну так расскажите начальнику, что компьютеры умеют "сами" включаться и выключаться по расписанию (и еще разными другими способами) и любой не ленивый пользователь эту настройку в БИОСе нагуглит быстро.
И из такой программной реализации выйдет "пшик".
Пусть задаст себе вопрос- "почему остальные так не делают, недостаточно умные? "
[more] Нашел решение с помощью скрипта vbs.
Сделал сетевую папку с разрешением на запись пользователям, создал 2 скрипта для событий logon и logoff. С помощью групповой политики запускаю эти скрипты. Они во время работы записывают в текстовый файл следующие данные:
Тип события: logon или logoff.
Имя компьютера.
Имя пользователя.
Время события
сам скрипт
Код: Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
objUserName = objNetwork.UserName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
MyStroka = "User: " & (objUserName) & vbNewLine & "Компьютер: " & (objComputerName) & vbNewLine & "Время: "'
On Error Resume Next
Const ForWriting = 2
Const ForReading = 1
Const ForAppending = 8
Const TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set GObjArgs = WScript.Arguments
GStrCmd = GObjArgs(0)
Call crypt(GStrCmd)
Sub crypt(msg)
n = Len(msg)
c = 0
Do Until c = n
c = c + 1
t1 = Mid(msg,c,1)
ch = Chr(asc(t1)+n)
output = output & ch
Loop
MyComp = objComputerName
MyPath = "\\192.168.0.100\logon-info\"
MyDate = Date
MyTime = Time
MyDir = MyPath & MyComp
If Not FSO.FolderExists(MyDir) Then
FSO.CreateFolder(MyDir)
End If
Mytxt = ".txt"
My1 = "\"
Myfile = MyDir & My1 & MyDate & Mytxt
Set GObjLocalF = fso.OpenTextFile(Myfile,ForAppending,True)
GObjLocalF.WriteLine "###########LOGON#################"
GObjLocalF.WriteLine MyStroka & Time
GObjLocalF.WriteLine "#################################"
GObjLocalF.Close
End Sub
Сделал сетевую папку с разрешением на запись пользователям, создал 2 скрипта для событий logon и logoff. С помощью групповой политики запускаю эти скрипты. Они во время работы записывают в текстовый файл следующие данные:
Тип события: logon или logoff.
Имя компьютера.
Имя пользователя.
Время события
сам скрипт
Код: Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
objUserName = objNetwork.UserName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
MyStroka = "User: " & (objUserName) & vbNewLine & "Компьютер: " & (objComputerName) & vbNewLine & "Время: "'
On Error Resume Next
Const ForWriting = 2
Const ForReading = 1
Const ForAppending = 8
Const TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set GObjArgs = WScript.Arguments
GStrCmd = GObjArgs(0)
Call crypt(GStrCmd)
Sub crypt(msg)
n = Len(msg)
c = 0
Do Until c = n
c = c + 1
t1 = Mid(msg,c,1)
ch = Chr(asc(t1)+n)
output = output & ch
Loop
MyComp = objComputerName
MyPath = "\\192.168.0.100\logon-info\"
MyDate = Date
MyTime = Time
MyDir = MyPath & MyComp
If Not FSO.FolderExists(MyDir) Then
FSO.CreateFolder(MyDir)
End If
Mytxt = ".txt"
My1 = "\"
Myfile = MyDir & My1 & MyDate & Mytxt
Set GObjLocalF = fso.OpenTextFile(Myfile,ForAppending,True)
GObjLocalF.WriteLine "###########LOGON#################"
GObjLocalF.WriteLine MyStroka & Time
GObjLocalF.WriteLine "#################################"
GObjLocalF.Close
End Sub
Устроят региональные власти блэкаут в филиале на пару-тройку дней, и руководитель предприятия в центральном офисе, согласно полученной статистике в конце недели, всех уволит
Добавлено:
lynin777, вот такую штуку поставь по филиалам - поможет избежать любого мухлежа со стороны недобросовестных сотрудников. Ну и руководитель твой будет железобетонно уверен в получаемой статистике с регионов.
Добавлено:
lynin777, вот такую штуку поставь по филиалам - поможет избежать любого мухлежа со стороны недобросовестных сотрудников. Ну и руководитель твой будет железобетонно уверен в получаемой статистике с регионов.
Нужно так :
нажимает на клавиши - работает
не нажимает - не работает
и платить повременно
нажимает на клавиши - работает
не нажимает - не работает
и платить повременно
reenoip
Цитата:
Блин, я бы такую девайсину ещё около туалета и курилки установил бы.
Цитата:
вот такую штуку поставь по филиалам
Блин, я бы такую девайсину ещё около туалета и курилки установил бы.
urodliv, не стоит, иначе руководитель вообще в жизни и в людях разочаруется
E C S
Ставишь автокликер, и типо работаешь сутками)
Ставишь автокликер, и типо работаешь сутками)
На самом деле.
Руководитель ПРАВ.
Просто не совсем далекие от менеджмента люди не думают о высших целях Руководства.
На самом деле есть теория и она имеет право на жизнь и довольно большое.
По хорошему сама информация о приходе уходе не так интересна.
Больше интересна статистика прихода/ухода каждого сотрудника и всего коллектива в целом.
К примеру рабочий день с 9 до 18.
Весь офис приходит в 8:45-9:10 и уходит в 17:55-18:05
Но вдруг все меняется и время прихода сдвигается на 8:45-9:55 вопрос почему???
Или сотрудники (как подумали все) просто обнаглели и стали забивать на работу. ИЛИ?
Возможно в коллективе который отлично и слаженно выполнял свои функции появились проблемы. И Настоящему Руководителю это будет первый звоночек, что пора принимать меры по устранению сложностей. Меры не обязательно увольнение, возможно кто-то хочет свалить сам в связи с тем, что просто засиделся и хочет роста который ему тут не светит.
Не будем вдаваться в менеджмент глубже. Но это все не так просто Кому интересно MBA вам в помощь.
А по существу могу сказать следующее:
Есть такая вещь как Аудит.
Я надеюсь у ТС машинки в домене и с Виндой.
Аудит это такая хитрая штука которая пишет данные которые надо и куда надо.
Так вот спасибо Билли он подумал о руководителях, но возможно не до конца, а может я не совсем его понял.
Гуглом все умеют пользоваться?
1.
"10 критически важных event ID для мониторинга"
Надеюсь все кому надо попадут на хабр и почитают.
2. Надо собрать логи и по этим логам построить графики. Как этот пункт сделать наверное уже другая тема
Руководитель ПРАВ.
Просто не совсем далекие от менеджмента люди не думают о высших целях Руководства.
На самом деле есть теория и она имеет право на жизнь и довольно большое.
По хорошему сама информация о приходе уходе не так интересна.
Больше интересна статистика прихода/ухода каждого сотрудника и всего коллектива в целом.
К примеру рабочий день с 9 до 18.
Весь офис приходит в 8:45-9:10 и уходит в 17:55-18:05
Но вдруг все меняется и время прихода сдвигается на 8:45-9:55 вопрос почему???
Или сотрудники (как подумали все) просто обнаглели и стали забивать на работу. ИЛИ?
Возможно в коллективе который отлично и слаженно выполнял свои функции появились проблемы. И Настоящему Руководителю это будет первый звоночек, что пора принимать меры по устранению сложностей. Меры не обязательно увольнение, возможно кто-то хочет свалить сам в связи с тем, что просто засиделся и хочет роста который ему тут не светит.
Не будем вдаваться в менеджмент глубже. Но это все не так просто Кому интересно MBA вам в помощь.
А по существу могу сказать следующее:
Есть такая вещь как Аудит.
Я надеюсь у ТС машинки в домене и с Виндой.
Аудит это такая хитрая штука которая пишет данные которые надо и куда надо.
Так вот спасибо Билли он подумал о руководителях, но возможно не до конца, а может я не совсем его понял.
Гуглом все умеют пользоваться?
1.
"10 критически важных event ID для мониторинга"
Надеюсь все кому надо попадут на хабр и почитают.
2. Надо собрать логи и по этим логам построить графики. Как этот пункт сделать наверное уже другая тема
Страницы: 1
Предыдущая тема: маршруты в двух сетях
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.