Zaključavanje VBScript pogona: 5 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:05

Ažuriranje: Ovaj program sada može sakriti navedene zaključane pogone

Nakon što sam zaključao ekran koji zaključava korisnički računar, odlučio sam prihvatiti izazov zaključavanja pogona koji zaključava disk.

Svi ponekad želimo držati korisnike podalje od pogona (posebno USB pogona). Stoga će ovaj program zaključati pogon kako bi spriječio neovlaštenim korisnicima pristup.

Za razliku od zaključavanja ekrana, ova skripta je prilično komplikovana. Uglavnom zato što sam dodao toliko ako, a zatim samo da bih programu dao profesionalni osjećaj.

Ovaj program je napravljen u VBScript -u. U sljedećih nekoliko koraka pokazat ću vam kako sam ga napravio.

Korak 1: Moj program…

Moje zaključavanje Drive Drive -a možete preuzeti ispod:

Ovdje je sirova VBScript datoteka LINK. Morat ćete ukloniti jedan od 's' na kraju tako da to bude 'DriveLock.vbs' ili šta god želite sve dok završava u.vbs.

Korak 2: Zaključavanje pogona (dio 1)

Ovdje ću vam pokazati prvi dio zaključavanja pogona … Prva slika je ono što se pojavi kada prvi put pokrenete program.

Učinio sam to tako da ovdje imate tri mogućnosti: zaključavanje pogona, otključavanje pogona ili izlaz.

Evo kako sam to uradio:

Funkcija DisplayPrompt () intSplash = MsgBox ("Šta biste htjeli učiniti?" & VbCrLf & vbCrLf _ & "[Kliknite na DA za zaključavanje pogona]" & vbCrLf _ & "[Kliknite na NE za otključavanje diskova] ", 35, cTitleBarMsg) Ako je intSplash = 2 Zatim DisplaySplashScreen () ElseIf intSplash = 7 Zatim uključivanje Greška Nastavi Sljedeći objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDHDEWDDWE / OBVRegDrive " / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "If Err. Number 0 Then MsgBox" Diskovi su već otključani. ", 16, cTitleBarMsg DisplayPrompt () End If On Error Idi na 0 objWshShl. Run" Taskill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" Disk je otključan uspješno! ", 64, cTitleBarMsg DisplayPrompt () End If End Function

Ako pritisnete NE za otključavanje pogona, oni brišu ključeve registra koji sadrže postavke koje zaključavaju/skrivaju pogon koji također provjerava da li je pogon već otključan. Zatim se ponovo pokreće explorer.exe kako bi promjene stupile na snagu odmah.

Ako pritisnete otkaži, prikazat će se uvodni ekran, a zatim izlaz.

Konačno, ako pritisnete DA, prelazi se na sljedeći meni. Što ću objasniti u sljedećem koraku.

Korak 3: Zaključavanje pogona (dio 2)

Zatim ću vam pokazati izbornik na kojem ste odabrali pogon vještice koji želite zaključati (slika 1).

Postavi colDrives = objFSO. Drives

Za svaki objDrive u colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Sljedeći strDrives = LCase (Zamijeni (strDriveList, "", "", 1, -1)) Postavi colDrives = objFSO. Drives strDriveList = " objDrive u colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Space (5) Dalje

InputMenu ()

Sub InputMenu strChoice = InputBox ("Unesite slovo pogona koji želite zaključati." & _ "Ili upišite SVE da biste zaključali sve pogone." & _ Vbcrlf & vbcrlf & "Dostupni pogoni" & Razmak (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Prvi bit koda generira popis svih dostupnih pogona. Sljedeći dio je okvir za unos u koji ste unijeli slovo pogona koji želite zaključati.

Ako pokušate upisati bilo što osim valjanog slova pogona, program će to odbiti. Evo kako sam to uradio:

Ako je IsEmpty (strChoice) Tada

DisplaySplashScreen () ElseIf strChoice = "" Zatim MsgBox "Ne ostavljaj ovo polje prazno.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Zatim 'Ne radi ništa drugoIs Len (strChoice) 1 Zatim MsgBox "Morate unijeti slovo SAMO. ", 16, cTitleBarMsg InputMenu () ElseIf Not InStr (1, strDrives, LCase (strChoice), 1) 0 Zatim MsgBox" Nevažeći izbor, pokušajte ponovo. ", 16, cTitleBarMsg InputMenu () End If

Prva dva retka provjeravaju je li korisnik pritisnuo dugme za otkazivanje i je li program izašao.

Sljedeća tri retka provjeravaju je li korisnik ostavio polje za unos prazno.

Ostatak koda je prilično zbunjujući, ali se u osnovi samo brine o tome da je korisnik upisao valjani pogon.

Korak 4: Zaključavanje pogona (3. dio)

Iz nekog razloga registar ne može sam pročitati slovo pogona, pa ga mora staviti u odgovarajući cijeli broj. To radi ovaj donji kod. Za više informacija o ovome kliknite ovdje.

ElseIf strChoice = "a" Zatim

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

Nakon što je cijeli broj konfiguriran, skripta sada može pisati u registar pomoću ovog koda:

Druga napomena je da ovaj program piše u HKLM umjesto u HKCU. HKLM utječe na sve korisnike, a ne samo na trenutno prijavljenog, tako da je zaključavanje učinkovitije.

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"

Korak 5: Blokada pogona

Nadam se da vam je ovo uputstvo bilo od pomoći. ako ne razumijete dio ovoga, postavite komentar ili mi pošaljite poruku.

I molim vas dajte mi povratne informacije o svim problemima i ocijenite. Potrošio sam puno vremena na ovo.

Ako želite preuzeti neobrađenu vbs datoteku, samo provjerite je li spremljena s nastavkom.vbs datoteke. Još jedna lijepa stvar je to što je prenosiv pa ga možete pokrenuti s fleš diska i ne morate ništa instalirati.