Set WSHShell = WScript.CreateObject("WScript.Shell") 

'Services configuration
'4 is disable
'3 is manual
'2 is automatic
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Browser\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Messenger\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Alerter\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ALG\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\AppMgmt\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\CiSvc\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ClipSrv\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\COMSysApp\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\CryptSvc\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\dmadmin\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\dmserver\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Dnscache\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ERSvc\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Eventlog\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\EventSystem\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\FastUserSwitchingCompatibility\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\helpsvc\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\HidServ\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ImapiService\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\LmHosts\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\McAfeeFramework\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\mnmsrvc\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\MSDTC\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\MSIServer\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\NetDDE\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\NetDDEdsdm\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Netlogon\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Netman\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Nla\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\NtLmSsp\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\NtmsSvc\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\PlugPlay\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\PolicyAgent\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ProtectedStorage\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RasAuto\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RDSessMgr\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RemoteAccess\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RemoteRegistry\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RpcLocator\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SamSs\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SCardDrv\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SCardSvr\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Schedule\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\seclogon\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SENS\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\ShellHWDetection\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Spooler\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\srservice\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SSDPSRV\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\stisvc\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SwPrv\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\SysmonLog\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\TapiSrv\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\TermService\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Themes\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\TlntSvr\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\TrkWks\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\uploadmgr\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\upnphost\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\UPS\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\VSS\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\WebClient\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\winmgmt\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\WmdmPmSp\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\WmiApSrv\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\wuauserv\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\WZCSVC\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\BITS\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Dhcp\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\HidServ\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RSVP\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RasMan\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\RpcSs\Start", 2, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\AudioSrv\Start", 4, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Wmi\Start", 3, "REG_DWORD"
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\lanmanworkstation\Start", 2, "REG_DWORD"

'----------------------- registerveranderingen -----------------------------------------------------------------------------
'enable boot defrag
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\Enable", "Y", "REG_SZ"
'enable prefetcher
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher", 2, "REG_DWORD"
'Clear page file at shutdown
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown", 0, "REG_DWORD"
'Wait to kill app timeout
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\WaitToKillAppTimeout", 1000, "REG_SZ"
'auto end tasks
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\AutoEndTasks", 1, "REG_SZ"
'Wait To Kill Service Timeout
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\WaitToKillServiceTimeout", 1000, "REG_SZ"
'100ste lijn

'----------------------- FONTS -------------------------------------------------------------------------------------------

'Ongebruikte Fonts Verwijderen
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

const conFonts = "|verda|times|arial|trebu|tahom|micro|dosap|framd|lucon|moder|scrip|"

On error resume next
	Set objFolder = fso.GetFolder("C:\\Windows\Fonts")
	Set objFile_Col = objFolder.Files
	For Each objFile In objFile_Col
		If InStr(conFonts, "|" & Left(objFile.Name,5) & "|") = 0 Then
			fso.DeleteFile(objFile)
		End IF
	Next
'================================================boot.ini ============================================
' execute noguiboot.bat
WSHShell.run( "bootcfg /Delete /id 2" )
WSHShell.run( "bootcfg /Timeout 3" )
WSHShell.run( "bootcfg /addsw /id 1 /NG" )
'====================== C drive defragmenatation========================================================

'Forced C: defrag
'WSHShell.run( "defrag c:" )




'----------------------- MSConfig -------------------------------------------------------------------------------------
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\IgfxTray","C:\\WINDOWS\\System32\\igfxtray.exe", "REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WinVNC","\""C:\\Program Files\\RealVNC\\WinVNC\\WinVNC.exe\"" -servicehelper", "REG_SZ"
WScript.Quit()
'-----------------------------------------------------------------------------------------------------------