'------------Startup Main 2.9----------------


'this is the FIRST to run as it sometime resets the desktop icons
'(wintidy runs later to restore desktop icon positions)
SecondsToDelay = "2" '2 seconds delay so some HKLM\run stuff gets done
ProgramToRun = "D:\Prografile\Trillian\Trillian Free 0.74d\trillian.exe"
Wscript.Sleep(SecondsToDelay * 1000)
Prog = Chr(34) & ProgramToRun & Chr(34)
CreateObject("WScript.Shell").Run(Prog)


'--useless but nice menu shadows
'SecondsToDelay = "1"
'ProgramToRun = "D:\Prografile\Yz Shadow 1.9\YzShadow.exe"
'Wscript.Sleep(SecondsToDelay * 1000)
'Prog = Chr(34) & ProgramToRun & Chr(34)
'CreateObject("WScript.Shell").Run(Prog)


'lets start this one in its own dir hmm?
SecondsToDelay = "1"
Set oShell = CreateObject("Wscript.Shell")
Wscript.Sleep(SecondsToDelay * 1000)
oShell.Run "%comspec% /c CD /D ""D:\Prografile\Samurize 0.92d"" && start Client.exe", 0, True


'wintidy, lets get some order with this desktop
SecondsToDelay = "1"
Set oShell = CreateObject("Wscript.Shell")
Wscript.Sleep(SecondsToDelay * 1000)
oShell.Run "%comspec% /c CD /D ""D:\Prografile\WinTidy"" && start WinTidy.exe", 0, True


'Task Manager, normal update speed
SecondsToDelay = "1"
Set oShell = CreateObject ("WSCript.shell")
Wscript.Sleep(SecondsToDelay * 1000)
sCmd = Chr(34) & "C:\WINNT_5.1\system32\taskmgr.exe" & Chr(34)
oShell.Run sCmd, 7, False


'A workaround for explorer forgets window size and settings (in addition to bags=2048)
SecondsToDelay = "1"
ProgramToRun = "D:\Prografile\ZMover 4.1\ZMover.exe"
Wscript.Sleep(SecondsToDelay * 1000)
Prog = Chr(34) & ProgramToRun & Chr(34)
CreateObject("WScript.Shell").Run(Prog)


'a spam buster, it save me lots of time and its pretty (compared to mailwasher)
SecondsToDelay = "1"
ProgramToRun = "D:\Prografile\MailShield Desktop 3.0\mailshield.exe"
Wscript.Sleep(SecondsToDelay * 1000)
Prog = Chr(34) & ProgramToRun & Chr(34)
CreateObject("WScript.Shell").Run(Prog)


'SecondsToDelay = "1"
'ProgramToRun = "D:\Prografile\mIRC\mirc.exe"
'Wscript.Sleep(SecondsToDelay * 1000)
'Prog = Chr(34) & ProgramToRun & Chr(34)
'CreateObject("WScript.Shell").Run(Prog)


'-----------------------------------------