Home > Technologie > So erstellen Sie eine Laufwerkssperre

So erstellen Sie eine Laufwerkssperre

Advertisement

So erstellen Sie eine Laufwerkssperre

So erstellen Sie eine Laufwerkssperre

Nach dem Herstellen meiner Bildschirmsperre, die den Benutzercomputer sperrt, entschied ich, die Herausforderung zu nehmen, eine Antriebsverriegelung zu bilden, die ein Antrieb verriegelt.

Wir alle wollen manchmal Benutzer aus einem Laufwerk (vor allem ein USB-Laufwerk) zu halten. So wird dieses Programm das Laufwerk sperren, um zu verhindern, dass unbefugte Benutzer Zugang zu ihm erhalten.

Im Gegensatz zu meinem Bildschirm Sperre dieses Skript ist ziemlich kompliziert. Vor allem, weil ich so viele hinzugefügt, wenn's und dann nur zu geben, um ein professionelles Gefühl zu programmieren.

Dieses Programm wurde in VBScript erstellt.
In den nächsten Schritten zeige ich Ihnen, wie ich es geschafft habe.

Schritt 1: Mein Programm ...

So erstellen Sie eine Laufwerkssperre

Sie können meine Drive Lock unten herunterladen:

Um zu installieren, extrahieren Sie einfach die ZIP-Datei und setzen Sie die DriveLock.exe überall Sie wollen. (Kein Installateur erforderlich)

Möchten Sie nicht .exe im Falle von Viren herunterladen? Hier ist die rohe VBScript - Datei LINK . Sie werden am Ende einer der 's' zu entfernen, so ist es DriveLock vbs "ist oder was auch immer Sie wollen, solange es in vbs endet.

Schritt 2: Herstellen der Laufwerkssperre (Teil 1)

So erstellen Sie eine Laufwerkssperre

So erstellen Sie eine Laufwerkssperre

Hier zeige ich Ihnen den ersten Teil der Laufwerksverriegelung ... Das erste Bild ist, was kommt, wenn Sie zum ersten Mal das Programm.

Ich habe es so haben Sie drei Optionen hier, um ein Laufwerk zu sperren, zu entsperren (s) oder zu beenden.

Jetzt ist hier, wie ich es getan habe:

  Funktion DisplayPrompt () intSplash = MsgBox ( "Was würden Sie tun?" & VbCrLf & vbCrLf _ & "[Klicken Sie auf JA, ein Laufwerk zu sperren]" & vbCrLf _ & "[Klicken Sie auf NO Laufwerk zu entsperren (s)] ", 35, cTitleBarMsg) Wenn intSplash = 2 Dann DisplaySplashScreen () ElseIf intSplash = 7 Dann On Error Resume Next objWshShl.RegDelete" HKLM \ Software \ Microsoft \ Windows \ Currentversion \ Policies \ Explorer \ NoViewOnDrive "Wenn Err.Number <> 0 Dann "sind Laufwerke bereits freigeschaltet." MsgBox, 16, cTitleBarMsg DisplayPrompt () End If On Error Goto 0 objWshShl.Run "Taskkill / f / im explorer.exe", 0 WScript.Sleep 300 objWshShl.Run "explorer.exe" MsgBox "Drive unlocked succesfull!", 64, cTitleBarMsg DisplayPrompt () Ende Wenn

Wenn Sie auf NEIN klicken, um das Laufwerk zu entsperren, löscht es den Registrierungsschlüssel, der die Einstellungen enthält, die das Laufwerk sperren, das es auch überprüft, um festzustellen, ob das Laufwerk bereits freigeschaltet ist. Danach wird explorer.exe neu gestartet, damit die Änderungen sofort wirksam werden.

Wenn Sie auf Abbrechen klicken, wird der Begrüßungsbildschirm angezeigt und es wird beendet.

Wenn Sie auf JA klicken, gelangen Sie zum nächsten Menü. Was ich im nächsten Schritt erklären werde.

Schritt 3: Antriebssperre (Teil 2)

So erstellen Sie eine Laufwerkssperre

So erstellen Sie eine Laufwerkssperre

Als nächstes zeige ich Ihnen das Menü, in dem Sie die Hexe fahren möchten, die Sie sperren möchten (Bild 1).

  Set colDrives = objFSO.Drives For Each objDrive in colDrives strDriveList = strDriveList & objDrive.DriveLetter & Raumfahrt (10) Weiter strDrives = LCase (Ersetzen (strDriveList, "", "", 1, -1)) Stellen Sie colDrives = objFSO.Drives StrDriveList = "" Für jedes objDrive in colDrives strDriveList = strDriveList & objDrive.DriveLetter & ": \" & Space (5) Weiter
  InputMenu () Sub InputMenu strChoice = InputBox ( "Geben Sie Buchstaben des Laufwerks, den Sie sperren wollen." & _ "Oder geben Sie ALLE, um alle Laufwerke zu sperren." & _ VbCrLf & vbCrLf & "Verfügbare Laufwerke" & Raumfahrt (3) & _ ":" & VbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Das erste Code-Bit erzeugt eine Liste aller verfügbaren Laufwerke. Der nächste Teil ist die Eingabebox, wenn Sie den Buchstaben des Laufwerks eingeben, das Sie sperren möchten.

Wenn Sie versuchen , in alles andere als einen gültigen Laufwerksbuchstaben eingeben, und das Programm wird es ablehnen. Hier ist, wie ich das getan habe:

  Wenn IsEmpty (strChoice) Dann DisplaySplashScreen () ElseIf strChoice = "" Then MsgBox "Lassen Sie dieses Feld leer.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Then 'Do Nothing ElseIf Len (strChoice) < > 1 Then MsgBox "Sie nur den Buchstaben eingeben müssen.", 16, cTitleBarMsg InputMenu () ElseIf Nicht InStr (1, strDrives, LCase (strChoice), 1) <> 0 Then MsgBox "wieder Ungültige Wahl, bitte versuchen Sie es.", 16, cTitleBarMsg InputMenu () End If

Die ersten beiden Zeilen überprüfen, ob der Benutzer auf die Abbrechen-Taste, und wenn sie das Programm beendet hat.

Die nächsten drei Zeilen prüfen, ob der Benutzer den Eingabebereich leer gelassen hat.

Der Rest des Codes ist ziemlich verwirrend, aber es ist im Grunde nur sicherzustellen, dass der Benutzer ein gültiges Laufwerk eingegeben.

Schritt 4: Herstellen der Laufwerkssperre (Teil 3)

So erstellen Sie eine Laufwerkssperre

Aus irgendeinem Grund kann die Registrierung den Laufwerksbuchstaben nicht alleine lesen, also muss sie in eine entsprechende Ganzzahl gesetzt werden. Das ist, was dieser Code unten tut. Für weitere Informationen zu diesem hier klicken .

   ElseIf strChoice = "a" Dann intDriveNumber = 1 ElseIf strChoice = "b" Dann intDriveNumber = 2 ElseIf strChoice = "c" Dann intDriveNumber = 4

Sobald die ganze Zahl konfiguriert ist, kann das Skript nun in die Registry schreiben, indem sie diesen Code verwendet:

  Ob es sich um "HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Richtlinien \ Explorer \ NoViewOnDrive", intDriveNumber, "REG_DWORD"

Eine andere Anmerkung ist, daß dieses Programm zu HKLM anstelle von HKCU schreibt. HKLM wirkt sich auf alle Benutzer anstelle des gerade angemeldeten Benutzers aus, sodass die Sperre effektiver ist.

Schritt 5: Antriebssperre

Ich hoffe, Sie fanden diese instructable hilfreich.
Wenn Sie nicht verstehen, ein Teil davon, bitte einen Kommentar oder pm mich.

Und bitte geben Sie mir Feedback zu allen Problemen und bitte bewerten. Ich habe viel Zeit damit verbracht.

Wenn Sie die rohe vbs herunterladen möchten Datei , nur sicherstellen , dass es mit einer VBS - Datei - Erweiterung gespeichert wird. Eine weitere schöne Sache über sie ist, dass es tragbar ist, so können Sie es aus einem Flash-Laufwerk und Sie müssen nicht alles installieren.

Related Reading