Two Questions

[SOOPAFLY]

1.my attempt to install a theme by default has failed for some reason although i think i did all the necessary stuff

[shell]

DefaultStartPanelOff = No

DefaultThemesOff = No

CustomDefaultThemeFile = "%WinDir%\Resources\Themes\Watercolor Ergonomic.theme"

and put the theme in $OEM$\$$\Resources\Themes\

2.I need to execute a script upon system reboot after the installation(but it doesn't executes for some reason)

so i added the following reg entery to my regtweaks and coppied the script to systemdrive

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

"shortcuts"="%SYSTEMDRIVE%\shortcuts.vbs"

---------------------------script_code------------------------------------

' Some move,create & delete operations
' This script will delete itself upon complition 

dim fso,demofile,oShellLink,demofolder

Set fso = CreateObject("Scripting.FileSystemObject")

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

WScript.Sleep 60000

Set oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\cmd.lnk"))

oShellLink.TargetPath = "cmd.exe"

oShellLink.Save

Set oShellLink=Nothing

Set oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\Text_editor.lnk"))

oShellLink.TargetPath = "notepad.exe"

oShellLink.Save

Set oShellLink=Nothing

Set oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\RegEdit.lnk"))

oShellLink.TargetPath = "regedit.exe"

oShellLink.Save

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\Start Menu\programs\Ahead Nero\Nero - Burning Rom.lnk"))

demofile.Move (WshShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Internet Explorer\Quick Launch\"))

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\RegCleaner.lnk"))

demofile.Move (WshShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Internet Explorer\Quick Launch\"))

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\FlashGet.lnk"))

demofile.Move (WshShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Internet Explorer\Quick Launch\"))

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\Programs\Windows Media Player.lnk"))

demofile.Delete

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\Programs\Internet Explorer.lnk"))

demofile.Delete

Set demofolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\My Documents\My Music\"))

Set demofolder.Attributes = 0

demofolder.Delete

Set demofolder = fso.Getfolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\My Documents\My Pictures\"))

Set demofolder.Attributes = 0

demofolder.Delete

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%appdata%\IconCache.db"))

demofile.Delete

Set demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%systemdrive%\shortcuts.vbs"))

demofile.Delete

WScript.Quit

(ohh and the script is errorless it's just an execution prob)

[xper]

11. Please refrain from using CAPITALIZATIONS in the topic title or when participating in threads because they will not attract attention - instead it will annoy many of MSFN's members.

Read forum rules

Thank you

[SOOPAFLY]

WTF is this maybe you should consider posting something more useful

[DaveXP]

WTF is this maybe you should consider posting something more useful

erm...he owns this forum dont upset him and i think as he owns it he can post what he likes

[bigred]

Wow...sounding like a bunch of 13 year olds in here...