изменить настройки сервиса - конвернуть из Powershell а на VBS

[rufat_4]

Всем привет,


$w32tm = gwmi win32_service -Filter "name='W32Time'"
$w32tm.Change($null,$null,$null,$null,$null,$null,"NT AUTHORITY\LocalService",$null)


есть маленкий скрипт на Powershell-е
нужен точно такой же , только чтоб на VBS-е было, помогите плиз.
спасибо!

[Iska]

Ну, коли именно «точно такой же», то:
WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Service.Name='W32Time'").Change Null, Null, Null, Null, Null, Null, "NT AUTHORITY\LocalService", Null

[rufat_4]

Iska, Спасибо большое! :)