All about Application Packaging, Virtualization and Deployment
Set oNetwork = CreateObject("WScript.Network") sComputerName = oNetwork.ComputerName MsgBox("ComputerName = " & sComputername)