AUTO ARRANGE in Windows 7/Server 2008R2

[Sommerville]

Hi All,

I'm working on an unattended SOE build for my company. I've done this before for XP and got lots of useful info from this site.

Issue:

How to select " Auto Arrange " for DESKTOP ICONS in W7 using a script or reg patch

Question:

How are other people getting this to work for their W7/W2K8 installs?

How I got to work in XP:

I used a VBS script to get this working in Windows XP which looked like this. I've tried to reuse by reintroducing the "Show Desktop.scf" file into the Windows 7 build and also tried to use WINDOWS+D to show desktop however neither step works when I actually script it.

Dim Act, AppData, Fso, SD

Set Act = CreateObject("WScript.Shell")

Set Fso = CreateObject("Scripting.FileSystemObject")

SD = Act.ExpandEnvironmentStrings("%Systemdrive%")

AppData = Act.ExpandEnvironmentStrings("%Appdata%")

AppData = AppData & "\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf"

Act.Run(Chr(34) & AppData & Chr(34))

WScript.Sleep 1500

Act.sendkeys "{F5}"

WScript.Sleep 800

Act.sendkeys "+{F10}"

WScript.Sleep 100

Act.sendkeys "I"

WScript.Sleep 100

Act.sendkeys "A"

WScript.Sleep 500

Act.sendkeys "+{F10}"

WScript.Sleep 500

Act.sendkeys "%+{TAB}"

WScript.Sleep 500

Act.sendkeys "%+{TAB}"

THANKS FOR YOUR HELP / SUPPORT

Alan.

Edited May 21, 2010 by Sommerville