Pages

Sabtu, 05 Mei 2012

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.

Tidak ada komentar:

Posting Komentar