Текст файла: Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "cmd.exe", "/k echo test", "", "runas", 1
Запуск файла скрипта:
wscript Run.vbs или просто двойным кликом
Текст файла: Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "cmd.exe", "/k echo test", "", "runas", 1
Запуск файла скрипта:
wscript Run.vbs или просто двойным кликом
Большое спасибо Вам, Максим!
Очень полезный пример! Он помог мне авто-перезапускать vbs-сценарии под Win7 , где в интерфейсе не предусмотрен запуск vbs от им Админа.