Paso 5: El guión terminado
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run "cmd"
Wscript.Sleep 200
Rem cambia la siguiente línea para reflejar la letra de su unidad
shellobj.SendKeys "mountvol g:\ /d {entrar}"
Wscript.Sleep 2000
Rem cambie la línea siguiente para reflejar el nombre real y el directorio de la imagen usando
shellobj.SendKeys "c:\3.jpg{enter}exit{enter"}
Dim MiVar
MiVar = 2
mientras que MiVar = 2
MiVar = MsgBox ("vuelta de coche nuevo", 65, "Vuelva a encender en coche")
WEND
MsgBox ("ahora giraremos disco duro volver a!")
shellobj.Run "cmd"
Wscript.Sleep 200
Rem cambia el GUID para el GUID real y las letras de unidad (ambos) a la unidad real
Letra de REM y la etiqueta a cualquier etiqueta desea la unidad para ser etiquetado
shellobj.SendKeys "mountvol g: \\?\Volume{{}c0ea045c-56fe-11de-8a5a-001111cb3c76{}}\{enter}label g: HDD1e {entrar} taskkill /F /IM rundll32.exe{enter}exit{enter}"