もっと凝るなら 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 とでも書いておけば、サービスが起動していれば停止・停止していれば起動できる。
