Войти

Показать полную графическую версию : [решено] скрыть выполнение vbs или объединение окон


Добрый Фей
03-07-2012, 14:48
Доброго времени суток, форумчане! В общем есть такой сценарий, который запускается при входе в систему:

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 окон, а одно?

Iska
03-07-2012, 16:19
1) Как все это дело скрыть? »
objShell.Run("%COMSPEC% /с cacls """ & strFolder1 & """ /E /P %Username%:R", 0)
2) Как сделать из этого чуда не 5 окон, а одно? »
Использовать пакетный файл. Вам здесь, в принципе, WSH не нужен, коль Вы напрямую задаёте названия каталогов.

Добрый Фей
03-07-2012, 16:32
Iska :) Спасибо.
Нам нужен именно vbs.
И вот еще один вопрос.. Как автоматически закрыть окна cmd (а их 5!) после выполнения скрипта?

Iska
03-07-2012, 16:41
Нам нужен именно vbs. »
Почему? Изложите причины.

И вот еще один вопрос.. Как автоматически закрыть окна cmd (а их 5!) после выполнения скрипта? »
Внимательно перечитать пост (http://forum.oszone.net/post-1945059.html#post1945059), обратив внимание на выделенное цветом.

Добрый Фей
03-07-2012, 16:48
Почему? Изложите причины. »
Потому что у пользователей, которым мы делаем этот скрипт, нет прав запускать bat файлы :)
Внимательно перечитать пост, обратив внимание на выделенное цветом. »
проверили :up все работает как нужно! спасибо!

Iska
03-07-2012, 16:52
Потому что у пользователей, которым мы делаем этот скрипт, нет прав запускать bat файлы »
Спасибо, ясно.

gora
04-07-2012, 20:25
cacls.exe - самостоятельная утилита, а не оператор cmd.exe. Может запускать ее непосредственно, без вызова cmd.exe?




© OSzone.net 2001-2012