Open Kladblok. Klik op Start → Alle Programma's → Bureau-Accessoires → Kladblok.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
'1 Vastlopers sneller afsluiten huidige gebruiker (750 msec = 0.75 sec)
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\HungAppTimeOut",750,"REG_SZ"
'2 Vastlopers sneller afsluiten alle gebruikers (750 msec = 0.75 sec)
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\HungAppTimeOut",750,"REG_SZ"
'3 Automatisch taken beëindigen bij afsluiten pc alle gebruikers
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\AutoEndTasks",1,"REG_SZ"
'4 Afsluiten Windows 7 versnellen (1/3)
WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\WaitToKillServiceTimeout",1,"REG_DWORD"
'5 Afsluiten Windows 7 versnellen (2/3)
WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\ControlSet001\Control\WaitToKillServiceTimeout",1,"REG_DWORD"
'6 Afsluiten Windows 7 versnellen (3/3)
WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\ControlSet003\Control\WaitToKillServiceTimeout",1,"REG_DWORD"
'7 Open mapvensters in afzonderlijk proces (stabiliteitsverbetering)
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SeparateProcess",1,"REG_DWORD"
'8 Open bureaublad en taakbalk in afzonderlijk proces (stabiliteitsverbetering)
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DesktopProcess",1,"REG_DWORD"
'9 Heropen bureaublad en taakbalk automatisch na fouten
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoRestartShell",1,"REG_DWORD"
'10 Computer gebruiken als bestandsserver
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\LargeSystemCache",1,"REG_DWORD"
'11. Geen drivers meer updaten hardwareapparaten via Windows Update
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDevMgrUpdate",1,"REG_DWORD"
Message = "Windows 7 sluit nu sneller af!" & vbCrLf & "Om iets van deze wijzigingen te merken moet de computer opgestart worden!"
X = MsgBox(Message, vbexclamation, "Sluit Windows 7 sneller af!")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:fastershutdown.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Selecteer fastershutdown.vbs en enter om het script uit te voeren.