if @RAS
messagebox("Instellingen worden niet aangepast ivm RAS","",64)
else
?"burobladinstellingen controleren"

$SSactive=ReadValue("HKEY_CURRENT_USER\Control Panel\Desktop\","ScreenSaveActive")
if @Error <> 0 messagebox(" $SSactive @Error, bel automatisering","",64) endif

$Bckgrnd=ReadValue("HKEY_CURRENT_USER\Control Panel\Desktop\","Wallpaper")
if @Error <> 0 messagebox(" $Bckgrnd @Error, bel automatisering","",64) endif

$Tile=ReadValue("HKEY_CURRENT_USER\Control Panel\Desktop\","Tilewallpaper")
if @Error <> 0 messagebox(" $Tile @Error, bel automatisering","",64) endif

if $os="Win98"
$Color=ReadValue("HKEY_CURRENT_USER\Control Panel\Colors\","Background")
if @Error <> 0
messagebox(" $Color @Error, bel automatisering","",64)
endif
else
$Color <> "255 255 255"
messagebox("Uw heeft nog geen windows 98 !!","",64)
endif

$SSaver = ReadProfileString("System.ini", "boot", "SCRNSAVE.EXE")
if @Error <> 0 messagebox(" $SSaver @Error, bel automatisering","",64) endif

if $Bckgrnd <> "C:\WINDOWS\LogoEB.bmp" or $Tile <> "0" or $Color <> "255 255 255" or $SSactive = 0 or $SSaver <> "C:\WINDOWS\SYSTEM\3DTEKS~1.SCR"

?"burobladinstellingen worden aangepast"
; set wallpaper
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\","Wallpaper","C:\WINDOWS\LogoEB.bmp","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\","Wallpaper"," ","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\","BackupWallpaper"," ","REG_SZ")
; set tile wallpaper ( centreren, spreiden of naast elkaar )
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\","Tilewallpaper","0","REG_SZ")
; set backgroundcolor to white
WriteValue("HKEY_CURRENT_USER\Control Panel\Colors\","Background","255 255 255","REG_SZ")
; activate screensaver
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\","ScreenSaveActive","1","REG_SZ")
; set screensaver
WriteProfileString("System.ini", "boot", "SCRNSAVE.EXE", "C:\WINDOWS\SYSTEM\3DTEKS~1.SCR")
WriteProfileString("Control.ini", "Screen Saver.3DText", "DemoType", "0")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Rotstyle", "3")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Mozaïek", "7")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Formaat", "69")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Speed", "24")
WriteProfileString("Control.ini", "Screen Saver.3DText", "SurfStyle", "0")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Font", "Arial")
WriteProfileString("Control.ini", "Screen Saver.3DText", "FontAttributes", "0")
WriteProfileString("Control.ini", "Screen Saver.3DText", "CharSet", "1")
WriteProfileString("Control.ini", "Screen Saver.3DText", "Text", @FULLNAME)
WriteProfileString("Control.ini", "Screen Saver.3DText", "Patroon", " ")
WriteProfileString("Control.ini", "Screen Saver.3DText", "TextureFileOffset", "0")
; set companyname for internet explorer
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\main\","Window Title", $title ,"REG_SZ")
; Don't alow active desktop
; ****** EC NOG AANPASSEN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

messagebox("Uw instellingen zijn aangepast!","",64)

if $os="Win98" SHELL "%windir%\RUNDLL32.EXE Shell32.dll,SHExitWindowsEx 6" endif
if $os="Win95" SHELL "%windir%\RUNDLL32.EXE user.exe,ExitWindows" endif
sleep 600
endif