[Iska]

Тупо — раз:

читать дальше »

Код:

Option Explicit

Dim objSWbemServicesEx

Set objSWbemServicesEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")

Do
	objSWbemServicesEx.Get("Win32_Service.Name='Browser'").StartService()
	WScript.Sleep 10 * 1000
Loop

Set objSWbemServicesEx = Nothing

WScript.Quit 0

или — два:

читать дальше »

Код:

Option Explicit

Dim objShell

Set objShell = WScript.CreateObject("Shell.Application")

Do
	objShell.ServiceStart "Browser", False
	WScript.Sleep 10 * 1000
Loop

Set objShell = Nothing

WScript.Quit 0

Поясните Вашу глобальную цель.