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.

About evocruzader

I am a honest, energetic, cool, n fun... gather near me and u will live with full of joy n fun. ^^
This entry was posted in Uncategorized and tagged , , , , . Bookmark the permalink.

4 Responses to Prevent Copy/Cut From Your PC

  1. bagus sih ide n scriptnya, hanya saja kasi tau juga gmn berhentiin scriptnya yah.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s