<job id="get computername name">
<comment>
</comment>
<object id="wmiLocator" progid="WbemScripting.SWbemLocator" />
<script language="VBScript">
Option Explicit

WScript.Echo myGetComputerName()
WScript.Quit

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

  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
</script>
</job>