Kunci Drive VBScript: 5 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:55

Pembaruan: Program ini sekarang memiliki kemampuan untuk menyembunyikan drive terkunci yang ditentukan

Setelah membuat kunci layar yang mengunci komputer pengguna, saya memutuskan untuk mengambil tantangan membuat kunci drive yang mengunci drive.

Kita semua terkadang ingin menjauhkan pengguna dari drive (terutama drive usb). Jadi program ini akan mengunci drive untuk mencegah pengguna yang tidak sah mendapatkan akses ke sana.

Tidak seperti kunci layar saya, skrip ini cukup rumit. Terutama karena saya menambahkan begitu banyak jika dan kemudian hanya untuk memberikan kesan profesional pada program.

Program ini dibuat dalam VBScript. Dalam beberapa langkah berikutnya saya akan menunjukkan kepada Anda bagaimana saya membuatnya.

Langkah 1: Program Saya…

Anda dapat mengunduh Drive Lock saya di bawah ini:

Berikut adalah LINK file VBScript mentah. Anda harus menghapus salah satu 's' di akhir sehingga menjadi 'DriveLock.vbs' atau apa pun yang Anda inginkan asalkan berakhiran.vbs.

Langkah 2: Membuat Kunci Drive (bagian 1)

Di sini saya akan menunjukkan bagian pertama dari kunci drive … Gambar pertama adalah apa yang muncul ketika Anda pertama kali menjalankan program.

Saya membuatnya sehingga Anda memiliki tiga opsi di sini, untuk mengunci drive, membuka kunci drive atau keluar.

Sekarang inilah cara saya melakukannya:

Function DisplayPrompt() intSplash = MsgBox("Apa yang ingin Anda lakukan?" & vbCrLf & vbCrLf _ & "[Klik YA untuk mengunci drive] " & vbCrLf _ & "[Klik TIDAK untuk membuka kunci drive] ", 35, cTitleBarMsg) If intSplash = 2 Kemudian DisplaySplashScreen() ElseIf intSplash = 7 Kemudian Pada Error Resume Next objWshShl. RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive" objWshShl. Reg \Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives" If Err. Number 0 Kemudian MsgBox "Drives are been unlocked.", 16, cTitleBarMsg DisplayPrompt() End If On Error Goto 0 objWshShl. Run "Taskkill /f /im explorer.exe", 0 WScript. Sleep 300 objWshShl. Run "cmd /c explorer.exe", 0 MsgBox "Drive dibuka berhasil!", 64, cTitleBarMsg DisplayPrompt() End If End Function

Jika Anda mengklik TIDAK untuk membuka kunci drive, itu akan menghapus kunci registri yang berisi pengaturan yang mengunci/menyembunyikan drive itu juga memeriksa untuk melihat apakah drive sudah dibuka kuncinya. Kemudian restart explorer.exe sehingga perubahan segera berlaku.

Jika Anda mengklik batal, ini akan menampilkan layar splash dan kemudian keluar.

Terakhir jika Anda mengklik YES maka akan masuk ke menu berikutnya. Yang akan saya jelaskan di langkah selanjutnya.

Langkah 3: Membuat Kunci Drive (bagian 2)

Selanjutnya saya akan menunjukkan menu yang Anda pilih witch drive yang ingin Anda kunci (gambar 1).

Setel colDrives = objFSO. Drives

Untuk Setiap objDrive di colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space(10) Next strDrives = LCase(Replace(strDriveList, " ", "", 1, -1)) Set colDrives = objFSO. Drives strDriveList = "" Untuk Setiap objDrive di colDrives strDriveList = strDriveList & objDrive. DriveLetter & ":\" & Spasi(5) Selanjutnya

Menu Masukan()

Sub InputMenu strChoice = InputBox("Masukkan huruf drive yang ingin Anda kunci." & _ " Atau ketik ALL untuk mengunci semua drive." & _ vbcrlf & vbcrlf & "Drive yang tersedia" & Spasi(3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Bit kode pertama menghasilkan daftar semua drive yang tersedia. Bagian selanjutnya adalah kotak input tempat Anda memasukkan huruf drive yang ingin Anda kunci.

Jika Anda mencoba mengetik apa pun kecuali huruf drive yang valid, dan program akan menolaknya. Inilah cara saya melakukannya:

Jika IsEmpty(strChoice) Maka

DisplaySplashScreen() ElseIf strChoice = "" Kemudian MsgBox "Jangan kosongkan ini.", 16, cTitleBarMsg InputMenu() ElseIf LCase(strChoice) = "all" Then 'Do Nothing ElseIf Len(strChoice) 1 Kemudian MsgBox "Anda harus memasukkan huruf HANYA.", 16, cTitleBarMsg InputMenu() ElseIf Not InStr(1, strDrives, LCase(strChoice), 1) 0 Kemudian MsgBox "Pilihan salah, silakan coba lagi.", 16, cTitleBarMsg InputMenu() End If

Dua baris pertama memeriksa untuk melihat apakah pengguna menekan tombol batal, dan jika mereka melakukannya, program keluar.

Tiga baris berikutnya memeriksa untuk melihat apakah pengguna membiarkan area input kosong.

Sisa kodenya cukup membingungkan, tetapi pada dasarnya hanya memastikan bahwa pengguna mengetikkan drive yang valid.

Langkah 4: Membuat Kunci Drive (Bagian 3)

Untuk beberapa alasan registri tidak dapat membaca huruf drive sendirian, sehingga harus dimasukkan ke dalam bilangan bulat yang sesuai. Itulah yang dilakukan kode di bawah ini. Untuk informasi lebih lanjut tentang ini klik di sini.

ElseIf strChoice = "a" Maka

intDriveNumber = 1 ElseIf strChoice = "b" Kemudian intDriveNumber = 2 ElseIf strChoice = "c" Kemudian intDriveNumber = 4

Setelah bilangan bulat dikonfigurasi, skrip sekarang dapat menulis ke registri menggunakan kode ini:

Catatan lain, adalah bahwa program ini menulis ke HKLM bukan HKCU. HKLM memengaruhi semua pengguna, bukan hanya pengguna yang masuk saat ini sehingga penguncian lebih efektif.

objWshShl. RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive", intDriveNumber, "REG_DWORD"

objWshShl. RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", intDriveNumber, "REG_DWORD"

Langkah 5: Kunci Drive

Saya harap Anda menemukan instruksi ini bermanfaat. jika Anda tidak mengerti bagian dari ini, silakan kirim komentar atau pm saya.

Dan tolong beri saya umpan balik tentang masalah apa pun dan beri peringkat. Saya menghabiskan banyak waktu untuk ini.

Jika Anda ingin mengunduh file vbs mentah, pastikan disimpan dengan ekstensi file.vbs. Hal lain yang menyenangkan tentang itu, adalah portabel sehingga Anda dapat menjalankannya dari flash drive dan Anda tidak perlu menginstal apa pun.