Zaključavanje VBScript pogona: 5 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:34

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

Nakon što sam zaključao zaslon koji zaključava korisničko računalo, odlučio sam prihvatiti izazov zaključavanja pogona koji zaključava pogon.

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

Za razliku od zaključavanja zaslona, ova je skripta prilično komplicirana. Uglavnom zato što sam dodao toliko ako i onda samo da bih programu dao profesionalni osjećaj.

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

Korak 1: Moj program…

Moje zaključavanje pogona 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 što god želite sve dok završava u.vbs.

Korak 2: Zaključavanje pogona (1. dio)

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čati pogon, otključati pogon (e) ili izaći.

Evo kako sam to učinio:

Funkcija DisplayPrompt () intSplash = MsgBox ("Što želite učiniti?" & VbCrLf & vbCrLf _ & "[Kliknite na DA za zaključavanje pogona]" & vbCrLf _ & "[Kliknite na NE za otključavanje pogona (diskova)] ", 35, cTitleBarMsg) Ako je intSplash = 2 Zatim DisplaySplashScreen () ElseIf intSplash = 7 Zatim uključivanje Pogreška Nastavi Sljedeće objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDshDeWeDrive " / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "If Err. Number 0 Then MsgBox" Drives are already unlocked. ", 16, cTitleBarMsg DisplayPrompt () End If On Error Idi na 0 objWshShl. Run" Taskill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Pokrenite" 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, izbrisat će se ključevi registra koji sadrže postavke koje zaključavaju/skrivaju pogon koji također provjerava je li pogon već otključan. Zatim se ponovno pokreće explorer.exe kako bi promjene odmah stupile na snagu.

Ako kliknete otkaži, prikazat će se početni zaslon, a zatim izlaz.

Konačno, ako pritisnete DA, ide se na sljedeći izbornik. Š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

Ulazni izbornik ()

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 unijeti bilo što osim valjanog slova pogona, program će to odbiti. Evo kako sam to učinio:

Ako je IsEmpty (strChoice) Tada

DisplaySplashScreen () ElseIf strChoice = "" Zatim MsgBox "Ne ostavljaj ovo polje prazno.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Then 'Do Not ElseIf 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 gumb za odustajanje 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 u osnovi se samo brine da li 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 je potrebno staviti u odgovarajući cijeli broj. To je ono što ovaj donji kod radi. 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 korisnika, 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.

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 flash pogona i ne morate ništa instalirati.