Option Explicit
On Error Resume Next
Dim op,who,I,virtualServer 
Dim vmachine(50)
Dim objvmColl,objVM 
Const RUNNING=5
Const ForReading=1,ForWriting=2

'Connect to Virtual Server
Set virtualServer = CreateObject("VirtualServer.Application")

op=WScript.Arguments(0)
Who=WScript.Arguments(1)
I=0

if op = "list" then
	Wscript.Echo "Name: " & virtualServer.Name
	Set objVMColl = virtualServer.VirtualMachines
	
	If objVMColl.Count = 0 Then
	    Wscript.Echo "    Virtual machines: [none]"
	Else
	    Wscript.Echo "Virtual machines: " & objVMColl.Count
	    For Each objVM in objVMColl
		VirtualMachineInfo(objVM)
	        Wscript.Echo "    Name: " & objVM.Name & "  State: " & objVM.State
	    Next
	End If
end if

wscript.echo I & " machines are RUNNING: "
Redim preserve vmachine(I)
Dim vm, fso, MyFile