Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 140
Благодарности: 92

Профиль | Отправить PM | Цитировать


Vadikan,

Цитата Vadikan:
Никакого бага с учетками там нет»
про баг с учетками читаем по той ссылке, что дал okshef.

Цитата Vadikan:
Для выполнения данного 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, хотя это может быть частный случай.

Последний раз редактировалось deepred, 11-08-2010 в 10:48.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:23, 24-07-2010 | #14