VBScript Drive Lock: 5 Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:11

Update: Ang program na ito ngayon ay may kakayahang itago ang tinukoy na mga naka-lock na drive

Matapos gawin ang aking lock ng screen kung aling nakakandado ang computer ng mga gumagamit ay nagpasya akong gawin ang hamon sa paggawa ng isang lock ng drive na nakakandado sa isang drive.

Namin ang lahat minsan nais na panatilihin ang mga gumagamit sa isang drive (lalo na isang usb drive). Kaya't ang program na ito ay i-lock ang drive upang maiwasan ang hindi awtorisadong mga gumagamit mula sa pagkakaroon ng access dito.

Hindi tulad ng aking lock ng screen ang script na ito ay medyo kumplikado. Higit sa lahat dahil nagdagdag ako ng maraming kung ito at pagkatapos ay ibigay lamang sa programa ang isang propesyonal na pakiramdam.

Ang program na ito ay ginawa sa VBScript. Sa mga susunod na hakbang, ipapakita ko sa iyo kung paano ko ito nagawa.

Hakbang 1: Aking Programa …

Maaari mong i-download ang aking Drive Lock sa ibaba:

Narito ang raw na VBScript file LINK. Kakailanganin mong alisin ang isa sa mga 's' sa dulo kaya't ito ay 'DriveLock.vbs' o kung ano ang gusto mo hangga't nagtatapos ito sa.vbs.

Hakbang 2: Paggawa ng Drive Lock (bahagi 1)

Dito ipapakita ko sa iyo ang unang bahagi ng lock ng drive … Ang unang larawan ay kung ano ang lumalabas noong una mong pinatakbo ang programa.

Ginawa ko ito upang mayroon kang tatlong mga pagpipilian dito, upang i-lock ang isang drive, upang i-unlock ang (mga) drive o lumabas.

Ngayon narito kung paano ko ito nagawa:

Function DisplayPrompt () intSplash = MsgBox ("Ano ang nais mong gawin?" & VbCrLf & vbCrLf _ & "[Mag-click sa YES upang i-lock ang isang drive]" & vbCrLf _ & "[Mag-click sa HINDI upang ma-unlock ang (mga) drive] ", 35, cTitleBarMsg) Kung intSplash = 2 Pagkatapos DisplaySplashScreen () ElseIf intSplash = 7 Pagkatapos Sa Error Ipagpatuloy Susunod objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrivel "objWegSelete". / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "Kung Err. Number 0 Kung gayon ang MsgBox" Drives ay naka-unlock na. ", 16, cTitleBarMsg DisplayPrompt () Tapusin Kung Sa Error Goto 0 objWshShl. Run" Taskkill / f / im explorer.exe ", 0 WScript. S Sleep 300 objWshShl. Run" cmd / c explorer.exe ", 0 MsgBox" Drive unlocked was succesfull! ", 64, cTitleBarMsg DisplayPrompt () End If End Function

Kung na-click mo ang HINDI upang ma-unlock ang (mga) drive, tinatanggal nito ang mga registry key na naglalaman ng mga setting na nagla-lock / nagtatago ng drive sinusuri din nito upang makita kung ang drive ay naka-unlock na. Pagkatapos ay i-restart nito ang explorer.exe upang magkabisa kaagad ang mga pagbabago.

Kung nag-click ka sa pagkansela, ipinapakita nito ang splash screen at pagkatapos ay paglabas.

Panghuli kung nag-click ka sa YES pagkatapos ay pupunta ito sa susunod na menu. Na ipaliwanag ko sa susunod na hakbang.

Hakbang 3: Paggawa ng Drive Lock (bahagi 2)

Susunod na ipapakita ko sa iyo ang menu na pinili mo ang witch drive na nais mong i-lock (larawan 1).

Itakda ang colDrives = objFSO. Mga Drive

Para sa bawat objDrive sa colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Susunod na strDrives = LCase (Palitan (strDriveList, "", "", 1, -1)) Itakda ang colDrives = objFSO. Drives strDriveList = "" Para sa bawat objDrive in colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Space (5) Susunod

InputMenu ()

Sub InputMenu strChoice = InputBox ("Ipasok ang titik ng drive na nais mong i-lock." & _ "O i-type ang LAHAT upang i-lock ang lahat ng mga drive." & _ Vbcrlf & vbcrlf & "Magagamit na mga drive" & Space (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Ang unang piraso ng code ay bumubuo ng isang listahan ng lahat ng mga magagamit na mga drive. Ang susunod na bahagi ay ang inputbox na ipinasok mo ang titik ng drive na nais mong i-lock.

Kung susubukan mong mag-type ng anupaman sa isang wastong drive letter, at tatanggihan ito ng programa. Narito kung paano ko nagawa iyon:

Kung IsEmpty (strChoice) Kung gayon

DisplaySplashScreen () ElseIf strChoice = "" Pagkatapos MsgBox "Huwag iwanang blangko ito.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "lahat" Kung gayon 'Huwag Gumawa ng Iba Pa Len (strChoice) 1 Pagkatapos MsgBox "Dapat Mong ipasok ang titik LAMANG. ", 16, cTitleBarMsg InputMenu () ElseIf Not InStr (1, strDrives, LCase (strChoice), 1) 0 Pagkatapos MsgBox" Di-wastong pagpipilian, mangyaring subukang muli. ", 16, cTitleBarMsg InputMenu () Tapusin Kung

Suriin ng unang dalawang linya upang makita kung na-hit ng gumagamit ang button na kanselahin, at kung ginawa nila ang paglabas ng programa.

Sinusuri ng susunod na tatlong linya upang makita kung iwanang blangko ang gumagamit.

Ang natitirang code ay medyo nakalilito, ngunit ito ay karaniwang tinitiyak lamang na ang gumagamit ay nag-type sa isang wastong drive.

Hakbang 4: Paggawa ng Drive Lock (Bahagi 3)

Sa ilang kadahilanan hindi mabasa ng rehistro ang sulat ng drive lamang, kaya dapat itong ilagay sa isang kaukulang integer. Iyon ang ginagawa ng code na ito sa ibaba. Para sa karagdagang impormasyon sa pag-click dito.

ElseIf strChoice = "a" Kung gayon

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

Kapag na-configure ang integer ang script ay maaari na ngayong magsulat sa pagpapatala gamit ang code na ito:

Ang isa pang tala, ay ang program na ito ay sumusulat sa HKLM sa halip na HKCU. Nakakaapekto ang HKLM sa lahat ng mga gumagamit sa halip na ang kasalukuyang naka-log in na gumagamit lamang upang ang lock ay mas epektibo.

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"

Hakbang 5: Drive Lock

Inaasahan kong natagpuan mong kapaki-pakinabang ito. kung hindi mo maintindihan ang isang bahagi nito, mangyaring mag-post ng isang puna o pm sa akin.

At mangyaring bigyan ako ng puna sa anumang mga problema at mangyaring rate. Gumugol ako ng maraming oras dito.

Kung nais mong i-download ang hilaw na file ng vbs, siguraduhin lamang na nai-save ito gamit ang isang.vbs file extension. Ang isa pang magandang bagay tungkol dito, ay ito ay portable upang maaari mo itong patakbuhin sa isang flash drive at hindi mo kailangang mag-install ng anuman.