Dim objVS As Object = CreateObject("VirtualServer.Application")
Debug.WriteLine("Name: " + objVS.Name)
Dim objVMColl As Object = objVS.VirtualMachines
If objVMColl.Count = 0 Then
    Debug.WriteLine("    Virtual machines: [none]")
Else
    Debug.WriteLine("Virtual machines: " + objVMColl.Count.ToString())
    For Each objVM in objVMColl
        Debug.WriteLine("    Name: " + objVM.Name)
        '//objVM.startup()
    Next