October 5, 200322 yr 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,demofolderSet fso = CreateObject("Scripting.FileSystemObject")set WshShell = WScript.CreateObject("WScript.Shell")WScript.Sleep 60000Set oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\cmd.lnk"))oShellLink.TargetPath = "cmd.exe"oShellLink.SaveSet oShellLink=NothingSet oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\Text_editor.lnk"))oShellLink.TargetPath = "notepad.exe"oShellLink.SaveSet oShellLink=NothingSet oShellLink = WshShell.CreateShortcut(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\RegEdit.lnk"))oShellLink.TargetPath = "regedit.exe"oShellLink.SaveSet 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.DeleteSet demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Start Menu\Programs\Internet Explorer.lnk"))demofile.DeleteSet demofolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\My Documents\My Music\"))Set demofolder.Attributes = 0demofolder.DeleteSet demofolder = fso.Getfolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%\My Documents\My Pictures\"))Set demofolder.Attributes = 0demofolder.DeleteSet demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%appdata%\IconCache.db"))demofile.DeleteSet demofile = fso.GetFile(WshShell.ExpandEnvironmentStrings("%systemdrive%\shortcuts.vbs"))demofile.DeleteWScript.Quit (ohh and the script is errorless it's just an execution prob)
October 5, 200322 yr 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 rulesThank you
October 5, 200322 yr WTF is this maybe you should consider posting something more usefulerm...he owns this forum dont upset him and i think as he owns it he can post what he likes
Create an account or sign in to comment