PC klaarmaken voor Terminal Services
Auteur: Leviator - 06 februari 2007 - 10:15 - Gekeurd door: Abbas - Hits: 3039 - Aantal punten: 4.00 (1 stem)
Op mijn stage moest ik pc's hun opstarttijd zo veel mogelijk versnellen zodat ze zo snel mogelijk op een terminal service sessie konden ingelogd worden. Hiervoor heb ik met VisualBasicScript gewerkt, registersleutels aangepast, onnodige services gestopt, msconfig(boot.ini) aanpassen, en onnodige fonts verwijderen...
de meeste mensen weten wel hoe het werkt, je neemt een stukje code dat je wel kan gebruiken je plakt het in een kladblok (of eenders welke plain text editor) en je slaagt het op als een .vbs bestand, en dan uitvoeren maar.
Opgepast! LET OP MET WAT JE UITVOERT, niet alles zal ten goede komen van jou systeem, alleen de HOOGNODIGE services staan nog aan (pnp, netwerkservices) en ik heb niet overal uitleg bijgezet...
Mijn excuses voor de slechte opmaak en misschien té weinig commentaar,
mvg levi
Code:
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()
'-----------------------------------------------------------------------------------------------------------
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\F astUserSwitchingCompatibility\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\N etDDE\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N etDDEdsdm\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N etlogon\Start" , 2 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N etman\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N la\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N tLmSsp\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\N tmsSvc\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\R asAuto\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R DSessMgr\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R emoteAccess\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R emoteRegistry\Start" , 2 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R pcLocator\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\T apiSrv\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\T ermService\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\T hemes\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\T lntSvr\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\T rkWks\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\V SS\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\R SVP\Start" , 3 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R asMan\Start" , 4 , "REG_DWORD"
WSHShell. RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\R pcSs\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"
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|"
Set objFolder = fso. GetFolder( "C:\\Windows\F onts" )
Set objFile_Col = objFolder. Files
For Each objFile In objFile_Col
If InStr( conFonts, "|" & Left( objFile. Name, 5 ) & "|" ) = 0 Then
fso. DeleteFile( objFile)
'================================================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\R un\"
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()
'-----------------------------------------------------------------------------------------------------------
Download code (.txt)
Stemmen
Niet ingelogd.