Ben je op zoek naar een programma dat je waarschuwt als er nog een USB stick in de computer zit bij het afsluiten? Dan zal dit scriptje zeker van pas komen.
a) bemerkingen
Het script gaat alle USB opslagapparaten herkennen. Dit is bv een memorystick.
Stel dat uw officejetprinter ook Memorykaartjes kan lezen van een digitaal fototoestel, dan gaat hij dit ook herkennen bij het afsluiten!
Omdat er teveel specifieke gevallen zijn, heb ik de opvanging hiervan dus niet opgenomen.
Indien u dit toch graag in het script zou gezien hebben, dan kan u daar een nieuw forumonderwerp voor aanmaken waar we een aangepast script zullen maken.
b) Hoe installeren?
- Download Het zipbestand dat ik online heb gezet op deze link
- Open het bestand met Winzip, en extract(uitpakken) het naar een folder.
Bij voorkeur ergens onder de windows folder(dit is C:\Windows of C:\Winnt ). - Ga naar Start - Uitvoeren en typ gpedit.msc (en druk op ok)
- In het linkergedeelte ga je naar User Configuration - Windows Settings - Script(logon/logoff)
- In het rechtergedeelte klik je op Logoff/Afloggen
- Klik op Toevoegen(add) en daarna op bladeren. Zoek het bestand dat je uitgepakt hebt(Usb_Opslagapparaat.vbs)
- Druk op de vensters ok en sluit het group policy scherm.
Vanaf nu gaat de computer elke keer als je de computer afsluit, dit script laten lopen.
Indien hij USB Mass Storage Device vindt(bijv een USB stick), dan gaat hij de melding geven.
Hier een voorbeeldje:
Indien hij geen USB Mass Storage Device vindt, dan zal hij geen foutmelding geven.
Weazle
- login of registreer om te reageren
Hey weazle
Heel vriendelijk bedankt.
Philip
Hoi,
Het script was al verdwenen. Maar ik heb het even teruggemaakt en op Wintips gezet.
Volg deze link.
Veel pret ermee.
groeten,
Weazle
Hello
Ik las je post in verband met het detecteren van usb-drives bij het afsluiten. Ik ben wel geïnteresseerd in je script, maar helaas was de link not available.
Kan je het scriptje nog eens online zetten?
Vriendelijk dank
Philip
prachtig script.
Ikzelf zoek een script die het omgekeerde doet, nl. bij het insteken van usb stick in usb connectie pc moet er een popup venster komen dat vermelding geeft van mijn gegevens (naam, adres,email,..). Popup is uit te schakelen door "ok" te drukken. Als men "ok" druk mag deze ook verwijzen naar een shortcut waardoor een applicatie opengaat indien mogelijk ?
Pas op, dit moet gebeuren op iedere pc waar je connectie mee maakt !!
Dit alles om bij verlies mijn stick terug te bekomen !
thanks
Dag Defer,
Je kan wel een soort autorun maken.
Deze staat dan in de lijst van autorun optie.
Kijk hieronder naar een voorbeeld dat ik gemaakt heb:
De eerste optie in rij is om de gegevens van de eigenaar te zien.
En die gegevens, zijn niet meer dan een scriptje met een messagebox in.
Je kan er inzetten wat je wenst.
Je kan de bestanden(autorun.inf, eigenaar.vbs en eigenaar.ico) downloaden op deze link.
Misschien dat je best nog een beter icoontje zoekt 
Ik heb nu in de vlucht maar een rode bol genomen.
Om je gegevens te editen, kan je eigenaar.vbs met notepad openen en invullen.
groeten,
Weazle
Weazle,
knap, dit zocht ik !
Nog een kleinigheidje (dat denk ik tenminste), na op "ok" te drukken zou het volgende moeten opengaan R:\Folder Lock\Folder Lock.exe ??
bedankt reeds.
Ik vermoed dat de R: je Usbstick zelf is?
In dat geval:
Open Eigenaar.vbs met notepad
Voeg deze info onderaan toe:
Set S = CreateObject("WScript.Shell")
S.run """" & left(WScript.ScriptFullName, len(WScript.ScriptFullName)-len(Wscript.Scriptname)) & "Folder Lock\Folder Lock.exe"""
(let op bij kopieëren en plakken: dit zijn slechts 2 lijnen !
Eerste lijn = Set S = CreateObject("WScript.Shell")
2de lijn is de rest
Het resultaat is dan dit:
msgbox "Deze USB stick is Eigenaar van: " & vbcrlf & vbcrlf & _
"Naam: Mr X" & vbcrlf & _
"Adres: Stationstraat xx" & vbcrlf & _
"Gemeente: 1000 Brussel" & vbcrlf & vbcrlf & _
"Telefoon: xxxx" & vbcrlf & _
"Email: " & vbcrlf & vbcrlf & _
"Indien u deze USB-Stick gevonden hebt, gelieve de eigenaar dan te contacteren. Dank u.",vbinformation, "Persoonsgegevens"
Set S = CreateObject("WScript.Shell")
S.run """" & left(WScript.ScriptFullName, len(WScript.ScriptFullName)-len(Wscript.Scriptname)) & "Folder Lock\Folder Lock.exe"""
groeten,
Weazle
Weazle,
Knap, helemaal wat ik zocht.
Bedankt voor de snelle reactie !
groetjes
defer
