Find Hyper-V Host for a VM Guest

Dim oShell
Dim iValue

Set oShell = CreateObject("WScript.Shell")

iValue = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Virtual Machine\Guest\Parameters\HostName")
wscript.echo iValue