UserName = Environ $（“UserName”）在最新版本的Windows中不起作用？

Question

This code does not appear to work in Windows 7/8?

Public Function UserName()
    UserName = Environ$("UserName")
End Function

Is there a hack for this?

Regards,

Answer 1

我用：

Username = CreateObject("WScript.Network").Username

Answer 2

This works for me on Windows7 using Excel 2010.

Environ("username")