Hyper-V VM per Skript starten

Option Explicit

Dim WMIService
Dim VMList
Dim VMName

'Name des virtuellen Servers, der gestartet werden soll 7  
VMName = "Server_Name"  

'Name der WMI-Instanz Virtualisierung auf dem lokalen Computer 10  
Set WMIService = GetObject("winmgmts:\\.\root\virtualization")  

'Abfrage für die spezielle virtuelle Maschine, die ich starten möchte 13  
Set VMList = WMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem WHERE ElementName=VMName")  

' Anfordern eines Status-Wandels der ersten Maschine die wiedergekehrt ist 16  
' 2 bedeutet Start, 3 bedeutet Stop and 32769 bedeutet Stand Speichern 17  
VMList.ItemIndex(0).RequestStateChange(2)