May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Problem to setting||16||48|
|change local administrator account in windows 10||8||47|
|List Boot time of several computers||4||18|
|batch file scheduled task won't run unless I manually execute batch file||1||19|
Join the community of 500,000 technology professionals and ask your questions.