alguien me ayuda hacer un VBScript o un bat para crear una llave de inicio. o copiar el archivo en carpeta inicio....

Set objShell=CreateObject("WScript.Shell")
Set fs=CreateObject("Scripting.FileSystemObject")
Ruta_startup=objShell.specialfolders("Startup")
origen=ruta\archivo
destino=Ruta_startup & "\" & "archivo"
fs.CopyFile origen, destino, true

En batch es más complicado porque no hay una variable para la carpeta inicio, y puesto que de acuerdo al idioma y la versión del SO cambia el nombre de la ruta es difícil establecer un criterio unificado, por lo cual te recomiendo lo anterior.
Saludos.