happywanderer
|
 Posted: Sat Feb 19, 2011 23:57 Post subject: |
 |
|
| Flasher wrote: | Без перезагрузки: | Code: | ' Запретить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /D """&User&""" /E",0,True
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":R /E",0
Next
End With |
| Code: | ' Разрешить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":F /E",0
Next
End With |
|
Работает отлично, во всех учётках, даже в "Гость", за что автору СПАСИБО! |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
