Thanks... works great now...
now there is this other part that I would like to make the following part more verbose for troubleshooting:

Code:

;Toevoegen Bureaublad Distri Logo en NTB Screensaver
$Filename = Dir("C:\program files\Distri\")
If @ERROR <> 0 
MD "C:\Program files\Distri"
EndIf
Copy "\\MARS\C_Profiles$\distri\latitude.bmp" "c:\program files\distri\latitude.bmp"
Copy "\\MARS\C_Profiles$\distri\Telecombon.scr" "c:\program files\distri\Telecombon.scr"
SetFileAttr ("c:\program files\distri", 32)
SetFileAttr ("c:\program files\distri\Telecombon.scr", 32)
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","WallPaperStyle","0","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","TileWallPaper","0","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Colors","Background","58 110 165","REG_SZ")
SetWallpaper ("C:\progra~1\distri\latitude.bmp",1)


Should set the wallpaper, but doesn't allways work.