I found this in the snippet closet which may help:
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
intLowNumber = 1
intHighNumber = 3 'Total Number Of Wallpaper Choices
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Select Case intNumber 'Case Statements LowNumber to HighNumber
Case 1 : strPicture = "fully qualified path to picture 1"
Case 2 : strPicture = "fully qualified path to picture 2"
Case 3 : strPicture = "fully qualified path to picture 3"
End Select
strKeyPath = "Control Panel\Desktop"
ValueName = "Wallpaper"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strPicture
Set
intHighNumber to the number of pictures you cycle through. The
case statements are sequential from
intLowNumber (which should be one) to
intHighNumber. Set
strPicture to the fully qualified path to each of your pictures.
The script will randomly select a picture each time it is run and update the registry. If you have a shutdown script, I would put it in there so the wallpaper resets at the next boot. If you put it in the startup folder, the wallpaper change may not take effect until you logoff/logon. You may have to play around with this.
Save the file with a
VBS extension and run from within another script or from the command prompt as
cscript scriptname.vbsGood luck.