using system variables

[philR]

When someone logs onto the network where I work, a system variable called FNAM holds their name. I can get at this in DOS, but is there any way I can get to it in Excel?

[Ian Mac]

On 2002-05-07 07:26, philR wrote:
When someone logs onto the network where I work, a system variable called FNAM holds their name. I can get at this in DOS, but is there any way I can get to it in Excel?

Do you mean their NT Username?

if yes, copy this into a module:

Option Explicit
' This is used by GetUserName() to find the current user's
' name from the API
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long


Function GetUserName() As String
Dim lpBuff As String * 25

Get_User_Name lpBuff, 25
GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

hope this helps.

[philR]

Wow! That is a very cool piece of code! It does almost what I want, but it is returning "smithj" (which if you type "SET" in DOS is the system variable UNAM) wheras what I want is "John Smith", which is the system variable FNAM. This code must be very close to what I need, but I don't know how to modify it. Incidentally, we are networked on Windows 95, soon to be upgraded to 2000.
Thanks for your help so far,

Phil

[Vas]

Try

s=Environ("FNAM")

[philR]

Excellent! That works perfectly. Thank you