Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Windows [игнор отключен] [закрыт для гостей] / найти пользователя в локальной сети / 6 сообщений из 6, страница 1 из 1
12.01.2010, 23:22:51
    #36406486
Oleg6619
Oleg6619
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
Есть большая сеть с несколькими доменами. Как узнать на каком рабочем месте работает пользователь домена? Можно просканировать все компьютеры, но это долго. Но ведь он входит через AD. Неужели нигде не фиксируется факт входа-выхода?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2010, 06:17:30
    #36406641
aleks2
aleks2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
Oleg6619,
Канешно фиксируется, только, один хрен, искать надо. В журнале Security доменного контроллера... если только пользователь вошел "честно".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2010, 06:51:18
    #36406645
ser9a
ser9a
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
для решения такой задачи можно сделать запуск скрипта при логоне который пишет в базу данных время входа время выхода и имя пользователя, а так же машину на которую зашол пользователь. а потом уж без особых проблем select from и вперед.

пример скрипта:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim UsrInfo
SET UsrInfo = WScript.CreateObject("WScript.Network")
Dim cn, rs
Set cn = CreateObject("ADODB.Connection")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "Provider=SQLOLEDB.1;Password= XXX ;Persist Security Info=True;User ID= Имя польз-ля БД;Initial Catalog= Имя БД;Data Source= Адрес сервера БД"
On Error Resume Next
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType =  3 
rs.LockType =  3 
rs.Open "EnterTime", cn
rs.AddNew
rs.Fields("fio").Value = UsrInfo.UserName
rs.Fields("host").Value = UsrInfo.ComputerName
rs.Fields("dat").Value = NOW
rs.Update
cn.Close

Ну естессно скрипт лучше скомпилировать и пользователь бд должен быть бесправным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2010, 06:51:53
    #36406646
ser9a
ser9a
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
вернее время выхода пишет при логоффе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2010, 09:33:39
    #36406759
Oleg6619
Oleg6619
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
Спасибо!
Т.е., как я понял, готового решения нет. Со скриптом красиво, но поставленная задача редко возникающая и делать БД для этого не хочется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2010, 09:55:38
    #36406790
const64
const64
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти пользователя в локальной сети
Если профиль сетевой, или там файлы какие-нибудь с сервера открываются, то в остнастке консоли управления сервера - общие папки, сеансы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Windows [игнор отключен] [закрыт для гостей] / найти пользователя в локальной сети / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 328ms
Закрыть
start [/forum/topic.php?fid=26&mobile=1&tid=1500550]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 189ms
total:  328ms
x
x
Закрыть


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