Prevent Copy/Cut From Your PC

Metode ini berguna untuk mencegah orang lain mengCopy atau mengCut Data yang ada di dalam komputer kita ke Media lainny (Removeable Drive) Seperti Flash Disk, etc.

Bagi anda yang tidak mengizinkan orang laen mengcopy data dari komputer laen tanpa sepengetahuan kalian, Metode ini bisa kalian terapkan. Tenang saja anda masih tetap bisa melakukan copy data ke drive atau folder lain dalam satu komputer. ^^

Coding Berikut Saya tuliskan dalam bentuk Visual Basic Script (.Vbs), jadi untuk mencobany cukup copy paste coding dibawah ini ke notepad atau text editor lainny dan simpan dengan ekstensi .VBS Kemudian jalankan fileny dengan cara double klik.

==============Enable/Disable Copy Cut===============

‘Enable/Disable Copy Cut From PC To Another Removable Drives
‘© Reagan,S.Kom. – 19 Oktober 2010

Option Explicit

‘Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject(“WScript.Shell”)
p = “HKLM\System\CurrentControlSet\Control\StorageDevicePolicies\”
p = p & “WriteProtect”
itemtype = “REG_DWORD”
mustboot = “Log off and Log on, or restart your pc to” & vbCR & “Take effect the changes”
enab = “ENABLED”
disab = “DISABLED”
jobfunc = “Copy Cut From PC To Another Removable Drives Tools are now ”

‘Mengecek apakah telah ada registry key atau belum. Jika Belum ada maka akan muncul error.
‘Error Biasanya akan menghasilkan nilai 0
t = “Confirmation”
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
‘mengCreate registry key untuk REG_DWORD WriteProtect dengan nilai 0
WSHShell.RegWrite p, 0, itemtype
End If

‘Jika key telah ada atau telah di bentuk, Maka jalankan 2 baris MyBox Dibawah ini.

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

Selamat Mencoba,

Semoga Bermanfaat untuk kita semua.