VB Forum / Win API / April 2008

What's the issue here?  Just call GetUserName, as my sample shows, and you have what
(I believe?) you want.  Right?

See http://vb.mvps.org/samples/TimeZone

Here's a streamlined version, indented to highlight wordwrap...

  Option Explicit

  Private Declare Function NetUserGetInfo Lib "netapi32" (lpServer As Any,
lpUserName As Any, ByVal Level As Long, lpBuffer As Any) As Long
  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
  Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination
As Any, Source As Any, ByVal Length As Long)

  Private Const UNLEN As Long = 256         ' Maximum username length
  Private Const CNLEN As Long = 31          ' Maximum computer name length
  Private Const NERR_Success As Long = 0&

  Private Type USER_INFO_3
     ' Level 0 starts here
     Name As Long
     ' Level 1 starts here
     Password As Long
     PasswordAge As Long
     Privilege As Long
     HomeDir As Long
     Comment As Long
     Flags As Long
     ScriptPath As Long
     ' Level 2 starts here
     AuthFlags As Long
     FullName As Long
     UserComment As Long
     Parms As Long
     Workstations As Long
     LastLogon As Long
     LastLogoff As Long
     AcctExpires As Long
     MaxStorage As Long
     UnitsPerWeek As Long
     LogonHours As Long
     BadPwCount As Long
     NumLogons As Long
     LogonServer As Long
     CountryCode As Long
     CodePage As Long
     ' Level 3 starts here
     UserID As Long
     PrimaryGroupID As Long
     Profile As Long
     HomeDirDrive As Long
     PasswordExpired As Long
  End Type

  Public Function LastLogon() As Date
     Dim nRet As Long
     Dim Server As String
     Dim User As String
     Dim ui3 As USER_INFO_3
     Dim lpBuffer As Long
     Const evServer = "LOGONSERVER"
     ' Retrieve current user and logon server names.
     User = CurrentUserName()
     Server = Environ$(evServer)
     If Len(Server) = 0 Then Server = CurrentMachineName()
     If InStr(Server, "\\") <> 1 Then Server = "\\" & Server
     ' Retrieve Level3 information on current user.
     nRet = NetUserGetInfo(ByVal StrPtr(Server), ByVal StrPtr(User), 3, lpBuffer)
     If nRet = NERR_Success Then
        ' Results are returned as a pointer to buffer.
        CopyMemory ui3, ByVal lpBuffer, Len(ui3)
        ' Return last logon date/time.
        LastLogon = NetTimeToVbTime(ui3.LastLogon)
     End If
  End Function

  Private Function CurrentMachineName() As String
     Dim Buffer As String
     Dim nLen As Long
     Const NameLength = CNLEN + 1
     ' Fall back to the ANSI method.
     nLen = NameLength
     Buffer = Space$(nLen)
     Call GetComputerName(Buffer, nLen)
     ' Trim results and return.
     If nLen > 0 Then CurrentMachineName = Left$(Buffer, nLen)
  End Function

  Private Function CurrentUserName() As String
     Dim Buffer As String
     Dim nLen As Long
     Const NameLength = UNLEN + 1
     ' ANSI method.
     nLen = NameLength
     Buffer = Space$(nLen)
     Call GetUserName(Buffer, nLen)
     ' Trim results and return.
     If nLen > 1 Then CurrentUserName = Left$(Buffer, nLen - 1)
  End Function

  Private Function NetTimeToVbTime(NetDate As Long) As Double
     Const BaseDate# = 25569   'DateSerial(1970, 1, 1)
     Const SecsPerDay# = 86400
     NetTimeToVbTime = BaseDate + (CDbl(NetDate) / SecsPerDay)
  End Function

Actually, since you're only after one value from the UserInfo3 structure, there's a
slightly easier way to get at that.  You can skip the structure definition entirely,
and just retrieve the results into an array of Longs:

  Public Function LastLogon2() As Date
     Dim nRet As Long
     Dim Server As String
     Dim User As String
     Dim ui3(1 To 29) As Long
     Dim lpBuffer As Long
     Const evServer = "LOGONSERVER"
     ' Retrieve current user and logon server names.
     User = CurrentUserName()
     Server = Environ$(evServer)
     If Len(Server) = 0 Then Server = CurrentMachineName()
     If InStr(Server, "\\") <> 1 Then Server = "\\" & Server
     ' Retrieve Level3 information on current user.
     nRet = NetUserGetInfo(ByVal StrPtr(Server), ByVal StrPtr(User), 3, lpBuffer)
     If nRet = NERR_Success Then
        ' Results are returned as a pointer to buffer.
        ' Copy 29 dwords/pointers into array of Longs.
        CopyMemory ui3(1), ByVal lpBuffer, UBound(ui3) * 4&
        ' Return last logon date/time, which is 14th element.
        LastLogon2 = NetTimeToVbTime(ui3(14))
     End If
  End Function

Not sure I see where timezones are coming into play here?  DST may be a factor,
though.  Not sure.