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

Question

此代码似乎不适用于Windows 7/8？

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

这有什么黑客攻击吗？

问候，

Answer 1

我用：

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

Answer 2

这适用于使用Excel 2010的Windows7。

Environ("username")