GoblinNN
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: 'Скрипт правильно обновляет Рабочий стол, очищая (обновляя) кэш иконок командами в 8-ой и 9-ой строках. 'Побочным действием такой очистки кэша и обновления оболочки является создание файлов-отчётов. 'Команды, начинающиеся с 14-ой строки, отвечают за удаление этих логов после паузы в 1 секунду (10-я строка). '13-я строка указывает сценарию переменную среду %userprofile%, которую Microsoft ® WBSH по умолчанию не понимает. 'Автор скрипта: Аванесян Х.С. Set oShell = WScript.CreateObject ("WScript.Shell") oShell.run "ie4uinit.exe -show" oShell.run "ie4uinit.exe -ClearIconCache" WScript.Sleep 1000 Set objFSO = CreateObject("Scripting.FileSystemObject") set WshShell = CreateObject("WScript.Shell") UserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-ClearIconCache.log") Then objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-ClearIconCache.log" End If If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-show.log") Then objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-show.log" End If If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\brndlog.txt") Then objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\brndlog.txt" End If If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-UserConfig.log") Then objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-UserConfig.log" End If |
| Всего записей: 2908 | Зарегистр. 11-10-2005 | Отправлено: 15:24 20-11-2019 | Исправлено: GoblinNN, 15:28 20-11-2019 |
|