I finally mastered the Windows Explorer views under Windows XP and 2003!<\/p>\n
The following script is fully documented.<\/p>\n
Enjoy!<\/p>\n
Option Explicit<\/p>\n Dim objShell, objReg, strComputer, strKeyRoot, strKeyPath, strValueName, strValue Const HKEY_CURRENT_USER = &H80000001<\/p>\n blnDebug = False<\/p>\n arrKeys = Array(“ShellNoRoam”,”Shell”)<\/p>\n blnChangeExistingFolders = True<\/p>\n ‘ Set strView to either medium icons, small icons, list, details, thumbnail, tiles ‘ Folder View Mode Values under Bags\\Nodeslot_number\\Shell. All values are DWORD ‘ FFlags Values under Bags\\Nodeslot_number\\Shell. All values are DWORD ‘ Sort Values under Bags\\Nodeslot_number\\Shell. All values are DWORD strComputer = “.”<\/p>\n Set objShell = WScript.CreateObject(“WScript.Shell”) strKeyRoot = “HKCU\\” ‘ New profiles will not contain the key structure, so we need to create them. ‘ The ShellNoRoam fix as per the Sepago article. ‘ Create the AllFolders key, and values within. ‘ Enumerate and change existing folder values. Set objShell = Nothing WScript.Quit(0)<\/p>\n Function RegKeyExists(ByVal sRegKey) I finally mastered the Windows Explorer views under Windows XP and 2003! The following script is fully documented. Enjoy!<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[5],"tags":[129],"class_list":["post-280","post","type-post","status-publish","format-standard","hentry","category-scripting","tag-windows-explorer-views"],"aioseo_notices":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/280","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/comments?post=280"}],"version-history":[{"count":6,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/280\/revisions"}],"predecessor-version":[{"id":282,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/280\/revisions\/282"}],"wp:attachment":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/media?parent=280"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/categories?post=280"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/tags?post=280"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n‘================================================================================
\n‘
\n‘ This script sets the Details view for all folders.
\n‘
\n‘ Release 1.3 on 22nd April 2009.
\n‘ Created by Jeremy@jhouseconsulting.com on 6th February 2007.
\n‘
\n‘ On a Per-User basis, folder views are managed under two registry keys:
\n‘ 1) Network Folders – HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\Shell
\n‘ 2) Local Folders – HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\ShellNoRoam
\n‘ Just so you don’t get confused let me explain that drive mappings are considered
\n‘ to be local folders. Network folders are UNC paths.
\n‘
\n‘ How to configure the default Folder Type template for users
\n‘ Create the AllFolders key under the following key:
\n‘ – HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\ShellNoRoam\\Bags\\AllFolders
\n‘ – Then create a Shell key under that.
\n‘ – Set the following values…
\n‘ – DWORD value WFlags set to 0
\n‘ – DWORD value Mode set to 4
\n‘ – String value vid set to “{137E7700-3573-11CF-AE69-08002B2E1262}”
\n‘
\n‘ Note the following table can be used to configure the above values (WFlags
\n‘ should always be 0)
\n‘ View Mode vid
\n‘ Icons (medium) 1 {0057D0E0-3573-11CF-AE69-08002B2E1262}
\n‘ Icons (small) 2 {0057D0E0-3573-11CF-AE69-08002B2E1262}
\n‘ List 3 {0E1FA5E0-3573-11CF-AE69-08002B2E1262}
\n‘ Details 4 {137E7700-3573-11CF-AE69-08002B2E1262}
\n‘ Thumbnail 5 {8BEBB290-52D0-11D0-B7F4-00C04FD706EC}
\n‘ Tiles 6 {65F125E5-7BE1-4810-BA9D-D271C8432CE3}
\n‘ Filmstrip 7 {8EEFA624-D1E9-445B-94B7-74FBCE2EA11A}
\n‘
\n‘ Note that if you don’t want to show the status bar in the default folder view
\n‘ create a Status DWORD value and set it to 0
\n‘
\n‘ Rather than creating this individually for each user you may choose to create
\n‘ it globally by setting the exact same values in the HKEY_LOCAL_MACHINE registry
\n‘ hive instead. The ShellNoRoam key does not exist in the HKLM hive by default.
\n‘
\n‘ This script will also set\/reset the view of any existing cached folders. To do
\n‘ this it uses WMI to enumerate all the registry subkeys under the following keys:
\n‘ – “HKCU\\Software\\Microsoft\\Windows\\ShellNoRoam\\Bags”
\n‘ – “HKCU\\Software\\Microsoft\\Windows\\Shell\\Bags”
\n‘
\n‘ It then uses WMI to create\/modify the Mode and Vid values under the following
\n‘ keys, where Nodeslot_number is the enumerated subkey:
\n‘ – “HKCU\\Software\\Microsoft\\Windows\\ShellNoRoam\\Bags\\Nodeslot_number\\Shell”
\n‘ – “HKCU\\Software\\Microsoft\\Windows\\Shell\\Bags\\Nodeslot_number\\Shell”
\n‘
\n‘ You can choose to leave existing folder views as they are by setting the
\n‘ blnChangeExistingFolders value to False. This allows users to change the view
\n‘ as they wish, without it being overwritten next time they log in.
\n‘
\n‘ Note that you must close and reopen Windows Explorer to see the changes.
\n‘
\n‘ Usage:
\n‘ cscript.exe \/\/nologo SetExplorerViews.vbs
\n‘
\n‘ This script was based on…
\n‘ 1) A kixtart script written by Rick Mack.
\n‘ 2) A blog by Nicholas Dille from Sepago found here:
\n‘ http:\/\/blogs.sepago.de\/nicholas\/2009\/02\/17\/preserving-windows-explorer-folder-views-in-roaming-profiles\/
\n‘ 3) An article by “Snakefoot” found here:
\n‘ http:\/\/smallvoid.com\/article\/winnt-default-folder-view.html
\n‘
\n‘================================================================================<\/p>\n
\nDim Return, blnDebug, arrSubKeys, subkey, i, strSystemRoot, strCommandLine, strView
\nDim arrKeys, item, intMode, strVid, blnChangeExistingFolders<\/p>\n
\n‘ or filmstrip
\nstrView = “Details”<\/p>\n
\nSelect Case lcase(strView)
\n Case “medium icons” ‘The view should display medium-size icons
\n intMode = 1
\n strVid = “{0057D0E0-3573-11CF-AE69-08002B2E1262}”
\n Case “small icons” ‘The view should display small icons
\n intMode = 2
\n strVid = “{0057D0E0-3573-11CF-AE69-08002B2E1262}”
\n Case “list” ‘Object names are displayed in a list view
\n intMode = 3
\n strVid = “{0E1FA5E0-3573-11CF-AE69-08002B2E1262}”
\n Case “details” ‘Object names and other selected information, such as the size or date last updated, are shown
\n intMode = 4
\n strVid = “{137E7700-3573-11CF-AE69-08002B2E1262}”
\n Case “thumbnail” ‘The view should display thumbnail icons
\n intMode = 5
\n strVid = “{8BEBB290-52D0-11D0-B7F4-00C04FD706EC}”
\n Case “tiles” ‘The view should display large icons
\n intMode = 6
\n strVid = “{65F125E5-7BE1-4810-BA9D-D271C8432CE3}”
\n Case “filmstrip” ‘The view should display icons in a filmstrip format
\n intMode = 7
\n strVid = “{8EEFA624-D1E9-445B-94B7-74FBCE2EA11A}”
\nEnd Select<\/p>\n
\n‘ – Autoarrange_Off_Align_to_Grid_Off = 220
\n‘ – Autoarrange_On = 221
\n‘ – Autoarrange_off_Align_to_Grid_On = 224
\n‘ – Autoarrange_On_Align_to_Grid_On = 225<\/p>\n
\n‘ – Sort_by_Name = 0
\n‘ – Sort_by_Size = 1
\n‘ – Sort_by_Type = 2
\n‘ – Sort_By_Modified = 3<\/p>\n
\nSet objReg = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” & _
\n strComputer & “\\root\\default:StdRegProv”)<\/p>\n
\nstrKeyPath = “Software\\Microsoft\\Windows\\”<\/p>\n
\nFor Each item in arrKeys
\n If NOT RegKeyExists(strKeyRoot & strKeyPath & item) Then
\n Return = objReg.CreateKey (HKEY_CURRENT_USER,strKeyPath & item)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “Create the ” & strKeyPath & item & ” key.”
\n Else
\n Wscript.Echo “Could not create the ” & strKeyPath & item & ” key.”
\n End If
\n End If
\n End If
\n If NOT RegKeyExists(strKeyRoot & strKeyPath & item & “\\Bags”) Then
\n Return = objReg.CreateKey (HKEY_CURRENT_USER,strKeyPath & item & “\\Bags”)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “Create the ” & strKeyPath & item & “\\Bags key.”
\n Else
\n Wscript.Echo “Could not create the ” & strKeyPath & item & “\\Bags key.”
\n End If
\n End If
\n End If
\n If NOT RegKeyExists(strKeyRoot & strKeyPath & item & “\\BagMRU”) Then
\n Return = objReg.CreateKey (HKEY_CURRENT_USER,strKeyPath & item & “\\BagMRU”)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “Create the ” & strKeyPath & item & “\\BagMRU key.”
\n Else
\n Wscript.Echo “Could not create the ” & strKeyPath & item & “\\BagMRU key.”
\n End If
\n End If
\n End If
\nNext<\/p>\n
\nstrValueName = “”
\nstrValue = “%COMPUTERNAME%”
\nReturn = objReg.SetExpandedStringValue (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam”,strValueName,strValue)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetExpandedStringValue succeeded”
\n Else
\n Wscript.Echo “SetExpandedStringValue failed. Error = ” & Err.Number
\n End If
\nEnd If<\/p>\n
\nReturn = objReg.CreateKey (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam\\Bags\\AllFolders”)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “Create the ” & strKeyPath & “ShellNoRoam” & “\\Bags\\AllFolders key.”
\n Else
\n Wscript.Echo “Could not create the ” & strKeyPath & “ShellNoRoam\\Bags\\AllFolders key.”
\n End If
\nEnd If
\nReturn = objReg.CreateKey (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell”)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “Create the ” & strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell key.”
\n Else
\n Wscript.Echo “Could not create the ” & strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell key.”
\n End If
\nEnd If
\nReturn = objReg.SetDWORDValue (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell”,”WFlags”,0)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetDWORDValue succeeded”
\n Else
\n Wscript.Echo “SetDWORDValue failed. Error = ” & Err.Number
\n End If
\nEnd If
\nReturn = objReg.SetDWORDValue (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell”,”Mode”,intMode)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetDWORDValue succeeded”
\n Else
\n Wscript.Echo “SetDWORDValue failed. Error = ” & Err.Number
\n End If
\nEnd If
\nReturn = objReg.SetStringValue (HKEY_CURRENT_USER,strKeyPath & “ShellNoRoam\\Bags\\AllFolders\\Shell”,”Vid”,strVid)
\nIf blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetStringValue succeeded”
\n Else
\n Wscript.Echo “SetStringValue failed. Error = ” & Err.Number
\n End If
\nEnd If<\/p>\n
\nIf blnChangeExistingFolders Then
\n For Each item in arrKeys
\n Return = objReg.EnumKey (HKEY_CURRENT_USER, strKeyPath & item & “\\Bags”, arrSubKeys)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “EnumKey succeeded”
\n Else
\n Wscript.Echo “EnumKey failed. Error = ” & Err.Number
\n End If
\n End If
\n If blnDebug Then
\n‘ The next three lines for debugging purposes only to display the contents of
\n‘ the array elements.
\n For i = 0 to UBound(arrSubKeys)
\n Wscript.echo “Array element ” & i & ” contains a value of ” & arrSubKeys(i)
\n Next
\n End If
\n If IsArray(arrSubKeys) Then
\n For Each subkey In arrSubKeys
\n Return = objReg.SetDWORDValue (HKEY_CURRENT_USER,strKeyPath & item & “\\Bags\\” & subkey & “\\” & “Shell”,”Mode”,intMode)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetDWORDValue succeeded”
\n Else
\n Wscript.Echo “SetDWORDValue failed. Error = ” & Err.Number
\n End If
\n End If
\n Return = objReg.SetStringValue (HKEY_CURRENT_USER,strKeyPath & item & “\\Bags\\” & subkey & “\\” & “Shell”,”Vid”,strVid)
\n If blnDebug Then
\n If (Return = 0) And (Err.Number = 0) Then
\n Wscript.Echo “SetStringValue succeeded”
\n Else
\n Wscript.Echo “SetStringValue failed. Error = ” & Err.Number
\n End If
\n End If
\n Next
\n End If
\n Next
\nEnd If<\/p>\n
\nSet objReg = Nothing<\/p>\n
\n‘ Returns True or False based on the existence of a registry key.
\n Dim sDescription, oShell
\n Set oShell = CreateObject(“WScript.Shell”)
\n RegKeyExists = True
\n sRegKey = Trim (sRegKey)
\n If Not Right(sRegKey, 1) = “\\” Then
\n sRegKey = sRegKey & “\\”
\n End If
\n On Error Resume Next
\n oShell.RegRead “HKEYNotAKey\\”
\n sDescription = Replace(Err.Description, “HKEYNotAKey\\”, “”)
\n Err.Clear
\n oShell.RegRead sRegKey
\n RegKeyExists = sDescription <> Replace(Err.Description, sRegKey, “”)
\n On Error Goto 0
\n Set oShell = Nothing
\nEnd Function
\n<\/dirtycode><\/p>\n","protected":false},"excerpt":{"rendered":"