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

Set WshNetwork = WScript.CreateObject("WScript.Network")
         WScript.Echo "Domain = " & WshNetwork.UserDomain
         WScript.Echo "Computer Name = " & WshNetwork.ComputerName
         WScript.Echo "User Name = " & WshNetwork.UserName

Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
 
On Error ReSume Next
ConSt ForWriting = 2
ConSt ForReading = 1
ConSt ForAppending = 8
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\NETLOGON" & objComputerName & "_" & Date & ".txt",ForAppending,True)
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON:" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
GObjLocalF.CloSe
End Sub
WScript.Quit 0

Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
 
On Error ReSume Next
ConSt ForAppending = 8
Set fSo = CreateObject("Scripting.FileSyStemObject")
 
Set logFile = fSo.OpenTextFile("\\TSServer\NETLOGON" & objComputerName & "_" & Date & ".txt",ForAppending,True)
logFile.WriteLine "#################################"
logFile.WriteLine Date & " " & Time
logFile.WriteLine "LOGON:" & vbNewLine & "Comp: " & (objComputerName) & vbNewLine & "User: " & (objUSerName)
GObjLocalF.CloSe
WScript.Quit 0

month(now()) & "." & year(now())

mm = month(now()) : if len(mm) = 1 then : mm = "0" & mm : end if

'#####################################################
'# Скрипт записи логов входа пользователя LOGON:"
'# в шаренную папку сервера. по умолчанию: LogONOff$
'# возникла необходимость контролировать входы и выходы.
'# в полученном логе различаются типы подключения интерактив или RDP
'# лог создаётся месяц.год.txt .
'# Автор E}|{uk@RUSnet (Димитровград) 2016г.
'# Большое спасибо за подсказки и помощь tisha_ и Dmitrii (cyberforum.ru) в написании скрипта
'#####################################################
 
Set objNetwork = CreateObject("WScript.Network")
objComputerName = objNetwork.ComputerName
objUSerName = objNetwork.USerName
 
'Определение типа подключения (интерактивное CONSOLE или RDP-терминал)
Set objShell = CreateObject("WScript.Shell")
SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
 
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

SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))

SessName = UCase(objShell.Environment("Volatile").Item("SESSIONNAME"))

Set objShell = CreateObject("WScript.Shell")
SessName = UCase(objShell.Environment("Volatile").Item("SESSIONNAME"))
    if SessName = "" Then
SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))
end if

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

SessName = UCase(objShell.ExpandEnvironmentStrings("%SESSIONNAME%"))