This is a simple vbs script that ,when run will toggle the taskbar grouping
on or off.
Cut and paste everything between the lines and paste it into notepad. Save
the file as grouping.vbs and save it to the desktop. make sure you change
the save as type.... drop down box to all files. Once saved double click on
the file to run it. Rebooting is not needed.
Begin cut below this line
================================================== =================================
Message = "This 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, "Written by pcbutts1")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers
Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p =
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Explorer\Advanced\TaskbarGlomming"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Taskbar Grouping "
t = "Confirmation"
Err.Clear
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 1, itemtype
End If
If n = 1 Then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 0 then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "pcbutts1 is the best." & vbcr & vbcr , 4096, "Completed"
Else
MsgBox " Your system has not been modified." & vbcr & vbcr, 4096, "
Cancelled by User"
End If
================================================== ==================================
End cut above this line
--
The best live web video on the internet http://www.seedsv.com/webdemo.htm
NEW Embedded system W/Linux. We now sell DVR cards.
See it all at http://www.seedsv.com/products.htm
Sharpvision simply the best http://www.seedsv.com
"Avi" <avimakritsu@gmail.com> wrote in message
news:1155323043.956597.321990@p79g2000cwp.googlegr oups.com...
