delmenustart()
delbureaublad()

$startmenu="C:\users\"+$userid+"\AppData\Roaming\Microsoft\windows\Start Menu\Programma's"

$kschijf="\\TELESALES\kwaliteitshandboek"
USE k: $kschijf
$=wshShortcut("Kwaliteitshandboek","\\TELESALES\Kwaliteitshandboek")

$=wshShortcut($startmenu+"\Bureau-accessoires\Kladblok","%SystemRoot%\system32\notepad.exe")
$=wshShortcut($startmenu+"\Bureau-accessoires\Imaging","C:\Program Files (x86)\Windows NT\Bureau-accessoires\ImageVue\kodakimg.exe")
$=wshShortcut($startmenu+"\Bureau-accessoires\Paint","%SystemRoot%\System32\mspaint.exe")
$=wshShortcut($startmenu+"\Bureau-accessoires\Rekenmachine","%SystemRoot%\System32\calc.exe")
$=wshShortcut("Ice Ten","C:\Program Files (x86)\J River\ICE.TEN\dejawin.exe")
; Microsoft Office 2000
$=wshShortcut($startmenu+"\Microsoft Excel","C:\Program Files (x86)\Microsoft Office\OFFICE\excel.exe")
$=wshShortcut($startmenu+"\Lotus Notes","C:\Program Files (x86)\IBM\Lotus\Notes\notes.exe",,"C:\Program Files (x86)\IBM\Lotus\Notes\framework/..")
$=wshShortcut($startmenu+"\Ice Ten","C:\Program Files (x86)\J River\ICE.TEN\dejawin.exe")
$=wshShortcut($startmenu+"\Firefox","C:\Program Files (x86)\Mozilla Firefox\firefox.exe")
$=wshShortcut($startmenu+"\Iptor","C:\Thinkwise Software\end_product_group1\tsf_dotnet.exe",iam_160_winlogon.ini,"C:\Thinkwise Software\end_product_group1")
$=wshShortcut("Bestandsbeheer","E:\share\Bestandsbeheer")
$=wshShortcut("Iptor Handleiding","E:\iptor\index.html")

; Open Office
$oo=$startmenu+"\Openoffice.org 3"
MD $oo
$=wshShortcut($oo+"\OpenOffice.org Base","C:\Program Files (x86)\OpenOffice.org 3\program\sbase.exe",,"C:\Program Files (x86)\OpenOffice.org 3\basis\progam")
$=wshShortcut($oo+"\OpenOffice.org Impress","C:\Program Files (x86)\OpenOffice.org 3\program\simpress.exe")
$=wshShortcut($oo+"\OpenOffice.org Math","C:\Program Files (x86)\OpenOffice.org 3\program\smath.exe")
$=wshShortcut($oo+"\OpenOffice.org Calc","C:\Program Files (x86)\OpenOffice.org 3\program\scalc.exe")
$=wshShortcut($oo+"\OpenOffice.org Writer","C:\Program Files (x86)\OpenOffice.org 3\program\swriter.exe")
$=wshShortcut($oo+"\OpenOffice.org Draw","C:\Program Files (x86)\OpenOffice.org 3\program\sdraw.exe")

; Opstarten
$opstarten=$startmenu+"\startup"
MD $opstarten
$=wshShortcut($opstarten+"\OpenOffice.org SnelStarten","C:\Program Files (x86)\OpenOffice.org 3\program\quickstart.exe",,"C:\Program Files (x86)\OpenOffice.org 3\program")
; Adobe Acrobat Reader 10
$=wshShortcut($startmenu+"\Adobe Acrobat Reader 10","C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe")


$=wshShortcut("Lotus Notes","C:\Program Files (x86)\IBM\Lotus\Notes\notes.exe",,"C:\Program Files (x86)\IBM\Lotus\Notes\framework/..")
$=wshShortcut("Iptor","C:\Thinkwise Software\end_product_group1\tsf_dotnet.exe",iam_160_winlogon.ini,"C:\Thinkwise Software\end_product_group1")


; Microsoft Office 2000
$=wshShortcut($startmenu+"\Microsoft Excel","C:\Program Files (x86)\Microsoft Office\OFFICE\excel.exe")

; (C) Mosadex CV, L.Maes
; Date written: 17/06/2005
; Modified: 
;
; functions.kix
; functies

; debug($string) : schrijf een debug bericht in de console als debugging aanstaat
function debugstr($string)
	if $debug=1
		? $string
	endif
endfunction

function sysok()
	if exist($sysok_location+$wksta+".ok")
		debugstr ("Systeempolicies zijn geconfigureert...")
		$sysok=1
	else
		debugstr ("Systeempolicies zijn NIET geconfigureert...")
		sendadminmessage()
		? "Deze computer is niet klaar voor gebruik!"
		? "Neem contact op met afdeling systeembeheer"
		get $x
		logoff()
		$sysok=0
	endif
endfunction

function sendadminmessage()
 for each $admin in $admins
    sendmessage($admin,"Systeem: "+$wksta+" is niet gereed! "+$userid+" probeerde hierop in te loggen!")
 next 
endfunction

function delstartmenu()
	DeleteFF("C:\Documents and Settings\"+$userid+"\Start Menu\Programs","Content","True")
endfunction

function delNLstartmenuNL()
	DeleteFF("C:\Documents and Settings\"+$userid+"\menu start\Programma's","Content","True")
endfunction

function delmenustart()
	DeleteFF("C:\Users\"+$userid+"\AppData\Roaming\Microsoft\Windows\Start Menu\","Content","True")
endfunction

function delbureaublad()
	DeleteFF("C:\Users\"+$userid+"\Desktop","Content","True")
endfunction

function deldesktop()
	DeleteFF("C:\Documents and Settings\"+$userid+"\Desktop","Content","True")
endfunction

function delNLdesktopNL()
	DeleteFF("C:\Documents and Settings\"+$userid+"\Bureaublad","Content","True")
endfunction

; Externe functies laden

; WshShortCut()
call $lib_location+"wshshortcut.kix"
call $lib_location+"deleteff.kix"