Logged on User Name

[Rich M]

Is there a way to find the logged on user name and computer name from a Word
VBA application?

Using VSTO the system.environment command gives me this but I can't find how
to do it from VBA.

Rich
(e-mail address removed)

 

[Doug Robbins - Word MVP]

See http://www.word.mvps.org/FAQs/MacrosVBA/GetCurUserName.htm

--
Hope this helps

Doug Robbins - Word MVP
Please reply only to the newsgroups unless you wish to avail yourself of my
services on a paid, professional basis.

 

[Rich M]

Thanks ... is there a similar article for getting the Computer Name?

 

[Karl E. Peterson]

Is there a way to find the logged on user name and computer name from a Word
VBA application?

Indented to highlight wordwrap...

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 Const UNLEN As Long = 256 ' Maximum username length
Private Const CNLEN As Long = 15 ' Maximum computer name length

Private Function CurrentMachineName() As String
Dim Buffer As String
Dim nLen As Long
Const NameLength = CNLEN + 1
Buffer = Space$(NameLength)
nLen = Len(Buffer)
If GetComputerName(Buffer, nLen) Then
CurrentMachineName = Left$(Buffer, nLen)
End If
End Function

Private Function CurrentUserName() As String
Dim Buffer As String
Dim nLen As Long
Const NameLength = UNLEN + 1
Buffer = Space$(NameLength)
nLen = Len(Buffer)
If GetUserName(Buffer, nLen) Then
CurrentUserName = Left$(Buffer, nLen - 1)
End If
End Function

Using VSTO the system.environment command gives me this but I can't find how
to do it from VBA.

Eeeeewwww! Well, if you want to rely on volatile methods, you could do that too.

Environ$("COMPUTERNAME")
Environ$("USERNAME")

Ew, ew, ew! :-|