Code :
- Dim regShell
- Set regShell = WScript.CreateObject("WScript.Shell" )
- Set Com1 = WScript.CreateObject("MSComDlg.CommonDialog" )
- Com1.Filter = "*.exe|*.exe"
- com1.maxfilesize=128
- Com1.showopen
- regShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & Com1.filetitle,Com1.FileName, "REG_SZ"
|
crée un fichier texte , copie tout ca dedans , renome en machine.vbs , double clique dessus , selectionne ton fichier exe et c'est partie