Cara Membuat Aplikasi Memblokir USB Drive

Kode ini berguna untuk memblokir USB Drive, seperti flash disk, memory card, dll. Tapi tidak memblokir hardware lain yang menggunakan USB yang tidak bersifat drive, seperti printer atau modem.

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"

[ VB .NET ]

Dim Reg As Object = CreateObject("Wscript.Shell")
Reg.RegWrite("HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD")

[ VB Script ]

Dim Reg
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"

Untuk mengembalikan seperti semula, tinggal mengganti angka 4 menjadi 3.
Restart atau LogOff komputer untuk mensdapatkan perubahannya.