Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера / 25 сообщений из 31, страница 1 из 2
  1  все
23.07.2010, 22:53
    #36757448
Грустный кот
Грустный кот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Подскажите пожалуйста, как на своем и как на чужом в сетке компьютере узнать последнее время включения и выключения?
Где именно в Win XP, Win Vista и Win7 фиксируется такая информация и как средствами VB вытащить ее?
Начальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2010, 23:33
    #36757467
Relic Hunter
Relic Hunter
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Грустный кот,

Windows32 programmer's ReferenceThe GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

DWORD GetTickCount(VOID)

Parameters

This function has no parameters.

Return Values

If the function succeeds, the return value is the number of milliseconds that have elapsed since Windows was started.

Remarks

The elapsed time is stored as a DWORD value. Therefore, the time will wrap around to zero if Windows is run continuously for 49.7 days.
Windows NT: To obtain the time elapsed since the computer was started, look up the System Up Time counter in the performance data in the registry key HKEY_PERFORMANCE_DATA. The value returned is an 8 byte value.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 03:15
    #36757562
Валентин67
Валентин67
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Грустный котНачальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.

Можете предложить своему начальнику такой вариант. Точнее поискать на сайтах с программным обеспечением программу под названием StaffCop.
Программа из разряда мониторинга деятельности сотрудников за компьютерами, контроля рабочего времени и обеспечения информационной безопасности организации.

Программа следит:
когда и какие запускались приложения, сколько времени с ними работали;
какие и когда открывались сайты и страницы, сколько времени их просматривали;
время отправки/получения сообщений, контакты собеседников, текст сообщений;
отслеживается время включения/выключения компьютера и входа/выхода в систему;
и другие действия.

Программа состоит из двух модулей – администраторского, который устанавливается на компьютер администратора, и пользовательского (агента). Агенты устанавливаются на компьютеры пользователей, осуществляют сбор информации об активности сотрудников и передают ее администраторскому модулю. Агент представляет из себя драйвер небольшого размера, работающий как служба Windows. По умолчанию агент работает в невидимом режиме, как программа-шпион – пользователь компьютера будет знать, что за ним ведется наблюдение, только если вы сами захотите этого.

Грустный котПодскажите пожалуйста, как на своем компьютере узнать последнее время включения и выключения? Где именно в Win XP фиксируется такая информация?

Как средствами VB вытащить ее?

1. Панель управления\Администрирование\Просмотр событий->Система
ищешь события eventlog, соответсвенно о запуске и о остановке службы и смотришь на дату и время
Последнее событие за день - "Служба журнала событий остановлена", код (если не ошибаюсь) 6006
Последующие события - а именно "Запущена служба журнала событий", код 6005.

2. Само приложение Windows (служба) "Просмотр событий" расположена C:\WINDOWS\system32\eventvwr.msc или библиотека eventlog.dll
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 09:48
    #36757612
Грустный кот
Грустный кот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Спасибо за советы, буду пробовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 09:56
    #36757615
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Советы советами а по существу:
как средствами VB вытащить ее?
Ничего то нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 14:10
    #36757721
Валентин67
Валентин67
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Ципихович ЭндрюСоветы советами а по существу: как средствами VB вытащить ее?

Вопрос конечно интересный - ранее уже приходилось задумываться.
Решил "копать" и вот - класс EventLog - http://msdn.microsoft.com/ru-ru/library/system.diagnostics.eventlog.aspx

У кого получиться правильно использовать этот класс, что бы реализовать то, о чем пишет Грустный кот, то выложите код в студию (просьба).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 14:43
    #36757734
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Валентин67,

присоединяюсь:
У кого получиться правильно использовать этот класс, что бы реализовать то, о чем пишет Грустный кот, то выложите код в студию (просьба).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 19:24
    #36757845
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Это .NET класс, а тема была про VB6. Так на чём всё-таки будет проект?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 19:45
    #36757850
Грустный кот
Грустный кот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
VSVLADЭто .NET класс, а тема была про VB6. Так на чём всё-таки будет проект?

На VB6.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 21:12
    #36757885
cynep kopoBka
cynep kopoBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
WPI в помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 21:18
    #36757887
cynep kopoBka
cynep kopoBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
ЗЫ: или количество тиков с момента старта. Молодой человек, выбирайте любой метод. Если со знаниями совсем грустно - вешайте на каждую тачку демона, который будет сечь время старта и финиша ОС, после чего, синхронизировать свою инфу с сервером.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 22:52
    #36757922
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
можно и vbscript использовать
ставьте на загрузку windows и нет проблем
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
option explicit
dim fso ,ts , ForAppending
dim a,b , c
' msgbox len(now()) ' подсчитываем кол-во символов
' Функция CStr(Conversion to String) используется для приведения 
' числового выражения в строку (тип String)
  a=CStr(NOW)
  ' Функция Mid(Middle) используется для считывания заданного числа символов или байт 
  ' подряд от заданной позиции в строке слева направо. Нумерация 
  'символов в строке всегда начинается с единицы. Для определения 
  'числа символов в строке следует использовать функцию Len
  ' Mid(String,Start,[Length])
  b=Mid(a, 1 , 2 )
  b=b&"-" &Mid(a, 4 , 2 )
  b=b&"-" &Mid(a, 7 , 4 )
  c=Mid(a, 12 , 2 )
  c=c&":" &Mid(a, 15 , 2 )
  c=c&":" &Mid(a, 18 , 2 )
  b="ДАТА ЗАПУСКА :" & b
  c="ВРЕМЯ ЗАПУСКА :" & c
'Создаем объект FileSystemObject
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
ForAppending =  8  ' открываем записываем в конец файла
' открываем log.txt в текущем каталоге
Set ts = fso.OpenTextFile("log.txt", ForAppending, True)
'запись даты и времени в файл 'log.txt'
ts.Write b & chr( 13 ) & chr( 10 ) & c & chr( 13 ) & chr( 10 )
'закрываем файл
ts.Close
a=""
b=""
c=""
выглядеть будет так

ДАТА ЗАПУСКА :24-07-2010
ВРЕМЯ ЗАПУСКА :22:50:02
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 23:41
    #36757937
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
также и на VB6 можно создать чисто модуль
и вписать туда и поставить в планировщик на загрузку windows
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit
Public Sub Main()
On Error GoTo my_err
Dim Fnum As Long
Dim FileName As String
Dim FileDate As String
Dim FileTime As String
Dim isOpen As Boolean
FileName = "C:\log.txt"
Fnum = FreeFile
FileDate = "start-up date :" & Format(Date, "DD-MM-YYYY")
FileTime = "start-up time :" & Format(Time, "HH:MM:SS")
Open FileName For Append As #Fnum
isOpen = True
Print #Fnum, FileDate + Chr( 13 ) + FileTime
my_err:
If isOpen Then Close #Fnum
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 23:46
    #36757940
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
А лучше добавить в Logon Startup групповой политики, тогда можно фиксировать как запуск компьютера, так и его остановку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 23:56
    #36757943
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
VSVLADА лучше добавить в Logon Startup групповой политики, тогда можно фиксировать как запуск компьютера, так и его остановку.
это где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2010, 23:59
    #36757944
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
aduka05adm,

Пуск -> Выполнить "gpedit.msc"
Далее: Конфигурация компьютера -> Конфигурация Windows -> Запуск компьютера

p.s. Очень много настроек полиси там, важная вещь для сисадмина = )
p.s.s. OS: XP Professional, права админа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 00:06
    #36757946
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
VSVLAD,
не было надобности , а так спасибо)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 00:09
    #36757947
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Да я и сам не админ )) просто так, хорошая вещь против вирусов (разбловировка реестра, диспетчера)
Пока колдую с API: OpenEventLog , ReadEventLog, CloseEventLog - хотелось бы прочитать данные из журнала событий
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 00:12
    #36757949
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
VSVLAD,
пользовался чисто локальной политикой безопасности
Администрирование-Локальная политика безопасности
ESET SMART SECURITY че то со временем мне там все сбивал
да и ZVER CD на многих машинах стоял , приходилось лазить туда
вот ссылка для вас ))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 00:16
    #36757951
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
VSVLAD,
VSVLADПока колдую с API: OpenEventLog , ReadEventLog, CloseEventLog - хотелось бы прочитать данные из журнала событий
просто для себя ? или стандартный не устраивает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 02:07
    #36757992
cynep kopoBka
cynep kopoBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
У мну предложение "интимного плана". Чтобы не угробить всю сетку на работе с последующим получением "антипряников" от руководителя, попробуйте договориться с руководством о присутствии в офисе специалиста с якобы готовым решением. За связку бананов или иные материальные ценности, думается, найдется нужный человек. Причем, он все протестит и за последствия этих действий сможет нести ответственность.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 02:10
    #36757993
cynep kopoBka
cynep kopoBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Кстати, у Вас сервак под чем на чем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 02:11
    #36757994
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
cynep kopoBkaУ мну предложение "интимного плана". Чтобы не угробить всю сетку на работе с последующим получением "антипряников" от руководителя, попробуйте договориться с руководством о присутствии в офисе специалиста с якобы готовым решением. За связку бананов или иные материальные ценности, думается, найдется нужный человек. Причем, он все протестит и за последствия этих действий сможет нести ответственность.
для такой задачи столько телодвижений зачем ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 02:18
    #36757995
cynep kopoBka
cynep kopoBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
Я просто предложил. Мало ли...
Можно найти человека, а можно, знаете ли (тьфу-тьфу-тьфу) новую работу. Если не уверены в своих действиях - стоит ли дергать судьбу за вымя?=)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2010, 02:28
    #36757997
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время включения и выключения компьютера
cynep kopoBka,
Грустный кот Начальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.
ну если из за этого увольняться , то тогда врядли че найдешь)
Грустный котфиксировать реальное время работы сотрудников в офисе
бедные начальники как им спится тяжело
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера / 25 сообщений из 31, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]