vbs script voor usb

[path1963]

Heeft er iemand een VBS scriptje, indien ik mijn pc afsluit, mij waarschuwt dat mijn usb stick nog in de pc steekt.
Ben er al ff naar het zoeken maar vind het niet terug.

Dank bij voorbaat.

 

[That Guy]

nee, en wel omdat een vbs script niet continue draait. Ofwel, een vbs script werkt instant, dus als je het uitvoert (dubbelklik bv.) voert het zichzelf uit en stopt daarna.

Wat je dus kan doen is een programma maken (in C, C++, C#, visual basic, verzin iets) welk dus wel altijd actief kan zijn, of je moet een manier zien te vinden om een script uit te voeren als je pc afsluit (mischien via geplande taken? iemand een idee?)


Groet, :thumb:



[edit]
In vbs kan je trouwens wel makkelijk kijken of er een drive aanwezig is. Weet niet precies hoe, maar het kan wel. Vooral als je weet welke drive-letter het is (F, G, H, I, etc).
[/edit]

 

[Crime]

wel grappig dat je dit vraagt, ik kan me nog herinneren dat een leraar op mijn oude school op zijn bureaublad had gezet met letters, NIET JE USB STICK VERGETEN.
Zoiets kan jij toch ook broberen, gewoon een plaatje maken in paint ofzo.

 

[ZipPe]

Wat je dus wel kan doen is Windows op een andere manier afsluiten.

Onderstaande script leest welke DriveType je hebt.
DriveType 2 is Removable, een USB stick wordt als "Removable Disk" opgenomen.
Dus is DriveType 2 true en geeft het een berichtje "NIET JE USB STICK VERGETEN"
Heb je geen usb stick ingestoken opend dit script het Shutdown Dialoog..
(Werkt niet met Externe HDD via USB)

strComputer = "."
Set Shell = WScript.CreateObject ("Shell.Application")
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 Set colDisks = objWMIService.ExecQuery _
 ("Select * from Win32_LogicalDisk")
 
 For each objDisk in colDisks
     If objDisk.DriveType = 2 then '2=Removable
     
     WScript.Echo "NIET JE USB STICK VERGETEN"
  WScript.Quit
     End If
 Next
  Shell.ShutdownWindows

Opslaan als C:\Shutdown.vbs n maak een snelkoppeling naar bureaublad met shutdown icoon..
:thumb:

 

[maxuploader]

@ZipPe Bedankt! Naar zoiets was ik all een tijdje opzoek!