lampich

Добрый день! Я не програмист, поэтому обращаюсь к Вам с данным вопросом: Есть скрипт для запуска программ из под администратора с известным паролем. Подскажите, как и где изменить скрипт, чтобы запускались программы из директории самого скрипта. Заранее благодарен.

Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "RunAs /noprofile /user:admin ""calc"""
WScript.Sleep 100
oShell.Sendkeys "1~"
Wscript.Quit