запуск от имени администратора

[timur202]

вчера написал VBS скрипт:

Do
Set WshShell = WScript.CreateObject ("WScript.Shell")

Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process")

For Each objProcess in colProcessList

If objProcess.name = "chrome.exe" then

vFound = True

End if

Next

If vFound = True then
Set wmi = GetObject("winmgmts://./root/cimv2")
Set svc = wmi.Get("Win32_Service.Name='CG6Service'")
rc = svc.stopService
else
Set wmi = GetObject("winmgmts://./root/cimv2")
Set svc = wmi.Get("Win32_Service.Name='CG6Service'")
rc = svc.startService
End If
Loop

и добавил в начале:

If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If

что бы скрипт запускалась от имени администратора.

я запустил скрипт и когда у меня chrome был закрыт сервис CG6Service начал работать, а когда я открыл chrome сервис CG6Service перестал работать но когда я закрыл chrome сервис CG6Service не запустился.
мне кажется что админ права почему та не сработали чтобы запустить сервис, кто-та знает как это решить?
Заранее спасибо!

[Iska]

вчера написал VBS скрипт: »
Оформляйте код тэгом «code».

[timur202]

исправил