Application.Username and environ("Username")

[pedie]

Hi,

Application.Username and environ("Username") gives different values in excel 2007
But it does not in 2003. Both gives environ("Username").value.
Please help me how to figure this out in excel 2003.

Thanks.
Pedie

 

[Kenneth Hobson]

I'm glad that we could help.

Bob, I would not do it that way as that errors at runtime. You can show it this way though.

Sub Test_Environ()
  Dim tf As Boolean
  MsgBox Environ("username")
  tf = Environ("username") = "Silly Name"
  MsgBox Environ("username"), , tf
End Sub

I do use API's for getting and setting environment variables sometimes. FSO methods are easy to use too. I once wrote a kb entry for vbaexpress.com to illustrate the various methods but it was not posted. I can think of about 4 ways or more to get and set them. There are some differences as you know.

 

[Kenneth Hobson]

You can add a username in this macros dialog that it shows and set a value. If you close Excel and then open, Environ("username") will return the new value.

Private Sub ChangeEnvs()
  Dim rc As Long
  'Shell "cmd /c RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus
  Shell "Control.exe sysdm.cpl,,3", vbNormalFocus
  Do Until FindWindow(vbNullString, "System Properties") <> 0
  Loop
  Application.SendKeys "n", True
End Sub

Turn UAC off if you have Vista+ for SendKeys() to work. Such a minor thing though, you can just press 2 for testing purposes.