>>363
開始させるだけならバッチファイル作って
sc start VMnetDHCP
sc start "VMware NAT Service"
とでも書いておけばいいだけ。

もっと凝るなら
vmnet.vbsとか名前をつけたテキストファイルを作り、
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='VMnetDHCP' or Name='VMware NAT Service'")
For each objService in colServiceList
Select Case objService.State
Case "Stopped"
objService.StartService()
Case "Running"
objService.StopService()
End Select
Next
とでも書いておけば、サービスが起動していれば停止・停止していれば起動できる。