- dim ruta as string 
-   
- ruta="C:\miaplicacion.exe" (en esta parte va la ruta de tu aplicacion) 
-   
- Set inicio = CreateObject("WScript.Shell") 
-   
- inicio.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\inicio", ruta 
-   
-