(view source code of login_log_access.vbs as plain text)
Const ForAppending = 8
Const TristateFalse = 0
' Get today's date in YYYYMMDD format and time in HHmmss format
strToday = CStr( 10000 * Year( Now ) + 100 * Month( Now ) + Day( Now ) )
lngNow = 1000000 + 10000 * Hour( Now ) + 100 * Minute( Now ) + Second( Now )
strNow = Right( CStr( lngNow ), 6 )
' Get the current user and computer names
Set wshNetwork = CreateObject( "WScript.Network" )
strUser = wshNetwork.UserName
strComputer = wshNetwork.ComputerName
Set wshNetwork = Nothing
' Create the directory if it doesn't exist
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
With objFSO
strFolder = .BuildPath( "\\Server\Logs", strToday )
If Not .FolderExists( strFolder ) Then
.CreateFolder strFolder
End If
strLog = .BuildPath( strFolder, strUser & ".log" )
Set objLog = .OpenTextFile( strLog, ForAppending, True, TristateFalse )
objLog.WriteLine strComputer & "," & strToday & "," & strNow
objLog.Close
Set objLog = Nothing
End With
Set objFSO = Nothing
page last modified: 2024-04-16; loaded in 0.0069 seconds