Цитата Wu-Tang:
Содержание Del Files & Folders.vbs:
Код:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
...
fso.DeleteFile UserProfile & "\SendTo\Адресат.*", True
fso.DeleteFile UserProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile UserProfile & "\SendTo\Сжатая ZIP-папка.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Адресат.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Сжатая ZIP-папка.*", True
fso.DeleteFolder ProgramFiles & "\WindowsUpdate", True
fso.DeleteFolder ProgramFiles & "\Uninstall Information", True
Вуаля, и после ребута все чисто. »
|
Хочу заметить, что в папке %AllUsersProfile% папка SendTo отсутствует,соответственно, бесполезны строки:
Код:
fso.DeleteFile AllUsersProfile & "\SendTo\Адресат.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Сжатая ZIP-папка.*", True
При создании нового пользователя (даже после удаления из Documents and Settings\Default User\SendTo) они (пункты в Отправить -) у него появляются. Есть интересная папка - WINDOWS\system32\config\systemprofile\SendTo, в ней и лежат эти Адресат, Мои Документы, Сжатая ZIP-папка. Не пробовал, возможно, они берутся для нового пользователя оттуда. А вообще, чтобы намертво удалить элементы в папке SendTo надо смотреть реестр еще (имхо).
