VBScript arbetar med monterade enheter (5 / 6 steg)
Steg 5: Färdiga manus
Ange shellobj = CreateObject("WScript.Shell")
shellobj.Run "cmd"
WScript.Sleep 200
rem ändra följande rad att återspegla enhetsbeteckningen för enheten
shellobj.SendKeys "/d mountvol g:\ {in}"
WScript.Sleep 2000
rem ändra folowing raden att återspegla den verkliga namn och katalog av bilden du använder
shellobj.SendKeys "c:\3.jpg{enter}exit{enter"}
Dim MyVar
MyVar = 2
medan myvar = 2
MyVar = MsgBox ("vänd enheten tillbaka på", 65, "Aktivera enheten tillbaka")
wend
MsgBox ("vi kommer nu aktivera hård driva tillbaka!")
shellobj.Run "cmd"
WScript.Sleep 200
rem ändra GUID till din faktiska GUID och enhetsbeteckningarna (båda av dem) till den faktiska enheten
rem brev och etiketten till någon etikett du vill att enheten ska förses med
shellobj.SendKeys "mountvol g: \\?\Volume{{}c0ea045c-56fe-11de-8a5a-001111cb3c76{}}\{enter}label g: HDD1e {in} taskkill f im rundll32.exe{enter}exit{enter}"