' listhypervvirts.vbs John Savill
strComputer = "."
strState = "NA"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\Virtualization")

Set colVMs = objWMIService.ExecQuery _
("Select * from Msvm_ComputerSystem")

For Each objVM in colVMs

Select Case objVM.EnabledState 
Case 0 
strState = "Unknown (0)" 
Case 2 
strState = "Enabled (2)" 
Case 3 
strState = "Disabled (3)" 
Case 32768 
strState = "Paused (32768)" 
Case 32769 
strState = "Suspended (32769)" 
Case 32770 
strState = "Starting (32770)" 
Case 32771 
strState = "Snapshotting (32771)" 
Case 32772 
strState = "Migrating (32772)" 
Case 32773 
strState = "Saving (32774)" 
Case 32774 
strState = "Stopping (32774)" 
Case 32775 
strState = "Deleted (32775)" 
Case 32776 
strState = "Pausing (32776)" 
End Select 

Wscript.Echo "Install VM: " _
& objVM.ElementName & " - " & strState

Next