How to retrieve domain user name in macro

[Terence]

Hi,

I would like to make my macro to retrieve the current NT
domain user login ID. Does anyone know how to code?
Thanks a lot.

Terence

 

[Bob Phillips]

Terence,

Here is a function to do it

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

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function