Set objVS = CreateObject("VirtualServer.Application")
 
Wscript.Echo "Name: " & objVS.Name
Set objVMColl = objVS.VirtualMachines
If objVMColl.Count = 0 Then
    Wscript.Echo "    Virtual machines: [none]"
Else
    Wscript.Echo "Virtual machines: " & objVMColl.Count
    For Each objVM in objVMColl
        Wscript.Echo "    Name: " & objVM.Name
	'objVM.startup
    Next
End I.

Dim o As New Microsoft.VirtualServer.Interop.VMVirtualServer
MsgBox(o.Name)