Icon Size Registry Tweak

reghakr said:

You have no choice, when you change the size of the icons the grid changes automatically.

You can manually set the spacing between icons very easily :

rightclick desktop and go to "Personalization" page>Window color>advanced

from the dropdown box, you will see :

spacing between icons (horiz)
spacing between icon (vert)

From there you can manipulate the spacing to your liking.

Does andybody know a better way already?

Hello, I too would love to be able to change the icon size in Windows 7 by the registry or script. Reason: We have over 2000 systems and having the ability to control ever little detail is nice. I still need to look at Group Policy. I have tried everything in this post and nothing works.

Hello from France.
Thanks to this post informations, I've writen a little vbs script that autohide the taskbar and set the destop icons to small size.
How it works?
The script write an other script called "BarreDesTaches.vbs" in the temporary folder of Windows, add a registry entry in RunOnce to launch it on the next LogOn, and automatically LogOff.
Hope you enjoy!
L.

http://lamemelongueurdonde.com/blog/...eDesTaches.rar

This is a nifty script, but I was wondering what lines I would need to delete in order to affect only the desktop icon size (as that is the specific purpose of this thread), leaving the taskbar alone since I already have it configured exactly the way I want, and I definitely do not want it auto-hidden.

I am comfortable with DOS batch files but have no experience with VB or even WSH, so am not sure how to proceed. Thanks much for any guidance.

Code:

Option Explicit
'-------------------------------------------------------------------------------------------
'Récupération de l'emplacement de Windows
'-------------------------------------------------------------------------------------------
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
Dim strWinDir
strWinDir = oShell.ExpandEnvironmentStrings("%SystemRoot%") 
'-------------------------------------------------------------------------------------------
'Ecriture du fichier BarreDesTaches.vbs dans le répertoire temporaire
'-------------------------------------------------------------------------------------------
Dim objFSO, objTextFile
Dim strDirectory, strFile, strText
strDirectory = strWinDir & "\TEMP"
strFile = "\BarreDesTaches.vbs"
strText = "const HKCU = &H80000001" _
& VbCRLf & _
"dim oWMIReg"_
& VbCrLf & _
"set oWMIReg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")"_
& VbCrLf & _
"dim iValueArray()"_
& VbCrLf & _
"oWMIReg.GetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"iValueArray(8) = 3"_
& VbCrLf & _
"oWMIReg.SetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"oWMIReg.SetDWORDValue HKCU, ""Software\Microsoft\Windows\Shell\Bags\1\Desktop"", ""IconSize"", 30"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 2, True)
objTextFile.WriteLine(strText)
objTextFile.Close

'-------------------------------------------------------------------------------------------
'Lancement du fichier BarreDesTaches.vbs au prochain LogOn via Runeonce
'-------------------------------------------------------------------------------------------
const HKey_LOCAL_MACHINE = &H80000002
dim oWMIReg
set oWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
oWMIReg.SetStringValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "BarreDesTaches", strWinDir&"\Temp\BarreDesTaches.vbs"
'-------------------------------------------------------------------------------------------
'LogOff
'-------------------------------------------------------------------------------------------
dim objExec
Set objExec = oShell.Exec("logoff")
WScript.Quit

[/QUOTE]