wscript window2 vbs secuencia script rad91d que extension eliminar comandos archivo vbscript

vbscript - window2 - windows 1 vbs



Montar/desmontar unidades USB con VBSCript (3)

Estoy buscando una manera de montar / desmontar una unidad flash USB con VBScript. Esto es lo más cerca que pude llegar.

Sub EjectDrive(strDrive) On Error Resume Next CONST SSF_DRIVES = 17 Set objShell = CreateObject("Shell.Application") Set objDrive = objShell.Namespace(SSF_DRIVES).ParseName(strDrive) objDrive.InvokeVerb "E&ject" End Sub


Esto funcionará en Windows Server 2003, pero no en NT / 2000 / XP / Vista, lamentablemente.

strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_Volume Where Name = ''E://'") For Each objItem in colItems objItem.Dismount(True, True) Next

De Desmontar un Volumen .


Puede abrir el cuadro de diálogo de expulsión usando algo como esto. No estoy seguro de si es posible desmontar un dispositivo específico.

Set WshShell = WScript.CreateObject("WScript.Shell") intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE)