VBScript Lock Drive: 5 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:15

Përditësim: Ky program tani ka aftësinë për të fshehur disqet e kyçur të specifikuar

Pasi bëra kyçjen e ekranit tim i cili bllokon kompjuterin e përdoruesve, vendosa të marr sfidën për të bërë një bllokues të diskut që bllokon një makinë.

Ne të gjithë ndonjëherë duam t'i mbajmë përdoruesit jashtë një disku (veçanërisht një makinë USB). Pra, ky program do të bllokojë diskun për të parandaluar që përdoruesit e paautorizuar të kenë akses në të.

Ndryshe nga kyçi im i ekranit ky skenar është mjaft i komplikuar. Kryesisht sepse shtova kaq shumë nëse dhe atëherë vetëm për t'i dhënë programit një ndjenjë profesionale.

Ky program është bërë në VBScript. Në hapat e ardhshëm do t'ju tregoj se si e kam bërë atë.

Hapi 1: Programi im…

Mund ta shkarkoni Lock Drive tim më poshtë:

Këtu është skedari i papërpunuar VBScript LINK. Ju do të duhet të hiqni një nga 's' në fund kështu që është 'DriveLock.vbs' ose çfarëdo që dëshironi për sa kohë që përfundon në.vbs.

Hapi 2: Bërja e bllokimit të diskut (pjesa 1)

Këtu do t'ju tregoj pjesën e parë të bllokimit të makinës … Fotografia e parë është ajo që del kur filloni programin për herë të parë.

Unë e bëra kështu që ju keni tre opsione këtu, për të kyçur një makinë, për të zhbllokuar njësinë (t) ose daljen.

Tani ja se si e bëra:

Funksioni DisplayPrompt () intSplash = MsgBox ("Çfarë do të donit të bënit?" & VbCrLf & vbCrLf _ & "[Kliko në PO për të kyçur një makinë]" & vbCrLf _ & "[Kliko JO për të zhbllokuar njësinë (t)] ", 35, cTitleBarMsg) Nëse intSplash = 2 Pastaj DisplaySplashScreen () ElseIf intSplash = 7 Pastaj Në Error Resume Next objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDmhl / "\" / Microsoft / Windows / CurrentVersion / Politikat / Explorer / NoDrives "Nëse Err. Number 0 Pastaj MsgBox" Disqet janë tashmë të shkyçur. ", 16, cTitleBarMsg DisplayPrompt () Përfundo Nëse On Error Goto 0 objWshShl. Run" Taskkill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" Disku i zhbllokuar ishte i suksesshëm! ", 64, cTitleBarMsg DisplayPrompt () Fundi Nëse funksioni përfundon

Nëse klikoni JO për të zhbllokuar njësinë (at), ajo fshin çelësat e regjistrit që përmbajnë cilësimet që kyçin/fshehin diskun ajo gjithashtu kontrollon për të parë nëse disku është tashmë i hapur. Pastaj rinis explorer.exe në mënyrë që ndryshimet të hyjnë në fuqi menjëherë.

Nëse klikoni mbi anulimin, ai shfaq ekranin e spërkatjes dhe pastaj del.

Së fundi nëse klikoni PO atëherë shkon në menunë tjetër. Të cilën do ta shpjegoj në hapin tjetër.

Hapi 3: Bërja e bllokimit të diskut (pjesa 2)

Tjetra do t'ju tregoj menunë nëse zgjidhni makinën e shtrigave që dëshironi të bllokoni (figura 1).

Vendosni colDrives = objFSO. Drives

Për Çdo objDrive në colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space (10) strDrives tjetër = LCase (Replace (strDriveList, "", "", 1, -1)) Set colDrives = objFSO. Drives strDriveList = " objDrive në colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Hapësirë (5) Tjetra

Menyja hyrëse ()

Sub InputMenu strChoice = InputBox ("Fut shkronjën e diskut që dëshironi të kyçni." & _ "Ose shtypni ALL për të kyçur të gjithë disqet." & _ Vbcrlf & vbcrlf & "Disqet e disponueshme" & Hapësira (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Pjesa e parë e kodit gjeneron një listë të të gjithë disqeve në dispozicion. Pjesa tjetër është kutia hyrëse nëse futni shkronjën e diskut që dëshironi të bllokoni.

Nëse provoni të shtypni ndonjë gjë tjetër përveç një shkronje të vlefshme të diskut, dhe programi do ta refuzojë atë. Ja se si e bëra atë:

Nëse IsEmpty (strChoice) Atëherë

DisplaySplashScreen () ElseIf strChoice = "" Atëherë MsgBox "Mos e lini këtë bosh.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Pastaj 'Mos bëni asgjë tjetër Nëse Len (strChoice) 1 Pastaj MsgBox "Duhet të futni shkronja VETYM. ", 16, cTitleBarMsg InputMenu () TjetërNëse Jo InStr (1, strDrives, LCase (strChoice), 1) 0 Pastaj MsgBox" Zgjedhje e pavlefshme, provoni përsëri. ", 16, cTitleBarMsg InputMenu () Fundi Nëse

Dy rreshtat e parë kontrollojnë për të parë nëse përdoruesi goditi butonin e anulimit dhe nëse ata kanë dalë nga programi.

Tre rreshtat e ardhshëm kontrollojnë për të parë nëse përdoruesi e ka lënë zonën hyrëse bosh.

Pjesa tjetër e kodit është mjaft konfuze, por në thelb thjesht sigurohet që përdoruesi të shtypë një makinë të vlefshme.

Hapi 4: Bërja e bllokimit të diskut (Pjesa 3)

Për disa arsye regjistri nuk mund të lexojë vetëm shkronjën e diskut, kështu që duhet të futet në një numër të plotë përkatës. Kjo është ajo që po bën ky kod më poshtë. Për më shumë informacion mbi këtë klikoni këtu.

TjetërNëse strChoice = "a" Atëherë

intDriveNumber = 1 TjetërNëse strChoice = "b" Pastaj intDriveNumber = 2 ElseIf strChoice = "c" Pastaj intDriveNumber = 4

Pasi të jetë konfiguruar numri i plotë, skripti tani mund t'i shkruajë regjistrit duke përdorur këtë kod:

Një shënim tjetër, është se ky program i shkruan HKLM në vend të HKCU. HKLM prek të gjithë përdoruesit në vend të përdoruesit aktual të regjistruar në mënyrë që bllokimi të jetë më efektiv.

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

objWshShl. RegRrite "HKLM / Software / Microsoft / Windows / CurrentVersion / Politikat / Explorer / NoDrives", intDriveNumber, "REG_DWORD"

Hapi 5: Drive Lock

Shpresoj se e keni gjetur të dobishme këtë udhëzues. nëse nuk e kuptoni një pjesë të kësaj, ju lutemi postoni një koment ose më shkruani në pm.

Dhe ju lutem më jepni reagime për çdo problem dhe ju lutemi vlerësoni. Kam shpenzuar shumë kohë për këtë.

Nëse dëshironi të shkarkoni skedarin e papërpunuar vbs, thjesht sigurohuni që të ruhet me një shtrirje skedari.vbs. Një gjë tjetër e bukur në lidhje me të, është se është i lëvizshëm kështu që mund ta ekzekutoni nga një flash drive dhe nuk keni nevojë të instaloni asgjë.