Option Explicit
On Error Resume Next

Dim WshShell, Message

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

WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E980-E325-11CE-BFC1-08002BE10318}\UpperFilters"
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E967-E325-11CE-BFC1-08002BE10318}\LowerFilters"

Set WshShell = Nothing

Message = "Degisikliklerin etkin hale gecebilmesi icin,lutfen sistemi yeniden baslatin. WVdestek.com"

MsgBox Message, 4096,"TAMAMLANDI!"