'Естественно, что это только пример скрипта. Что тебе понадобиться в конкретном случае - решать тебе самому
'В примере у админа Vasja пароль qwerty и запускаем Iexplorer от админа.
'Итак:
Option Explicit 'явное объявление всех типов переменных и объектов
On Error Resume Next 'Инструкция игнорировать возникающие ошибки (иба программ без ошибок - небывает =)
'Объявление переменных здесь:
Dim WshShell 'WshShell - будущий объект cmd. Теперь основной код с коментариями :
Set WshShell=Wscript.Createobject("Wscript.Shell") 'Инициализация cmd сонсоли
WshShell.Run ("runas /user:Vasja cmd") 'Запуск runas в сmd
Wscript.Sleep 300 'Ожидаем подтверждения ввода (300 мсек)
WshShell.SendKeys "qwerty" & "{enter}" 'Ввод пароля Vasja в cmd
Wscript.Sleep 300 'Ожидаем подтверждения ввода (парам 300 - зависит искл-но от быстроты
'твоего PC). Итак,теперь мы получили CMD консоль Администратора. По дефолту тебя выкинет в %sytemroot%'\windows\system32,что нас в принципе не устраевает. По этому сделаем следующее:
WshShell.SendKeys "cd\" & "{enter}" 'Переходим в корень диска (если меняем диск то "<буква диска>:\" (!)
Wscript.Sleep 300 'Ожидаем подтверждения ввода (300 мсек)
WshShell.SendKeys "cd program files" & "{enter}" 'Переходим в папку c:\Program files
Wscript.Sleep 300 'Ожидаем подтверждения ввода (300 мсек)
WshShell.SendKeys "cd Internet Explorer" & "{enter}" 'Переходим в подкаталог \Internet Explorer\
Wscript.Sleep 300 'Ожидаем подтверждения ввода (300 мсек)
WshShell.SendKeys "iexplore" & "{enter}" 'Запустим IE от имени Vasja! Далее, пока пользователь не очухался
'и не успел воспользоваться консолью админа для всяких бяк, быстренько закроем CMD косоль Vasja! Сделаем это 'так:
Wscript.Sleep 300 'Ожидаем подтверждения ввода (300 мсек)
WshShell.SendKeys "exit" & "{enter}" 'Усе!
' \m/_ OJO _\m/