cls
color r/n

$RepertoireSource = "G:\CONFIG\IMAGES\"

$NomFichier = Dir($RepertoireSource + "*.BMP")
Dim $TableauNomFichiers[500]
$IndexFichier = 0

While $NomFichier <> "" and @ERROR = 0
$TableauNomFichiers[$IndexFichier] = $NomFichier
$IndexFichier = $IndexFichier + 1
$NomFichier = Dir()
Loop

$dummy = (VAL(SUBSTR(@TIME,7,2))*1000)
SRND ($dummy)

$Indexaleatoire = RND($IndexFichier - 1)

$ret = SetWallPaper($RepertoireSource + $TableauNomFichiers[$indexaleatoire])

This script works but the picture appear when i use ctrl+alt+suppr and not in the session wallpaper.

Any idea ?

so, what happens if you change line:
$ret = SetWallPaper($RepertoireSource + $TableauNomFichiers[$indexaleatoire])
to:
$ret = SetWallPaper($RepertoireSource + $TableauNomFichiers[$indexaleatoire],0)
or to:
$ret = SetWallPaper($RepertoireSource + $TableauNomFichiers[$indexaleatoire],1)
???

Thanks!

- Kent

But i'd think is a W2K bug. If i leave "no picture in the background properties, the picture of the script will be overwritten by "no picture".
But if i select a picture, the script will overwrite this picture and so my script work !!! I'm going to put a black picture by default.

Thanks for your help

Steven