VBScript: コンピュータ名、ユーザー名の取得

Dim ws, strComputerName, strUserName

Set ws = WScript.CreateObject("WScript.Shell")

strComputerName = ws.ExpandEnvironmentStrings("%COMPUTERNAME%")
strUserName = ws.ExpandEnvironmentStrings("%USERNAME%")

WScript.Echo strComputerName
WScript.Echo strUserName