如何以編程方式將Excel用戶名設置爲主機名

Question

我想知道是否可以使用任何一種帶標記的腳本語言以編程方式將Excel 2013中的用戶名設置爲計算機主機名。瀏覽了一段時間的網絡，但沒有找到任何有用的提示，讓這個工作。

備註：Excel已關閉，因此它應該是獨立腳本（無VBA）。

任何答案是非常感謝。

Answer 1

的Try ...

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