Soyez le premier à donner votre avis sur cette source.
Vue 28 660 fois - Téléchargée 529 fois
'declaration des constantes Const DRIVE_NUMBER = 0 Const DRIVE_LETTER = "F:" 'declaration des objets Set WSShell = WScript.CreateObject("WScript.Shell") Set WSArguments = WScript.Arguments 'récupérer les arguments de la ligne de commande Set FSO = CreateObject("Scripting.FileSystemObject") 'nom est emplacement de l'application Daemon strDaemon= Chr(34) & "C:\Program Files\D-Tools\daemon.exe" & Chr(34) If WSArguments.Count Then Set Drive = FSO.GetDrive(DRIVE_LETTER) WSShell.run strDaemon & " -unmount " & DRIVE_NUMBER 'dechargement du lecteur While Drive.IsReady = True : Wend 'on attend qu'il soit decharger Wscript.Sleep 1000 'des fois ca suffit pas alors on attend encore un peu WSShell.run strDaemon & " -mount " & DRIVE_NUMBER & "," & chr(34) & WSArguments(0) & chr(34) 'chargement de l'image While Drive.IsReady = False : Wend 'on attend la fin du chargement End If
1. reprendre un vieux sujet.
2. je ne comprends pas le VBS.
Mais d'apres l'algorithme de base, ce code est tres bien.
Et merci mille fois pour le website, vraiment tres utile>
http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid=b4cb2678-dafb-4e30-b2da-b8814fe2da5a
:D
bien vu quand meme l'argument de commande
++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.