Dim WshNetwork,UserPCName,InputResponse
set WshNetwork = CreateObject("WScript.Network")
UserPCName = WshNetwork.ComputerName
InputResponse = InputBox ("Please copy this computer name and paste it into the PPM Order form",UserPCName, UserPCName, 500, 500)