VBScript Drive Lock: 5 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:40

Frissítés: Ez a program mostantól képes elrejteni a megadott zárolt meghajtókat

Miután elkészítettem a képernyőzárat, amely lezárja a felhasználók számítógépét, úgy döntöttem, hogy vállalom a kihívást, hogy meghajtót zároló meghajtót készítsek.

Mindannyian néha szeretnénk távol tartani a felhasználókat a meghajtótól (különösen az USB -meghajtótól). Tehát ez a program lezárja a meghajtót, hogy megakadályozza az illetéktelen felhasználók hozzáférését.

A képernyőzárral ellentétben ez a szkript meglehetősen bonyolult. Elsősorban azért, mert rengeteg if -t, majd csak azért adtam hozzá, hogy professzionális hangulatot teremtsek.

Ez a program VBScript -ben készült. A következő néhány lépésben megmutatom, hogyan készítettem.

1. lépés: A programom…

A Drive Lockomat az alábbi linkről töltheti le:

Itt a nyers VBScript fájl LINK. A végén el kell távolítania az egyik „s” -t, így az a „DriveLock.vbs”, vagy bármi, amit akar, amíg a.vbs végződésű.

2. lépés: A meghajtó zárja (1. rész)

Itt megmutatom a meghajtózár első részét … Az első kép az, ami megjelenik a program első futtatásakor.

Úgy alakítottam ki, hogy itt három lehetőség közül választhatsz: meghajtó zárolása, meghajtó (k) feloldása vagy kilépés.

Most pedig így csináltam:

Funkció DisplayPrompt () intSplash = MsgBox ("Mit szeretne csinálni?" & VbCrLf & vbCrLf _ & "[Kattintson az IGEN gombra a meghajtó lezárásához]" & vbCrLf _ & "[Kattintson a NEM gombra a meghajtó (k) feloldásához] ", 35, cTitleBarMsg) Ha intSplash = 2, akkor DisplaySplashScreen () ElseIf intSplash = 7 Majd hiba esetén Folytatás Következő objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrive "objWSMHR / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "Ha Err. Number 0 Akkor MsgBox" A meghajtók már fel vannak oldva. ", 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" A meghajtó feloldva sikeres volt! ", 64, cTitleBarMsg DisplayPrompt () End If End Function

Ha a NEM gombra kattintva oldja fel a meghajtó (k) zárolását, akkor törli azokat a beállításjegyzék -kulcsokat, amelyek tartalmazzák azokat a beállításokat, amelyek lezárják/elrejtik a meghajtót, és azt is ellenőrzi, hogy a meghajtó már nincs -e feloldva. Ezután újraindítja az explorer.exe fájlt, hogy a változtatások azonnal életbe lépjenek.

Ha a Mégse gombra kattint, megjelenik a kezdőképernyő, majd kilép.

Végül, ha az IGEN gombra kattint, akkor a következő menübe lép. Amit a következő lépésben elmagyarázok.

3. lépés: A meghajtó zárja (2. rész)

Ezután megmutatom a menüt, ha a lezárni kívánt boszorkányhajtót választotta (1. kép).

Állítsa be a colDrives = objFSO. Drives beállítást

A colDrives minden objDrive -jához strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Következő strDrives = LCase (Replace (strDriveList, "", "", 1, -1)) Állítsa be a colDrives = objFSO. Drives strDriveList = "For objDrive in colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & szóköz (5) Következő

InputMenu ()

Sub InputMenu strChoice = InputBox ("Írja be a zárolni kívánt meghajtó betűjelét." & _ "Vagy írja be az ALL billentyűt az összes meghajtó zárolásához." & _ Vbcrlf & vbcrlf & "Rendelkezésre álló meghajtók" & Szóköz (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

A kód első bitje létrehozza az összes rendelkezésre álló meghajtó listáját. A következő rész az inputbox, ahol megadta a zárolni kívánt meghajtó betűjelét.

Ha bármit megpróbál beírni, csak érvényes meghajtóbetűjelet, és a program elutasítja. Ezt így csináltam:

Ha IsEmpty (strChoice) Akkor

DisplaySplashScreen () ElseIf strChoice = "" Akkor MsgBox "Ne hagyja ezt üresen.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Akkor 'Ne tegyen semmi mástIf Len (strChoice) 1 Majd MsgBox "Be kell írnia a CSAK betű. ", 16, cTitleBarMsg InputMenu () ElseIf Not InStr (1, strDrives, LCase (strChoice), 1) 0 Akkor az MsgBox" Érvénytelen választás, kérjük, próbálja újra. ", 16, cTitleBarMsg InputMenu () Vége Ha

Az első két sor ellenőrzi, hogy a felhasználó megnyomta -e a Mégse gombot, és hogy a program kilép -e.

A következő három sor ellenőrzi, hogy a felhasználó üresen hagyta -e a beviteli területet.

A kód többi része meglehetősen zavaros, de alapvetően csak arról gondoskodik, hogy a felhasználó érvényes meghajtót gépelt be.

4. lépés: A meghajtó zárja (3. rész)

Valamilyen oknál fogva a rendszerleíró adatbázis nem tudja egyedül olvasni a meghajtó betűjét, ezért azt egy megfelelő egész számba kell beírni. Ez az alábbi kód. További információért kattintson ide.

ElseIf strChoice = "a" Akkor

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

Az egész szám konfigurálása után a szkript most a következő kóddal írhat a rendszerleíró adatbázisba:

Egy másik megjegyzés, hogy ez a program a HKLM -hez ír a HKCU helyett. A HKLM minden felhasználót érint, nem csak a bejelentkezett felhasználót, hogy a zár hatékonyabb legyen.

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"

5. lépés: Hajtászár

Remélem, hasznosnak találta ezt az oktathatót. ha egy részét nem érted, írj egy megjegyzést, vagy írj nekem.

És kérjük, adjon visszajelzést minden problémáról, és kérjük értékelje. Sok időt töltöttem ezzel.

Ha le szeretné tölteni a nyers vbs fájlt, győződjön meg róla, hogy.vbs fájlkiterjesztéssel van mentve. Egy másik szép dolog az, hogy hordozható, így flash meghajtóról futtatható, és nem kell semmit telepítenie.