Solved

Script to Display Last Login time

Posted on 2009-03-31
5
1,331 Views
Last Modified: 2012-05-06
Hello,

We have a few windows 2003 terminal servers on a windows 2003 domain.  We want either a software widget or some way that will display a pop up for users when they log on that shows when the last time they logged in.  We were given the following script which will run and display the last login time.  Here is the problem.  If we put this script in the startup folder, they have to log into the terminal server to get the script to run so it will tell them there last login time was a few seconds ago (which is correct, but not what we need).  I dont know if there is a way to display the 2nd to last login or a better way to run the script, but any help would be appreciated. Script is attached.  Thanks.
On Error Resume Next

Dim User

Dim UserName

Dim UserDomain

Dim WshNetwork

Set WshNetwork = CreateObject("WScript.Network")

Set objDomain = getObject("LDAP://rootDse")

UserDomain = objDomain.Get("dnsHostName")

UserName = WshNetwork.UserName

Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")

MsgBox "The last time " & UserName & " logged on was: " & vbCRLf & vbCRLf & User.LastLogin

Open in new window

0
Comment
Question by:delmarvamonkey
  • 3
  • 2
5 Comments
 
LVL 6

Accepted Solution

by:
Justin_W_Chandler earned 500 total points
Comment Utility
Here you go! It is presently set up to display the last logon for a fixed number of seconds. You can specify how long it displays in const_displayDelay. Alternatively, it can be set to just display a window with the information and stay open until a key is pressed or the X is clicked. I can add this for you, as it's a pretty minor addition.

Justin Chandler
@echo off
 

:: set the folder for the logs to be stored here

set const_logFolder=c:\users.log
 

:: set the number of seconds to display the last logon here

set const_displayDelay=5
 

title Last logon

mode con cols=22 lines=4

color 17

if not exist "%const_logFolder%" call :proc_makeLogFolder

echo.

if exist "%const_logFolder%\%username%.log" type "%const_logFolder%\%username%.log"

ping -n %const_displayDelay% 127.0.0.1>nul

echo  Your last logon was:>"%const_logFolder%\%username%.log"

echo    %date:~4% %time:~0,-6%>>"%const_logFolder%\%username%.log"

goto :eof
 
 

:proc_makeLogFolder

md "%const_logFolder%"

attrib "%const_logFolder%" +h

goto :eof

Open in new window

24281518---Display-last-logon-ti.txt
0
 

Author Comment

by:delmarvamonkey
Comment Utility
I get an error when I run this script.

Windows Script Host
Line: 3
Char: 12
Error: Expected '='
Code: 800A0F3
Source: Microsoft VBScript compilation error
0
 
LVL 6

Expert Comment

by:Justin_W_Chandler
Comment Utility
This is not a VBScript... it's a batch script. Just rename the attached file to LOGONTIME.CMD and put it in your startup folder.
0
 

Author Comment

by:delmarvamonkey
Comment Utility
Doh!  This will handle multiple users logging into the same terminal server, correct?  It looks like it.
0
 
LVL 6

Expert Comment

by:Justin_W_Chandler
Comment Utility
Absolutely it will.
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

If you get continual lockouts after changing your Active Directory password, there are several possible reasons.  Two of the most common are using other devices to access your email and stored passwords in the credential manager of windows.
Join Greg Farro and Ethan Banks from Packet Pushers (http://packetpushers.net/podcast/podcasts/pq-show-93-smart-network-monitoring-paessler-sponsored/) and Greg Ross from Paessler (https://www.paessler.com/prtg) for a discussion about smart network …
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now