Multidesk.be » Forums » Programmeren algemeen » VBScript USB-Beveiliging

  • Pagina
  • 1 van 1
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door een gast op vrijdag 24 september 2010 om 21:06:15.
Ik heb een scriptje in VBscript gemaakt om mn USB te beveiligen, maar hij werkt niet helemaal. Ik ben al wel zover dat hij wel je naam en je wachtwoord vraagt maar ik wil eigenlijk dat hij de map van mn usb afsluit zodra de verkeerde naam en wachtwoord ingetikt worden... Kan iemand me helpen???? Hieronder wat ik al heb gemaakt:

---------------------------------

select case msgbox ("Bent u bevoegd om op deze USB-stick te komen?" ,vbyesno,"Welkom")
case vbyes
X=msgbox ("Welkom op deze stick", 1024,"Welkom")
case vbno [Hier moet iets komen dat de map van mn usb afsluit]
end select

naam=inputbox ("Wat is uw naam","Beveiliging","Voer uw naam in")
if naam = "Arjan" then password=inputbox ("Wat is uw wachtwoord","Beveiliging","Voer uw wachtwoord in")
if naam = "arjan" then password=inputbox ("Wat is uw wachtwoord","Beveiliging","Voer uw wachtwoord in")

if password = "123456" then x=msgbox ("U hebt toegang tot deze USB-stick",1024,"Welkom")
if password = "123456" then WScript.Quit

select case msgbox ("Haal de beheerder voor zijn wachtwoord", vbyesno,"Beveiliging")
case vbyes
beheerder = inputbox ("Wat is uw wachtwoord", "Beveiliging","Voer uw wachtwoord in")
case vbno [Hier moet iets komen dat de map van mn usb afsluit]
end select

if beheerder= "123456" then x=msgbox ("U hebt toegang tot deze USB-stick",1024,"Welkom")
if beheerder= "123456" then Wscript.Quit

--------------------------------
  • Pagina
  • 1 van 1

Snel-antwoordformulier
Toon uitgebreid antwoordformulier Bericht nalezen Bericht plaatsen