CODE: [Copy to clipboard]Set objNetwork = CreateObject("WScript.Network") strCompName = objNetwork.ComputerName