VBA 取得電腦名稱及使用者名稱

getEnviroments1.vbs

' Way 1: Though environment variables
Dim sHostName As String
Dim sUserName As String

' Get Host Name / Get Computer Name
sHostName = Environ$("computername")

' Get Current User Name
sUserName = Environ$("username")

getEnviroments2.vbs

' Way 2: Through WScript Host
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")

ComputerName = objNetwork.ComputerName

Set objNetwork = Nothing