Логирование в файл на сервере входа и выхода пользователей

@xeon13 · Регистрация: 22.11.2012

Студворк — интернет-сервис помощи студентам

Видел на просторах интернета такую идею скрипта: при входе пользователя запускается какой-то сценарий и в папочку на домене в лог-файл производится запись времявхода, имяюзера, ФИО, имя компа на который он вошёл... При выходе или выключении компа запускается аналогичный сценарий только с записью времени выхода. Так же в случае удалёного сеанса RDP либо RemoteAPP так же кто, во сколько и куда вошёл и вышел..

Как бы удобная штука, для анализа кто во сколько и куда заходил выходил - для сисадмина. Такой лог удобней анализировать в случае каких-то проишествий, нежели анализировать расшифровывать логи виндовс сервера.

Подскажите может у кого есть такой или наработки, а то я даже не знаю с чего начинать?

@xeon13 · 16.02.2017, 08:48 **[ТС]**

Сообщение от Dmitrii

А так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim objWMI, objCollection, objItem, arrSubKeys, intOSVersion, strType
Const HKCU = &H80000001
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT Version FROM Win32_OperatingSystem")
For Each objItem In objCollection
 intOSVersion = CInt(Replace(Left(objItem.Version, 3), ".", ""))
Next
Set objItem = Nothing: Set objCollection = Nothing
Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")
If intOSVersion > 52 Then
 objWMI.EnumKey HKCU, "Volatile Environment", arrSubKeys
 objWMI.GetStringValue HKCU, "Volatile Environment" & arrSubKeys(UBound(arrSubKeys)), "SESSIONNAME", strType
Else
 objWMI.GetStringValue HKCU, "Volatile Environment", "SESSIONNAME", strType
End If
Set objWMI = Nothing
WScript.Echo strType

Разобрался как работает скрипт и что ищет, но не могу в конце скрипта вывести WScript.Echo strType. ругается с ошибкой
Oшибкa: Hecooтвeтcтвиe типa
Кoд: 800A000D
Как проверить что суёт в эту переменную? тип данных какой?

@Dmitrii · 16.02.2017, 09:49

Сообщение от xeon13

... тип данных какой?

Используйте функцию TypeName():

Visual Basic
1
WScript.Echo TypeName(strType)

@xeon13 · 16.02.2017, 11:56 **[ТС]**

WScript.Echo TypeName(strType) - пишет Null
Что может быть не так?

Добавлено через 1 час 4 минуты
И ещё:

Visual Basic
1
strVer = LCase(GetObject("LDAP://" & objSysInfo.ComputerName).operatingSystemVersion)

При запуске скрипта на компе без контроллера домена выводит ошибку. есть способ получить "objSysInfo.ComputerName" без LDAP ?

@Dmitrii · 16.02.2017, 14:10

Сообщение от xeon13

... Что может быть не так?

Проверьте наличие параметра SESSIONNAME в ветке реестра HKEY_CURRENT_USER\Volatile Environment\x\, где x - число, являющееся именем подраздела, сопоставленного с сеансом текущего пользователя.
Если с этим всё в порядке, то попробуйте добавить в сценарий оператор приостановки на несколько секунд перед оператором подключения к WMI-классу StdRegProv:

Visual Basic
1
2
WScript.Sleep 3000
Set objWMI = GetObject("winmgmts:\\.\root\default:StdRegProv")

Сообщение от xeon13

... есть способ получить "objSysInfo.ComputerName" без LDAP ?

Нет.

@xeon13 · 16.02.2017, 15:32 **[ТС]**

наваял тут скрипт:

Visual Basic
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
Set objSysInfo = CreateObject("ADSystemInfo")
Const HKCU = &H80000001
 
'Определение типа подключения (интерактивное CONSOLE или RDP-терминал)
Set objShell = CreateObject("WScript.Shell")
SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
 
'Проверка можно раскоментировать
'WScript.Echo SessName
 
'Если Windows Больше версии Server 2003 >
'#############Для информации##############
'VER 5.0="Windows 2k"
'VER 5.1.="Windows XP"
'VER 5.2.="Windows 2003"
'VER 6.0.="Windows Vista"
'VER 6.1.="Windows 7"
'VER 6.2.="Windows 8"
'VER 6.3.="Windows 8.1"
'VER 10.0.="Windows 10"
'#########################################
 
If SessName = "%SESSIONNAME%" Then 
strVer = LCase(GetObject("LDAP://" & objSysInfo.ComputerName).operatingSystemVersion)
Set objSysInfo = Nothing
  If Len(strVer) > 0 Then
    strVer = CInt(Replace(Left(strVer, 3), ".", ""))
     If strVer > 52 Then
        Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        objWMI.EnumKey HKCU, "Volatile Environment", arrSubKeys
        objWMI.GetStringValue HKCU, "Volatile Environment" & arrSubKeys(UBound(arrSubKeys)), "SESSIONNAME", SessName
        Set objWMI = Nothing
     Else
        SessName = CreateObject("WScript.Shell").Environment("Volatile").Item("SESSIONNAME")
     End If
  End If
End If
 
'Проверка можно раскоментировать
'WScript.Echo "1 " & SessName
 
On Error ReSume Next
 
'(ForWriting 2 Открытие файла для записи. Если существует файл с таким же именем, его содержимое перезаписывается.)
ConSt ForWriting = 2
 
'(ForReading 1 Открытие файла только для чтения. Запись в этот файл невозможна.)
ConSt ForReading = 1
 
'(ForAppending 8 Открытие файла и запись в конец файла.)
ConSt ForAppending = 8
 
'(TristateFalse 0 Открывает файл в формате ASCII.)
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
 
Set logFile = fSo.OpenTextFile("\\TSServer\LogONOff$" & objComputerName & "_" & month(now()) & "." & year(now()) & ".txt",ForAppending,True)
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON: " & "(" & SessName & ")" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
'logFile.WriteLine "#################################"
GObjLocalF.CloSe
End Sub
 
WScript.Quit 0

Вобщем на контроллере домена прекрасно работает. разные ОС вроде-бы показывают правильно консольный или RDP вход.
Но на сервере который не в домене (всунул через gpedit.msc) пишет ошибку:
Cтpoкa: 35
Cимвoл: 1
Oшибкa: He yдaлocь пoлyчить дaнныe o кoнфигypaции oт
кoнтpoллepa дoмeнa. Либo oн oтключeн, либo к нeмy нeт
дocтyпa.
Кoд: 80070547
Иcтoчник: (null)

Добавлено через 1 минуту
35тая строка эта:

Visual Basic
1
strVer = LCase(GetObject("LDAP://" & objSysInfo.ComputerName).operatingSystemVersion)

почему так происходит не могу понять. подскажите?

@Dmitrii · 16.02.2017, 19:20

Сообщение от xeon13

... почему так происходит...

Потому что сервер не входит в состав домена.
Поскольку единственная цель использования LDAP-интерфейса ADSystemInfo в вашем сценарии - это определение версии текущей ОС, то от его использования можно отказаться.
Версию ОС можно определять, например, с помощью WMI:

Visual Basic
1
2
3
4
5
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT Version FROM Win32_OperatingSystem")
For Each objItem In objCollection
    strVer = CInt(Replace(Left(objItem.Version, 3), ".", ""))
Next

или с помощью объекта WshShell:

Visual Basic
1
2
Set objWShell = CreateObject("WScript.Shell")
strVer = CInt(Replace(objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), ".", ""))

Эти способы одинаково успешно будут работать и на тех компьютерах, которые входят в состав домена, и на тех,-
которые не входят.

@xeon13 · 17.02.2017, 09:17 **[ТС]**

Доделал.. Установил. Проверил. вроде работает. жду комментарии рекомендации и критику ошибок:
Скрипт рабочий! УРАА!!! получилось наконец-то именно то что я хотел и качесвтенно и 100% рабочее.
Dmitrii огромное тебе спасибо. без тебя бы скрипт не получился таким классным.
Кстати, выбрал WSH и был приятно удивлён насколько он быстро работает и не жрёт ресурсов при загрузке. компы и сессии грузятся быстрее чем грузились через LDAP.

Visual Basic
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
'#####################################################
'# Скрипт записи логов входа пользователя LOGON или LOGOFF "\\TSServer\LogONOff$"
'# в шаренную папку сервера. по умолчанию: LogONOff$
'# возникла необходимость контролировать входы и выходы.
'# в полученном логе различаются типы подключения интерактив или RDP
'# лог создаётся месяц.год.txt .
'# Автор E}|{uk@RUSnet (Димитровград) 2016г.
'# Большое спасибо за подсказки и помощь в написании скрипта tisha_ и Dmitrii (cyberforum.ru)
'#####################################################
 
 
Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
Set objSysInfo = CreateObject("ADSystemInfo")
Const HKCU = &H80000001
 
'Определение типа подключения (интерактивное CONSOLE или RDP-терминал)
Set objShell = CreateObject("WScript.Shell")
SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
 
'Проверка можно раскоментировать
'WScript.Echo SessName
 
'Если Windows Больше версии Server 2003 >
'#############Для информации##############
'VER 5.0="Windows 2k"
'VER 5.1.="Windows XP"
'VER 5.2.="Windows 2003"
'VER 6.0.="Windows Vista"
'VER 6.1.="Windows 7"
'VER 6.2.="Windows 8"
'VER 6.3.="Windows 8.1"
'VER 10.0.="Windows 10"
'#########################################
 
If SessName = "%SESSIONNAME%" OR SessName <> " " Then 
Set objWShell = CreateObject("WScript.Shell")
strVer = CInt(Replace(objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), ".", ""))
Set objSysInfo = Nothing
  If Len(strVer) > 0 Then
    strVer = CInt(Replace(Left(strVer, 3), ".", ""))
     If strVer > 52 Then
        Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        objWMI.EnumKey HKCU, "Volatile Environment", arrSubKeys
        objWMI.GetStringValue HKCU, "Volatile Environment" & arrSubKeys(UBound(arrSubKeys)), "SESSIONNAME", SessName
        Set objWMI = Nothing
     Else
        SessName = CreateObject("WScript.Shell").Environment("Volatile").Item("SESSIONNAME")
     End If
  End If
End If
 
'Проверка можно раскоментировать
'WScript.Echo "1 " & SessName
 
On Error ReSume Next
 
'(ForWriting 2 Открытие файла для записи. Если существует файл с таким же именем, его содержимое перезаписывается.)
ConSt ForWriting = 2
 
'(ForReading 1 Открытие файла только для чтения. Запись в этот файл невозможна.)
ConSt ForReading = 1
 
'(ForAppending 8 Открытие файла и запись в конец файла.)
ConSt ForAppending = 8
 
'(TristateFalse 0 Открывает файл в формате ASCII.)
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
 
'Если хотите формат создаваемого лога TSSERVER_17.02.2017.txt то раскомментируйте строку ниже.
'Set logFile = fSo.OpenTextFile("\\MATRIX3\LogONOff$" & objComputerName & "_" & Date & ".txt",ForAppending,True)
 
'Если хотите формат создаваемого лога TSSERVER_2.2017.txt то раскомментируйте строку ниже.
Set logFile = fSo.OpenTextFile("\\TSServer\LogONOff$" & objComputerName & "_" & month(now()) & "." & year(now()) & ".txt",ForAppending,True)
 
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON: " & "(" & SessName & ")" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
'logFile.WriteLine "#################################"
GObjLocalF.CloSe
End Sub
 
WScript.Quit 0

Результаты скрипта любая WinXp,2k3,7,2k8,8,10.. терминал или консоль:

#################################
Пт 17.02.17 9:33:12
LOGON: (Console)
Comp: SB2
User: user77

#################################
17.02.2017 9:32:19
LOGON: (RDP-Tcp#38)
Comp: TSSERVER
User: user19
#################################
17.02.2017 9:55:27
LOGOFF: (RDP-Tcp#16)
Comp: TSSERVER
User: user25

YuS_2 · 17.02.2017, 10:06

Сообщение от xeon13

получилось наконец-то именно то что я хотел

Поздравляю!
Не критично, возможно, но всё же напомню

@xeon13 · 17.02.2017, 10:24 **[ТС]**

Сообщение от YuS_2

Не критично, возможно, но всё же напомню

Видимо я взял старую версию скрипта для тестирования и в ней остались эти неисправленные строки.

Готовый скрипт Доделал.. Установил. Проверил. вроде работает. жду комментарии рекомендации и критику ошибок:

Visual Basic
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
'#####################################################
'# Скрипт записи логов входа пользователя LOGON или LOGOFF "\\TSServer\LogONOff$"
'# в шаренную папку сервера. по умолчанию: LogONOff$
'# возникла необходимость контролировать входы и выходы.
'# в полученном логе различаются типы подключения интерактив или RDP
'# лог создаётся месяц.год.txt .
'# Автор E}|{uk@RUSnet (Димитровград) 2016г.
'# Большое спасибо за подсказки и помощь в написании скрипта tisha_ и Dmitrii (cyberforum.ru)
'#####################################################
 
 
Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
Set objSysInfo = CreateObject("ADSystemInfo")
Const HKCU = &H80000001
 
'Определение типа подключения (интерактивное CONSOLE или RDP-терминал)
Set objShell = CreateObject("WScript.Shell")
SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
 
'Проверка можно раскоментировать
'WScript.Echo SessName
 
'Если Windows Больше версии Server 2003 >
'#############Для информации##############
'VER 5.0="Windows 2k"
'VER 5.1.="Windows XP"
'VER 5.2.="Windows 2003"
'VER 6.0.="Windows Vista"
'VER 6.1.="Windows 7"
'VER 6.2.="Windows 8"
'VER 6.3.="Windows 8.1"
'VER 10.0.="Windows 10"
'#########################################
 
If SessName = "%SESSIONNAME%" OR SessName <> " " Then 
Set objWShell = CreateObject("WScript.Shell")
strVer = CInt(Replace(objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), ".", ""))
Set objSysInfo = Nothing
  If Len(strVer) > 0 Then
    strVer = CInt(Replace(Left(strVer, 3), ".", ""))
     If strVer > 52 Then
        Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        objWMI.EnumKey HKCU, "Volatile Environment", arrSubKeys
        objWMI.GetStringValue HKCU, "Volatile Environment" & arrSubKeys(UBound(arrSubKeys)), "SESSIONNAME", SessName
        Set objWMI = Nothing
     Else
        SessName = CreateObject("WScript.Shell").Environment("Volatile").Item("SESSIONNAME")
     End If
  End If
End If
 
'Проверка можно раскоментировать
'WScript.Echo "1 " & SessName
 
On Error ReSume Next
  
'(ForAppending 8 Открытие файла и запись в конец файла.)
ConSt ForAppending = 8
 
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
 
'Если хотите формат создаваемого лога TSSERVER_17.02.2017.txt то раскомментируйте строку ниже.
'Set logFile = fSo.OpenTextFile("\\MATRIX3\LogONOff$" & objComputerName & "_" & Date & ".txt",ForAppending,True)
 
'Если хотите формат создаваемого лога TSSERVER_2.2017.txt то раскомментируйте строку ниже.
Set logFile = fSo.OpenTextFile("\\TSServer\LogONOff$" & objComputerName & "_" & month(now()) & "." & year(now()) & ".txt",ForAppending,True)
 
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON: " & "(" & SessName & ")" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
'logFile.WriteLine "#################################"
logFile.CloSe
End Sub
 
WScript.Quit 0

@Dmitrii · 17.02.2017, 11:03

Сообщение от xeon13

... выбрал WSH и был приятно удивлён насколько он быстро работает...

Разумеется, обращение к локальному ресурсу выполняется быстрее, чем к удалённому, а чтение значения из реестра - менее ресурсоёмкая задача, чем выборка из базы данных службы каталогов.

Сообщение от xeon13

... жду комментарии

Т.к. интерфейс ADSystemInfo более не используется, то за ненадобностью удалите из сценария операторы в строках 15 и 40:

Visual Basic
1
2
3
Set objSysInfo = CreateObject("ADSystemInfo")
'...
Set objSysInfo = Nothing

Удалите также оператор в строке 38:

Visual Basic
1
Set objWShell = CreateObject("WScript.Shell")

т.к. создание объекта WshShell уже выполняется оператором в строке 19. Однако не забудьте заменить в строке 39 переменную objWShell на переменную objShell. В итоге оператор для определения версии ОС должен выглядеть так:

Visual Basic
1
strVer = CInt(Replace(objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), ".", ""))

@xeon13 · 14.04.2017, 07:25 **[ТС]**

Наконец то появилось время исправить скрипт. Так же его протестил почти с месяц.
Ваши аргументированные замечания и комментарии все учтены.
Благодаря вам всем получился классный скрипт, который работает.

Visual Basic
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
'#####################################################
'# Скрипт записи логов входа пользователя LOGON или LOGOFF "\\TSServer\LogONOff$"
'# в шаренную папку сервера. по умолчанию: LogONOff$
'# возникла необходимость контролировать входы и выходы.
'# в полученном логе различаются типы подключения интерактив или RDP
'# лог создаётся месяц.год.txt .
'# Автор E}|{uk@RUSnet (Димитровград) 2016г.
'# Большое спасибо за подсказки и помощь в написании скрипта tisha_ и Dmitrii (cyberforum.ru)
'#####################################################
 
 
Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
 
Const HKCU = &H80000001
 
'Определение типа подключения (интерактивное CONSOLE или RDP-терминал)
Set objWShell = CreateObject("WScript.Shell")
SessName = UCase(objWShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
 
'Проверка можно раскоментировать
'WScript.Echo SessName
 
'Если Windows Больше версии Server 2003 >
'#############Для информации##############
'VER 5.0="Windows 2k"
'VER 5.1.="Windows XP"
'VER 5.2.="Windows 2003"
'VER 6.0.="Windows Vista"
'VER 6.1.="Windows 7"
'VER 6.2.="Windows 8"
'VER 6.3.="Windows 8.1"
'VER 10.0.="Windows 10"
'#########################################
 
If SessName = "%SESSIONNAME%" OR SessName <> " " Then 
 
strVer = CInt(Replace(objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), ".", ""))
 
  If Len(strVer) > 0 Then
    strVer = CInt(Replace(Left(strVer, 3), ".", ""))
     If strVer > 52 Then
        Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        objWMI.EnumKey HKCU, "Volatile Environment", arrSubKeys
        objWMI.GetStringValue HKCU, "Volatile Environment" & arrSubKeys(UBound(arrSubKeys)), "SESSIONNAME", SessName
        Set objWMI = Nothing
     Else
        SessName = CreateObject("WScript.Shell").Environment("Volatile").Item("SESSIONNAME")
     End If
  End If
End If
 
'Проверка можно раскоментировать
'WScript.Echo "1 " & SessName
 
On Error ReSume Next
 
'(ForAppending 8 Открытие файла и запись в конец файла.)
ConSt ForAppending = 8
 
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
 
'Если хотите формат создаваемого лога TSSERVER_17.02.2017.txt то раскомментируйте строку ниже.
'не забудьте сменить путь папки с лог файлами на свой (\\MATRIX3\LogONOff$)
'Set logFile = fSo.OpenTextFile("\\MATRIX3\LogONOff$" & objComputerName & "_" & Date & ".txt",ForAppending,True)
'Если хотите формат создаваемого лога TSSERVER_02.2017.txt то раскомментируйте строку ниже.
Set logFile = fSo.OpenTextFile("\\TSServer\LogONOff$" & objComputerName & "_" & month(now()) & "." & year(now()) & ".txt",ForAppending,True)
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON: " & "(" & SessName & ")" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
'logFile.WriteLine "#################################"
logFile.CloSe
End Sub
 
WScript.Quit 0

Dmitrii, как Вы думаете создадутся ли лишние нагрузки на ЦП и диск, если я усложню скрипт тем, что будут писаться в лог фамилия имя отчество (возможно и должность/описание). Сейчас у меня 85 пользователей и бывают нередки моменты что почти одновременно осуществляют вход несколько юзеров...
Или лучше не баловаться в ущерб быстродействию? Я просто не знаю как именно работают процедуры в виндовс...

@Dmitrii · 17.04.2017, 05:12

Запросы к базе данных AD выполняются не очень быстро, файловые операции - ещё медленнее. Поэтому для лучшего быстродействия имеет смысл ограничиться необходимым минимумом сведений о пользователе.

@z.a.m · 06.07.2017, 13:58

Спасибо за скрипт, только почему-то у меня сессия всегда пустая, возможно это из-за того, что реестр недоступен без админских прав? Не пробовали ли реализовать скрипт для логирования блокировки/разблокировки ПК?

@NordSig · 15.07.2020, 17:54

Может есть у кого готовый скрипт для записи событий в файл при логировании на контроллер домена?
Или может быть можно как-то эту информацию из журнала Windows вытащить?

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@xeon13 32 / 36 / 1 Регистрация: 22.11.2012 Сообщений: 302

	VBS Логирование в файл на сервере входа и выхода пользователей 18.04.2016, 08:13. Показов 9954. Ответов 33 Метки нет (Все метки) Видел на просторах интернета такую идею скрипта: при входе пользователя запускается какой-то сценарий и в папочку на домене в лог-файл производится запись времявхода, имяюзера, ФИО, имя компа на который он вошёл... При выходе или выключении компа запускается аналогичный сценарий только с записью времени выхода. Так же в случае удалёного сеанса RDP либо RemoteAPP так же кто, во сколько и куда вошёл и вышел.. Как бы удобная штука, для анализа кто во сколько и куда заходил выходил - для сисадмина. Такой лог удобней анализировать в случае каких-то проишествий, нежели анализировать расшифровывать логи виндовс сервера. Подскажите может у кого есть такой или наработки, а то я даже не знаю с чего начинать? 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	17.04.2017, 05:12
	Запросы к базе данных AD выполняются не очень быстро, файловые операции - ещё медленнее. Поэтому для лучшего быстродействия имеет смысл ограничиться необходимым минимумом сведений о пользователе. 1

@z.a.m 49 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 57
	06.07.2017, 13:58
	Спасибо за скрипт, только почему-то у меня сессия всегда пустая, возможно это из-за того, что реестр недоступен без админских прав? Не пробовали ли реализовать скрипт для логирования блокировки/разблокировки ПК? 0

@NordSig 0 / 0 / 0 Регистрация: 09.10.2019 Сообщений: 25
	15.07.2020, 17:54
	Может есть у кого готовый скрипт для записи событий в файл при логировании на контроллер домена? Или может быть можно как-то эту информацию из журнала Windows вытащить? 0