VPF::Если сбились настройка панели задач

mihanik

Дата 3.11.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109

У меня как-то на одном из компов сбилась настройка панели задач.
Я и так, и эдак...
Звоню мелкомягким.
Они мне сбрасывают следующий VBScript

Код


Set WSHShell = WScript.CreateObject("WScript.Shell") 
 
Message = "To work correctly, the script will close" & vbCR 
Message = Message & "and restart the Windows Explorer shell." & vbCR 
Message = Message & "This will not harm your system." & vbCR & vbCR 
Message = Message & "Continue?" 
 
X = MsgBox(Message, vbYesNo, "Notice") 
 
If X = 6 Then  
 
On Error Resume Next 
 
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\" 
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU\" 
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\" 
 
WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize" 
 
P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\" 
 
WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD" 
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD" 
WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD" 
WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD" 
WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD" 
 
p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\" 
 
WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" 
WshShell.RegDelete p1 & "NoMovingBands" 
 
p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell" 
 
WshShell.RegWrite p1, "explorer.exe", "REG_SZ" 
 
p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\" 
WshShell.RegDelete p1 & "BarSize" 
WshShell.RegWrite p1, "Media Band", "REG_SZ" 
 
On Error Goto 0 
 
For Each Process in GetObject("winmgmts:"). _ 
    ExecQuery ("select * from Win32_Process where name='explorer.exe'") 
   Process.terminate(0) 
Next 
 
MsgBox "Finished." & vbcr & vbcr & "й Kelly Theriot and Doug Knox", 4096, "Done" 
 
Else 
 
MsgBox "No changes were made to your system." & vbcr & vbcr & "й Kelly Theriot and Doug Knox", 4096, "User Cancelled" 
 
End If

И, о чудо!!!

Всё встало на свои места.
Может, кому-нибудь пригодиться...

Пиханите текст в файл с именем change_taskbar.vbs или ему подобным и пользуйтесь...

ЗЫ.
Правда языковая панель и панель быстрого запуска прячуться...
Но разве трудно их вернуть при помощи пары кликов? smile

--------------------

Программистами не рождаются, - это родовая травма...

localhost

Дата 3.11.2006, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Хирург-длятехкт

Профиль
Группа: Участник
Сообщений: 712
Регистрация: 8.11.2005
Где: Н.Новгород

Репутация: 37
Всего: 43

Я всегда говорил, что WSH рулит smile

--------------------

ВСЕ Нижегородцы! Отмечаемся здесь!!!
Jabber ID: [email protected]

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »