リファレンス、WshNetwork オブジェクト、ComputerName, UserDomain, UserName プロパティ

WshNetwork オブジェクトに関しては、設定系のメソッドはとばし

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "ドメイン = "       & WshNetwork.UserDomain
WScript.Echo "コンピュータ名 = " & WshNetwork.ComputerName
WScript.Echo "ユーザー名 = "     & WshNetwork.UserName