Étape 5: Le script terminé
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run « cmd »
WScript.Sleep 200
REM modifiez la ligne suivante pour tenir compte de la lettre de votre lecteur
shellobj.SendKeys "mountvol g:\ /d {enter}"
WScript.Sleep 2000
REM modifier la ligne comme suit pour refléter le nom réel et le répertoire de l’image à l’aide de votre
shellobj.SendKeys "c:\3.jpg{enter}exit{enter"}
Dim MyVar
MyVar = 2
tandis que myvar = 2
MyVar = MsgBox ("Turn drive back sur", 65, « Rallumer drive »)
Wend
MsgBox ("nous nous tournerons maintenant disque dur retour sur!!!")
shellobj.Run « cmd »
WScript.Sleep 200
REM remplacez le GUID GUID de votre et les lettres de lecteur (deux d'entre eux) sur le disque réel
lettre de rem et l’étiquette à toute étiquette que vous voulez le lecteur doivent être étiquetées
shellobj.SendKeys "mountvol g: \\?\Volume{{}c0ea045c-56fe-11de-8a5a-001111cb3c76{}}\{enter}label g: HDD1e {enter} taskkill /F /IM rundll32.exe{enter}exit{enter} »