Script to fix inactive Windows taskbar

D

Dan Musicant

I've had an on again off again problem on my Windows XP Professional
desktop wherein on bootup, the taskbar, Start menu, basically everything
below the line on top of the taskbar is totally inaccessible. Don't know
what causes it or how to stop it from happening but someone linked me to
a free download, being a VBS script that when run, fixes the problem,
and that's what I've been doing. I've probably run this 25-50 times,
maybe more. After running it I have to make a couple of adjustments to
get things the way I like them. Is it possible to tweak this script so I
don't have to make adjustments (1) and (2) afterwards?

Adjustment (1): I have to open Taskbar and Start Menu properties and
check the box [ ] Show Quick Launch

Adjustment (2): I have to move the Show Desktop icon to the far left,
where I'm accustomed to having it.


Here's the script:


'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized
programs don't show.
'© Kelly Theriot and Doug Knox - 8/22/2003

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


Email: dmusicant at pacbell dot net
 
D

Dave Patrick

More than likely is malware related.



--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect


Dan Musicant said:
I've had an on again off again problem on my Windows XP Professional
desktop wherein on bootup, the taskbar, Start menu, basically everything
below the line on top of the taskbar is totally inaccessible. Don't know
what causes it or how to stop it from happening but someone linked me to
a free download, being a VBS script that when run, fixes the problem,
and that's what I've been doing. I've probably run this 25-50 times,
maybe more. After running it I have to make a couple of adjustments to
get things the way I like them. Is it possible to tweak this script so I
don't have to make adjustments (1) and (2) afterwards?

Adjustment (1): I have to open Taskbar and Start Menu properties and
check the box [ ] Show Quick Launch

Adjustment (2): I have to move the Show Desktop icon to the far left,
where I'm accustomed to having it.


Here's the script:


'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized
programs don't show.
'© Kelly Theriot and Doug Knox - 8/22/2003

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


Email: dmusicant at pacbell dot net
 
D

Dan Musicant

On Thu, 29 Oct 2009 21:32:16 -0600, "Dave Patrick"

:More than likely is malware related.

Thanks. I'll run some malware detection/cure programs. I have Avira Free
and Superantispyware Free running all the time, do frequent updates,
occasional scans. Will pursue this, can't hurt to run anti-malware
anyway.


Email: dmusicant at pacbell dot net
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top