Get username

**Schwizer** · 03-07-2007, 12:52 PM

I would like the macro to be able to retrieve the username of the person on the computer. I tried

Application.username but it returns the value "Administrator"

I'm an administrater on my machine but that is not the username I use. Are there any other similar commands i could try?

Thank you
Schwizer

**dominicb** · 03-07-2007, 01:11 PM

Good afternoon Schwizer

The code you supplied returns the username found under Tools > Options, General function. What do you want returning? If this is the logged on username then try this link :

http://vbnet.mvps.org/index.html?code/internet/ping.htm

HTH

DominicB

**Schwizer** · 03-07-2007, 01:30 PM

Under tools -> options -> save

I have under "AutoRecover Save Location"
C:\Documents and Settings\BSchwizer\Application Data\Microsoft\Excel\

I am looking for a command that returns "BSchwizer". Or in other words, the text between the "\"s after "Documents and Settings"

Is this possible?

Thanks
Schwizer

**jetted** · 03-07-2007, 01:47 PM

I use the following code to get the userid

Sub User()
Dim objNet
Set objNet = CreateObject("WScript.NetWork")
MsgBox objNet.UserName
End Sub

**Schwizer** · 03-07-2007, 01:55 PM

Thank you, that also works for me. I've also found a way to get the autosave string so i've extracted it from that

tester = Application.AutoRecover.Path
Start = InStr(tester, "Settings") + 9
endd = InStr(tester, "\Application")
user = Mid(tester, Start, endd - Start)

I'm making some assumptions here but its not a critical part of the macro.

Schwizer