Ou bien tout simplement
Set a = CreateObject("wscript.shell")
a.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemXP", "c:\windows\zzz.vbs"
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\windows\zzz.vbs")
With MonFic
.writeLine "Msgbox "Virus detecter lol" "
End With
chez pas si sa marche !
a+
