Open Kladblok. Klik op Start → Alle Programma's → Bureau-Accessoires → Kladblok.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
'Slepen en neerzetten mogelijk maken
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_EnableDragDrop",0,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu",0,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu",0,"REG_DWORD"
Message = "Slepen en neerzetten is nu weer mogelijk." & vbCrLf & "Om iets van deze wijzigingen te merken moet je je afmelden & opnieuw aanmelden.."
X = MsgBox(Message, vbInformation, "Slepen en neerzetten")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:draganddrop.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik draganddrop.vbs → Openen