通过vbs脚本实现批处理后台运行vm

 rem start_cmd.vbs 的内容

rem start_cmd.vbs: 

set args = WScript.Arguments 

num = args.Count 

if num = 0 then 

    WScript.Echo "Usage: [CScript | WScript] RunBat.vbs aScript.bat <some script arguments>" 

    WScript.Quit 1 

end if

Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

WScript.Sleep(0)

Wsh.Run """" & WScript.Arguments(0) & """" , 0, False 

Set Wsh=NoThing

WScript.quit

 

============================================================= 

REM StartVM.cmd 的内容

rem StartVM.cmd

rem VMware 6.5

rem ------------------

net start VMnetDHCP>nul

net start "VMware NAT Service">nul

rem net start "VMware DHCP Service"

rem net start "VMware NAT Service"

vmware.exe

net stop VMnetDHCP>nul

net stop "VMware NAT Service">nul

rem net stop "VMware DHCP Service"

rem net stop "VMware NAT Service" 

 

按下面命令行 建立一快捷方式

==============================

"D:\Program Files\VMware\VMware Workstation\start_cmd.vbs" "StartVM.cmd"