quicklaunch solution

[SOOPAFLY]

during

[DaveXP]

during

...........

[SOOPAFLY]

during the unattended stage i copy a vbs script that i'll show you in a minute to systemroot than in the registry tweaks i add the following key let's call it qlaunch

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

"qlaunch"="%systemroot%\qlaunch.vbs"

this script will delete itself and the registry entery after execution

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "control.exe"

Wscript.Sleep 5000

WshShell.AppActivate "Control Panel"

Wscript.Sleep 1000

WshShell.SendKeys "^{TAB}"

Wscript.Sleep 600

WshShell.SendKeys "^{TAB}"

Wscript.Sleep 600

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 2000

WshShell.SendKeys "t"

Wscript.Sleep 600

WshShell.SendKeys "t"

Wscript.Sleep 600

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 2500

WshShell.AppActivate "Taskbar and Start Menu Properties"

Wscript.Sleep 1000

WshShell.SendKeys "%q"

Wscript.Sleep 600

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 5000

WshShell.AppActivate "Control Panel"

Wscript.Sleep 1000

WshShell.SendKeys "{TAB}"

Wscript.Sleep 600

WshShell.SendKeys "{TAB}"

Wscript.Sleep 600

WshShell.SendKeys "{TAB}"

Wscript.Sleep 600

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 2500

WshShell.SendKeys "%{F4}"

Wscript.Sleep 1000

WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\qlaunch"

dim filesys, demofile

set filesys = CreateObject ("Scripting.FileSystemObject")

set demofile = filesys.CreateTextFile ("%systemroot%\qlaunch.vbs", true)

set demofile = filesys.GetFile("%systemroot%\qlaunch.vbs")

demofile.Delete