Имеется скрипт по запуску служб VMware.
Работают только строки svcX.StartService.
Строки svcX.ChangeStartMode("Manual").StartService выдают ошибки при запуске скрипта.
Не могу разобраться, как сделать так, чтобы сначала изменялся тип запуска служб, а уже потом происходил их запуск.
Сам скрипт:
- Код: Выделить всё
'
' Script "Change Start Mode and Run Services"
'
Set wmi = GetObject("winmgmts://./root/cimv2")
'
' VMware Mode and Start Services
'
Set svc = wmi.Get("Win32_Service.Name='VMAuthdService'")
Set svc2 = wmi.Get("Win32_Service.Name='VMnetDHCP'")
Set svc3 = wmi.Get("Win32_Service.Name='VMware NAT Service'")
Set svc4 = wmi.Get("Win32_Service.Name='VMUSBArbService'")
Set svc5 = wmi.Get("Win32_Service.Name='VMwareHostd'")
svc.ChangeStartMode("Manual").StartService
svc2.ChangeStartMode("Manual").StartService
svc3.ChangeStartMode("Manual").StartService
svc4.ChangeStartMode("Automatic").StartService
svc5.ChangeStartMode("Disable").StartService
'
' VMware Start Program
'
Set objShell = CreateObject("WScript.Shell")
' Example (Program, Size, Parameters)
' objShell.Run """C:\Program Files (x86)\vlc.exe"" --fullscreen ""E:\eto test\Misfits.S01E05.mkv"""
objShell.Run """C:\Program Files (x86)\VMware\VMware Workstation\vmware.exe"" """""
WScript.Quit