Flasher
|
 Posted: Wed Feb 16, 2011 12:48 Post subject: |
 |
|
happywanderer
Первый вариант - для всех, второй - для текущего юзера. А как надо было?
Для обратных:
| Code: | ' Вкключить иконки, вызов меню и запись на Рабочий стол
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"
.RegWrite P & "ActiveDesktop\NoAddingComponents",0,"REG_DWORD"
.RegWrite P & "ActiveDesktop\NoComponents",0,"REG_DWORD"
.RegWrite P & "Explorer\NoDesktop",0,"REG_DWORD"
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 |
| happywanderer wrote: | | кнопочку для ... |
Скриптик. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
