powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера
6 сообщений из 31, страница 2 из 2
Время включения и выключения компьютера
    #36757999
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aduka05adm,

Не из-за задачи увольняться, а (не дай божЕ) из-за неудачного исхода быть уволеным=))
...
Рейтинг: 0 / 0
Время включения и выключения компьютера
    #36758002
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
cynep kopoBka,
cynep kopoBkaа (не дай божЕ) из-за неудачного исхода быть уволеным=))
да ладно мелочи )
cynep kopoBkaКстати, у Вас сервак под чем на чем?
это вы меня спрашивали ?
cynep kopoBkaЧтобы не угробить всю сетку на работе
это вы автору или мне ? в его задаче сетка вроде вообще не используется
...
Рейтинг: 0 / 0
Время включения и выключения компьютера
    #36758006
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aduka05adm,

Все абсолютно Грустному автору коту. Простите, если где-то сослался по ошибке на ваше сообщение=))))

Ночь, знаете ли. Трудно сконцентрироваться, настраивая 2 Убунты на ноутах вновь обращенных в Линукс-веру блондинок и переписываться с адекватными программистами=)
...
Рейтинг: 0 / 0
Время включения и выключения компьютера
    #36780822
Спасибо всем, кто откликнулся и постарался помочь. Шпионов ставить начальник не разрешил. Сетка управляется самым главным боссом, так что тоже не очень развернешься.
Задача по-прежнему не решена, так как не ко всем компам я имею доступ.
Теперь уже мне самому хочется решить эту задачу.
Спасибо за примеры, очень прогодятся.

Есть ли на Win файл, где явно прописываются win-logon и win-logout?
...
Рейтинг: 0 / 0
Время включения и выключения компьютера
    #36780892
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Грустный котНачальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.

При такой постановке вопроса комп бы у меня выключался/включался без моего присутствия на работе... ;)
...
Рейтинг: 0 / 0
Время включения и выключения компьютера
    #36780934
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VSVLADПока колдую с API: OpenEventLog , ReadEventLog, CloseEventLog - хотелось бы прочитать данные из журнала событий
Код: 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.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'System' and (EventCode=12 or EventCode=13)") 

Debug.Print colLoggedEvents.Count
For Each objEvent In colLoggedEvents
    Debug.Print "TimeGenerated: " & objEvent.TimeGenerated,
    Debug.Print "EventCode: " & objEvent.EventCode,
    Debug.Print "Message: " & objEvent.Message
Next

TimeGenerated:  20100808065719 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?08T06: 57 : 18 .468750000Z.
TimeGenerated:  20100807184815 . 657226 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?07T18: 48 : 15 .657226500Z.
TimeGenerated:  20100807063806 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?07T06: 38 : 05 .484375000Z.
TimeGenerated:  20100806190619 . 307617 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?06T19: 06 : 19 .307617100Z.
TimeGenerated:  20100806074620 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?06T07: 46 : 19 .468750000Z.
TimeGenerated:  20100805202502 . 976562 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?05T20: 25 : 02 .976562500Z.
TimeGenerated:  20100805190159 . 718750 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?05T19: 01 : 58 .484375000Z.
TimeGenerated:  20100805091145 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?05T09: 11 : 44 .484375000Z.
TimeGenerated:  20100805084350 . 807617 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?05T08: 43 : 50 .807617100Z.
TimeGenerated:  20100805080305 . 718750 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?05T08: 03 : 04 .484375000Z.
TimeGenerated:  20100805062336 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?05T06: 23 : 35 .484375000Z.
TimeGenerated:  20100804175712 . 959960 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?04T17: 57 : 12 .959960900Z.
TimeGenerated:  20100804064401 . 703125 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?04T06: 44 : 00 .484375000Z.
TimeGenerated:  20100804064330 . 376953 - 000   EventCode:  13  Message: Системное время завершения работы операционной системы: ? 2010 ?-? 08 ?-?04T06: 43 : 30 .376953100Z.
TimeGenerated:  20100804063520 . 687500 - 000   EventCode:  12  Message: Системное время запуска операционной системы: ? 2010 ?-? 08 ?-?04T06: 35 : 19 .484375000Z.
Проще же.

Обратите внимание на два идущих подряд запуска. Это означает, что завершение работы произошло некорректно — отключение питания, BSOD или зависание. В этом случае временем отключения можно считать время последнего предыдущего события.
...
Рейтинг: 0 / 0
6 сообщений из 31, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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