On Error Resume Next

Set virtualServer = CreateObject("VirtualServer.Application")
set vmCollection = virtualServer.VirtualMachines
For Each vm in vmCollection
    Wscript.Echo "=============================="
    Wscript.Echo "Name: " & vm.Name
    Wscript.Echo "Notes: " & vm.Notes
    Wscript.Echo
    Wscript.Echo "Configuration File: " & vm.File
    Wscript.Echo
    Wscript.Echo "Memory: " & vm.Memory & "M"
    Wscript.Echo
    WScript.Echo "State: " & VM.State
    If vm.State=1 or vm.State=2 Then 'Off and saved
       Wscript.Echo "Auto Startup "
       vm.Startup
       WScript.Sleep WScript.Arguments(0) & "000"
       WScript.Echo "New State: " & VM.State
    End If
    Wscript.Echo "=============================="
Next