| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
mda
Зарегистрирован: 31.05.2006
Сообщения: 13
|
 Добавлено: Пт Июн 02 2006 14:39 Заголовок сообщения: Просмотр пользователей залогинившихся в домене |
 |
|
| Каким образом можно увидеть на домене Win 2003 кто из юзеров домена залогинился и работает, а кто уже завершил работу? |
|
| Вернуться к началу |
|
 |
grf
Зарегистрирован: 05.04.2005
Сообщения: 1242
Откуда: Москва
|
| Добавлено: Пн Июн 05 2006 08:27 Заголовок сообщения: |
|
|
Не уверен, что это можно сделать встроенными средствами AD. У меня это организовано с помощью логон-логоф скриптов, при логоне в файл логонов заносится имя пользователя, время, имя машины, при логофе соответственно в файл логофа.   |
|
| Вернуться к началу |
|
|
mda
Зарегистрирован: 31.05.2006
Сообщения: 13
|
| Добавлено: Пн Июн 05 2006 10:20 Заголовок сообщения: |
|
|
На чем написаны скрипты и какае команды вынолняют данное отслеживание  |
|
| Вернуться к началу |
|
|
grf
Зарегистрирован: 05.04.2005
Сообщения: 1242
Откуда: Москва
|
| Добавлено: Пн Июн 05 2006 10:40 Заголовок сообщения: |
|
|
VBS
| Код: |
<job>
<script language="vbscript">
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
'ByVal dwReserved As Long) As Long
'Public Const EWX_LOGOFF = 0
'Public Const EWX_SHUTDOWN = 1
'Public Const EWX_REBOOT = 2
'Public Const EWX_FORCE = 4
'Dim s As Long
'Так можно сделать Shut down s = ExitWindowsEx(EWX_SHUTDOWN, 0&)
'Так можно сделать Log off s = ExitWindowsEx(EWX_LOGOFF, 0&)
'А так Reboot s = ExitWindowsEx(EWX_REBOOT, 0&
Set WSHNetwork = CreateObject("WScript.Network")
Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("\\server\log\userlogon.log", 8, true)
Dim LogonTime
Dim LogonDate
LogonTime = Time
LogonDate = Date
file.Write(LogonTime)
file.Write(" ")
file.Write(LogonDate)
file.Write(" " +wshNetwork.UserName)
file.Write(" " +wshNetwork.ComputerName)
file.WriteBlankLines(1)
file.Close()
</script>
</job>
|
по моему так, просто у меня более сложный скрипт, который еще раздает принтеры и запускает внешний батник, в зависимости от IP компа, поэтому пришлось выдрать нужный тебе кусок.
Делаешь текстовый файл, вставляешь туда этот текст, меняешь расшерение файла на .wsf и заносишь в групповую политику в скрипты.
|
|
| Вернуться к началу |
|
|
mda
Зарегистрирован: 31.05.2006
Сообщения: 13
|
| Добавлено: Пн Июн 05 2006 10:47 Заголовок сообщения: |
|
|
Большое спасибо за скриптик  А можно еще и на логоф скрипт |
|
| Вернуться к началу |
|
|
grf
Зарегистрирован: 05.04.2005
Сообщения: 1242
Откуда: Москва
|
| Добавлено: Пн Июн 05 2006 11:08 Заголовок сообщения: |
|
|
Он же самый и есть, только меняешь файл с userlogon.log на userlogoff.log, или на длюбой другой, какой тебе надо.
Путь тоже естественно поменяй с \\server\log на нужный тебе.
|
|
| Вернуться к началу |
|
|
mda
Зарегистрирован: 31.05.2006
Сообщения: 13
|
| Добавлено: Пн Июн 05 2006 11:43 Заголовок сообщения: |
|
|
СПАСИБО
 |
|
| Вернуться к началу |
|
|
Feniksa
Зарегистрирован: 28.08.2005
Сообщения: 122
Откуда: Чернобыль
|
| Добавлено: Пн Июн 05 2006 17:07 Заголовок сообщения: |
|
|
grf - а у тебя не найдёться на С++ такого скриптика? А?  |
|
| Вернуться к началу |
|
|
grf
Зарегистрирован: 05.04.2005
Сообщения: 1242
Откуда: Москва
|
| Добавлено: Вт Июн 06 2006 08:30 Заголовок сообщения: |
|
|
Сожалею, нет. Си я совершеенно не знаю  , впрочем VBS я тоже совершенно не знаю , скрипты я делал из готовых шаблонов, скаченных где-то с сайта микрософта в виде файла справки. |
|
| Вернуться к началу |
|
|
Feniksa
Зарегистрирован: 28.08.2005
Сообщения: 122
Откуда: Чернобыль
|
| Добавлено: Вт Июн 06 2006 10:25 Заголовок сообщения: |
|
|
Жаль. Ну ничего, я пороюсь в нете, может что нибуть путнего найду  |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
