Vista扩展的平铺现象解决

上次用电脑用着用着,不知怎么回事,在我的电脑里,所有硬盘盘符下面的状态条都不见里, 我是Vista Ultimate系统,应该有容量条显示的.  这是由于"视图"设置错误引起的, 但是在视图设置里 ,发现没有平铺的选项,而变成了"扩展的平铺"

 下面的vbs脚本通过修改注册表,解决了"扩展的平铺" 恢复了原先的平铺.因为遇到此现象的不是我一人,所以写上来分享一下.

将下面的内容完整复制到记事本txt文档中,,然后扩展名改为vbs就可以了,双击直接使用.

const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath1 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"
strKeyPath2 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU"
strKeyPath3 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
DeleteSubkeys HKEY_CURRENT_USER, strKeypath1
DeleteSubkeys HKEY_CURRENT_USER, strKeypath2
DeleteSubkeys HKEY_CURRENT_USER, strKeypath3
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
    objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
    If IsArray(arrSubkeys) Then
        For Each strSubkey In arrSubkeys
            DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey
        Next
    End If
    objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub

                                  ----------------------By Lenne