On Error Resume Next
'------------------------------------------------
Function FileExt(fileName)
dim s, p
    p=InStrRev(fileName,".")
    s = mid(fileName,p)
    s = LCase(s)
    FileExt = s
End Function
'------------------------------------------------
Dim fso, dossier, element, collecFichier, s, shell, i
  Set shell = WScript.CreateObject("WScript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")

jcbCOM="jcb.tools"
TestCOMExists jcbCOM,"jcb.ocx"
set tools = wscript.CreateObject(jcbCOM,"event_")

curentVbs = WScript.ScriptFullName
p=InStrRev(curentVbs,"\")
curentDir = mid(curentVbs,1,p)

  Set dossier = fso.GetFolder(curentDir)
  Set collecFichier = dossier.Files
nbrFichier = collecFichier.count

Dim nomImg()
Redim nomImg(nbrFichier)

i = 0
For Each element in collecFichier
    If FileExt(element.name) = ".jpg" OR FileExt(element.name) = ".bmp" OR FileExt(element.name) = ".png" THEN
        nomImg(i)=element.name
        i = i + 1
        End If
Next

randomize()
nrbRand=Int(i * rnd())
FileName = curentDir & nomImg(nrbRand)
res=fso.FileExists(FileName) 


If res Then    tools.SetDesktop FileName
Wscript.quit
'--------------------------------------------------------------------
' Fonction de récupération du répertoire courant
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, "\"))
End Function
'--------------------------------------------------------------------
Sub TestCOMExists(name,module)
' Vérification d'installation d'un objet COM
on error resume next
clef="HKCR\" & name & "\"
dummy = shell.RegRead(Clef)
if err.number<>0 then 
' contrôle ActiveX non enregistré
    pathmodule=getpath()& module
    If not fso.fileExists(pathmodule) Then
        Mess = "Le contrôle ActiveX " & name & " est requis." & VBCRLF
        Mess=Mess & "Il est contenu dans le fichier " & module & VBCRLF
        Mess=Mess & "Or ce fichier n'a pas été trouvé." & VBCRLF
        MsgBox Mess, vbOKOnly + vbExclamation
        wscript.quit
        End If
    err.clear
    shell.Run "regsvr32.exe /s " & chr(34) & pathmodule & chr(34), SW_SHOWNORMAL,true
    dummy = shell.RegRead("HKCR\" & name & "\")
    if err.number<>0 then 
        Mess = "Le contrôle ActiveX " & name & " n'a pas pu être enregistré"
        MsgBox Mess, vbExclamation
        wscript.quit
        end if    
    end if
End Sub
'--------------------------------------------------------------------