NeoDriver Posted May 21, 2006 Share Posted May 21, 2006 (edited) Ok as seen as im kinda a noob at this i have a request. Is it possible for someone to make / help me make a script that asks for a password before giving access to my USB drive. I will have it autorun when the drive is inserted but i have a lot of valuable stuff on my USB drive! Thus said i would like a way to restrict access to the drive without the password. Thanks in advance, NeoDriver EDIT: Ok 10 people have looked at this now. Can someone at least say if they dont know. Starting to think im being ignored Edited May 21, 2006 by NeoDriver Link to comment Share on other sites More sharing options...
gamerman2360 Posted May 22, 2006 Share Posted May 22, 2006 Try making a zip file then putting a password on it. Not sure how safe it is tho. Link to comment Share on other sites More sharing options...
Paulie Posted May 22, 2006 Share Posted May 22, 2006 Try making a zip file then putting a password on it. Not sure how safe it is tho. I made a script for this, but there is better ones in the scripts and scraps expandcollapse popup;--------------Special Options-------------- RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'AddValueNameHere', 'Reg_sz', '"' & @ScriptFullPath & '"') #NoTrayIcon opt("WinTitleMatchMode",4) ;*******Define Variables********** Global $case = 0 Global $action = 0 Global $access_1 = 0 Global $access_2 = 0 Global $access_3 = 0 Global $access_4 = 0 ;*******Default Function****** ;============================= While 1 If WinExists("*Window that opens*") then If $access_1 = 0 Then $case = 1 Endif Endif ;------------Defining Cases------------ ;*************Case 1***************** Func MyCase ($my_case) Select Case $my_case = 1 WinMinimizeAll() WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE) WinSetState("Program Manager", "", @SW_HIDE) If $access_1 < 1 Then Box() $access_1 = 1 Endif ;*************Function***************** Func Box() Global $pass="bob" Do Global $passwd = InputBox("Enter Password", "Enter Password Here:", "", "*M",100,150) If $passwd = $pass then MsgBox(0, "Access Granted", "Correct Password.") WinMinimizeAllUndo() WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW) WinSetState("Program Manager", "", @SW_SHOW) Else MsgBox(0, "Access Denied", "Sorry, Wrong Password Try Again.") Endif Until $passwd = $pass EndFunc Something like that, don't have time to ttest, i modified mine to fit what you asked for, i think it should work NoteL: password is "bob" Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now