 |
|
| Добрый Фей |
03-07-2012 14:48 1944987 |
скрыть выполнение vbs или объединение окон
Доброго времени суток, форумчане! В общем есть такой сценарий, который запускается при входе в систему:
Цитата:
Dim strFolder1, strFolder2, strFolder3, strFolder4, strFolder5, objShell
strFolder1 = "%Userprofile%"
strFolder2 = "%Userprofile%\Рабочий стол"
strFolder3 = "%Userprofile%\Мои документы"
strFolder4 = "%Userprofile%\Избранное"
strFolder5 = "%Userprofile%\Главное меню"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("%COMSPEC% /k cacls """ & strFolder1 & """ /E /P %Username%:R")
objShell.Run("%COMSPEC% /k cacls """ & strFolder2 & """ /T /E /P %Username%:R")
objShell.Run("%COMSPEC% /k cacls """ & strFolder3 & """ /T /E /P %Username%:R")
objShell.Run("%COMSPEC% /k cacls """ & strFolder4 & """ /T /E /P %Username%:R")
objShell.Run("%COMSPEC% /k cacls """ & strFolder5 & """ /T /E /P %Username%:R")
WScript.Quit
|
Но после его запуска, собственно, появляются 5 dos окошек ("для продолжения нажмите любую клавишу"). Интересуют 2 вопроса
1) Как все это дело скрыть?
2) Как сделать из этого чуда не 5 окон, а одно? |
Цитата:
Цитата Добрый Фей
1) Как все это дело скрыть? »
|
Код:
objShell.Run("%COMSPEC% /с cacls """ & strFolder1 & """ /E /P %Username%:R", 0)
Цитата:
Цитата Добрый Фей
2) Как сделать из этого чуда не 5 окон, а одно? »
|
Использовать пакетный файл. Вам здесь, в принципе, WSH не нужен, коль Вы напрямую задаёте названия каталогов. |
| Добрый Фей |
03-07-2012 16:32 1945071 |
Iska :) Спасибо.
Нам нужен именно vbs.
И вот еще один вопрос.. Как автоматически закрыть окна cmd (а их 5!) после выполнения скрипта?
|
Почему? Изложите причины.
Цитата:
Цитата Добрый Фей
И вот еще один вопрос.. Как автоматически закрыть окна cmd (а их 5!) после выполнения скрипта? »
|
Внимательно перечитать пост, обратив внимание на выделенное цветом. |
| Добрый Фей |
03-07-2012 16:48 1945086 |
Цитата:
Цитата Iska
Почему? Изложите причины. »
|
Потому что у пользователей, которым мы делаем этот скрипт, нет прав запускать bat файлы :)
Цитата:
Цитата Iska
Внимательно перечитать пост, обратив внимание на выделенное цветом. »
|
проверили :up все работает как нужно! спасибо! |
Цитата:
Цитата Добрый Фей
Потому что у пользователей, которым мы делаем этот скрипт, нет прав запускать bat файлы »
|
Спасибо, ясно. |
cacls.exe - самостоятельная утилита, а не оператор cmd.exe. Может запускать ее непосредственно, без вызова cmd.exe?
|
Время: 06:57.
© OSzone.net 2001-