Добрый Фей
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 окон, а одно?
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 окон, а одно?