Pull login time and windows username

  • Thread starter Thread starter Boss
  • Start date Start date
B

Boss

Hi,

I already have a code which pulls windows username

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Function UserNameWindows() As String
Dim lngLen As Long
Dim strBuffer As String

Const dhcMaxUserName = 255

strBuffer = Space(dhcMaxUserName)
lngLen = dhcMaxUserName
If CBool(GetUserName(strBuffer, lngLen)) Then
UserNameWindows = Left$(strBuffer, lngLen - 1)
Else
UserNameWindows = ""
End If

End Function


How can i also trap the login time in the excel cell... anyideas...
Please help... Thanks
Boss
 
Back
Top