获取当前正在运行的虚拟机(Vmware Workstation)，并对虚拟机进行控制

vmware workstation 提供了一个命令行工具进行虚拟机管理

 

C:\Program Files (x86)\VMware\VMware Workstation\vmrun.exe

用法如下：

 

 

POWER COMMANDS           PARAMETERS           DESCRIPTION
--------------           ----------           -----------
start                    Path to vmx file     Start a VM or Team
                         [gui|nogui]

stop                     Path to vmx file     Stop a VM or Team
                         [hard|soft]

reset                    Path to vmx file     Reset a VM or Team
                         [hard|soft]

suspend                  Path to vmx file     Suspend a VM or Team
                         [hard|soft]

pause                    Path to vmx file     Pause a VM

unpause                  Path to vmx file     Unpause a VM

GENERAL COMMANDS         PARAMETERS           DESCRIPTION
----------------         ----------           -----------
list                                          List all running VMs

upgradevm                Path to vmx file     Upgrade VM file format, virtual hw

installTools             Path to vmx file     Install Tools in Guest

checkToolsState          Path to vmx file     Check the current Tools state

register                 Path to vmx file     Register a VM

unregister               Path to vmx file     Unregister a VM

listRegisteredVM                              List registered VMs

deleteVM                 Path to vmx file     Delete a VM

clone                    Path to vmx file     Create a copy of the VM
                         Path to destination vmx file
                         full|linked
                         [-snapshot=Snapshot Name]
                         [-cloneName=Name]

更多的参数可以直接运行vmrun命令查看（不带参数）

.Net中，通过process.start来运行vmrun（带list参数） ，获取该命令的标准输出重定向即可获得当前正在运行的vmware虚拟机列表，然后可根据不同需求（stop、suspend、pause等），带上对应的参数进行虚拟机操作。

 

 

        Dim strPathShutdown As String = ConfigurationManager.AppSettings("shutdown"),
            strPathVmrun As String = ConfigurationManager.AppSettings("vmrun"),
            proc As New Process(),
            intVM As Integer,
            listVM As New List(Of String)
        proc.StartInfo = New ProcessStartInfo(strPathVmrun, "list")
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.Start()
        Dim out As String = proc.StandardOutput.ReadToEnd()
        MsgBox(out)
        listVM = Split(out, vbCrLf).ToList
        listVM.RemoveAt(0)
        intVM = New System.Text.RegularExpressions.Regex("\d+", RegexOptions.IgnoreCase).Match(out).Value
        For Each vm As String In listVM
            proc.StartInfo.Arguments = String.Format("suspend ""{0}""", vm)
            proc.Start()
        Next

vmrun的运行结果和对标准输出的解析