Option Explicit
Dim WshNetwork, myComputerName

Set WshNetwork = CreateObject("WScript.Network")
myComputerName = WshNetwork.ComputerName
WScript.Echo myComputerName

Option Explicit
Dim WshShell, myComputerName

Set WshShell = CreateObject("WScript.Shell")
myComputerName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
WScript.Echo myComputerName

Option Explicit

WScript.Echo myGetComputerName()
WScript.Quit

Function myGetComputerName()
  Dim wmiLocator
  Dim wmiService
  Dim pcInstance
  Dim pcEnumerator
  Dim outList

  Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
  Set wmiService = wmiLocator.ConnectServer
  Set pcInstance = wmiService.ExecQuery ("Select * From Win32_ComputerSystem")

  For Each pcEnumerator In pcInstance
    outList = pcEnumerator.Name
  Next

  myGetComputerName = outList
End Function