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"