如何以编程方式将Excel用户名设置为主机名

Question

我想知道是否可以使用任何一种带标记的脚本语言以编程方式将Excel 2013中的用户名设置为计算机主机名。浏览网页已经有一段时间，但没有找到任何有用的提示让这个工作。

备注：Excel已关闭，因此它应该是一个独立的脚本（无VBA）。

任何答案都非常感谢。

Answer 1

...试

Sub ChangeUserName()
Dim UserDomain As String
Dim ComputerName As String
Set wshNetwork = CreateObject("WScript.Network")
ComputerName = wshNetwork.ComputerName
MsgBox Application.UserName
Application.UserName = ComputerName
MsgBox Application.UserName
End Sub