home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 March / CHIP0303.ISO / exe / chngwall.exe / chngwall.vbs
Encoding:
Text File  |  2002-12-20  |  1014 b   |  40 lines
  1.  
  2. ' changeWallpaper.vbs
  3. '
  4. ' Dieses Skript bestimmt zufΣllig ein Hintergrundbild und trΣgt dieses in
  5. ' die Registry ein.
  6. '
  7. ' (c) 2000, Alexander Zenkner
  8. '
  9.  
  10. Dim iAccident, iNumber, iCounter
  11. Dim szFolder, szRegKey, szWallpaper
  12. Dim objShell, objFileSystem, objFolder
  13.  
  14. iNumber = 0
  15. iCounter = 0
  16.  
  17. szFolder = "C:\Hintergrund"
  18. szRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper"
  19.   
  20. set objShell = Wscript.CreateObject("Wscript.Shell")
  21. set objFileSystem = CreateObject("Scripting.FileSystemObject")
  22. set objFolder = objFileSystem.getFolder(szFolder)
  23.  
  24. ' Anzahl der Dateien ermitteln
  25. iNumber = objFolder.files.count
  26.   
  27. ' Zufallszahl ermitteln
  28. randomize
  29. iAccident = Fix(rnd*(iNumber)) + 1
  30.  
  31. ' Hintergrunddatei in die Registry eintragen
  32. for each objFile in objFolder.files
  33.     iCounter = iCounter+1
  34.     If iCounter = iAccident then
  35.         szWallpaper = szFolder & "\" & objFile.Name 
  36.         objShell.RegWrite szRegKey, szWallpaper
  37.     End If
  38. next
  39.  
  40.