[deepred]

okshef,

Скрипты стандартные и рабочие, но первый еще больше усложнит запуск твоего кода с параметрами, а второй будет просто лишним переходом. При все этом конструкцию execute ты можешь использовать и в своем сценарии:

Код:

т.е :

   вместо твоего oWSH.Run("manage-bde.exe" & Args,0,True)

  objShell.ShellExecute "wscript.exe", Chr(34) & _
  "manage-bde.exe" & Chr(34) & " Args", "", "runas", 1

  но не забудь, что это "Shell.Application", а не "Wscript.Shell""

shellExecute(<File>,<Arguments>,<Directory>,<Operation>,<Show>)

Параметры:
<File> - строка. Имя файла.
<Arguments> - строка (необязательный). Параметры для <Operation>.
<Directory> - строка (необязательный). Путь к каталогу с указанным файлом. Если не указан, используется текущий каталог.
<Operation> - строка (необязательный). Действие ("глагол"), которое необходимо выполнить. Если не указан, используется действие по умолчанию.
<Show> - число (необязательный)

[okshef]

deepred, я никогда не писал скрипты и не понимаю в них ничего. Мне нужен готовый, который можно было бы использовать.

[Vadikan]

В общем понятно, т.е. у тебя выскочил bug с учетками? »

Никакого бага с учетками там нет. Для выполнения данного VBS нужны полные права администратора, а если их нет, скрипт не отработает просто. Когда скрипт выполняется при включенном UAC, он запускается с обычными правами. Вот и все.

Будьте проще, сделайте готовый скрипт

[deepred]

Vadikan,

Никакого бага с учетками там нет»

про баг с учетками читаем по той ссылке, что дал okshef.

Для выполнения данного VBS нужны полные права администратора, а если их нет, скрипт не отработает просто »

Некоректно замечание: для выполнения скрипта достаточно прав учетной записи, а вот для запуска "manage-bde" уже нужны права администратора (UAC active), но при всем при этот скрипт будет отработан полностью, независмо от того - был ли запущен exe или нет...

Код:

Args = ""

For i = 0 To Wscript.Arguments.Count - 1
     Args = Args & " " & Wscript.Arguments.Item(i)
Next
Args = Replace(Args,"\","")

Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "manage-bde.exe", Args, "C:\Windows\System32", "runas", 0

Wscript.Echo "Сценарий выполнен"
Wscript.Quit 0

Доп. информация:
Приведенный сценарий работает на Win7 Ultimate и Home Premium, но при проверке не сработал на WinVista Home Premium и Business, хотя это может быть частный случай.

[okshef]

deepred, СПАСИБО! Отчитываюсь: Windows 7 x 32 Максимальная, сработал чудно. Убрал

Код:

Wscript.Echo "Сценарий выполнен"

О практическом применении читайте в ближайшее время на сайте.

[okshef]

Блокировка диска, зашифрованного с помощью битлокер, из контекстного меню

[Vadikan]

deepred, не вижу бага...

Некоректно замечание: для выполнения скрипта достаточно прав учетной записи, а вот для запуска "manage-bde" уже нужны права администратора »

Ну так я и сказал

Для выполнения данного VBS нужны полные права администратора »

Спасибо за скрипт