;)
'Prompts for VM name returns error if blank
VMName = InputBox("Please Enter the VM Name","Enter VM Name"
If VMName = "" Then
call MsgBox("No name was given",vbOKOnly,"Error")
WScript.Quit
Else
strVM = VMName
End If
'executes powershell to check for host value
pscommand = " reg query '\\" & strVM & "\HKLM\SOFTWARE\Microsoft\Virtual Machine\Guest\Parameters' /v PhysicalHostNameFullyQualified "
cmd = "powershell.exe -noprofile -command " & pscommand
Set shell = CreateObject("WScript.Shell")
Set executor = shell.Exec(cmd) executor.StdIn.Close
strA = executor.StdOut.ReadAll
'Displays host machine or error if nothing returned
If strA = "" Then
call MsgBox(strVM & " is not a virtual machine or is unreachable",vbOKOnly,"Error")
WScript.Quit
else
MsgBox strVM & " resides on:" & Replace(Replace(strA,"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Virtual Machine\Guest\Parameters","")," PhysicalHostNameFullyQualified REG_SZ ","")
End IfThis script will query the registry value HKLM\SOFTWARE\Microsoft\Virtual Machine\Guest\Parameters on the VM you entered and return the FQDN of the physical Hyper-V host machine. This script can be run from any machine as long as it has powershell installed and appropriate access permissions to the VM’s registry.
