Citar
Código
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set wmiEvent = objWMIService.ExecNotificationQuery( _ "Select * From __InstanceCreationEvent Within 1" & _ " Where TargetInstance ISA 'Win32_PnPEntity'") While True Set objEvent = wmiEvent.NextEvent() Set objUSB = objEvent.TargetInstance strName = objUSB.Name strDeviceID = objUSB.DeviceID Set objUSB = Nothing Set colDrives = objWMIService.ExecQuery( _ "Select * From Win32_LogicalDisk Where DriveType = 2") For Each objDrive in colDrives strDriveLetter = objDrive.DeviceID Next Set colDrives = Nothing WScript.Echo strName & " Se ha montado como " & strDriveLetter Wend Set wmiEvent = Nothing Set objWMIService = Nothing
si alguien me puede explicar mas sobre ese objeto porque no se mucho ingles como par leer el archivo de ayuda y los traductores no son recomendables en programacion.
[MOD]: Utiliza las etiquetas para insrtar código.