Q. How can I quickly create a list of all virtual machines (VMs) on a list of Hyper-V servers from the command line?

A. I wanted to create a list of all VMs, showing full VM name, for a list of Hyper-V servers. I created the VBScript below for the purpose. You just pass it Hyper-V servers, separated by spaces, and it will list out the VMs on the server for each passed server. I also added a function to show current status as well, but you don't have to use that—you can output in whatever format you want.

' listvms.vbs
' John Savill 5/19/2011
'
For count = 0 To (WScript.Arguments.Count-1)
strHVServer = WScript.Arguments.Item(count)
Set objWMIService = GetObject("winmgmts:\\" & strHVServer & "\root\virtualization")
Set arrVMs = objWMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem",,48)
For Each VM In arrVMs
Call convertVMStateToText(VM.EnabledState,strState)
WScript.StdOut.WriteLine VM.ElementName & "|" & strHVServer & "|" & strState
Next
Next

sub convertVMStateToText(ByVal varEnabledState, inStrVMState)
select case varEnabledState
case 0
inStrVMState = "unknown"
case 2
inStrVMState = "running"
case 3
inStrVMState = "powered off"
case 32768
inStrVMState = "paused"
case 32770
inStrVMState = "starting"
case 32773
inStrVMState = "saving"
case 32774
inStrVMState = "stopping"
case 32776
inStrVMState = "pausing"
case 32777
inStrVMState = "resuming"
case else
inStrVMState = "don't know"
end select
end sub

To call it, I would just use

cscript listvbs.vbs <Hyper-V server 1> <Hyper-V server 2>

For example,

Comments

Plain text