Set objNetwork = CreateObject("WScript.Network")
WScript.Echo objNetwork.ComputerName