WMI acceder pendrive

14/10/2005 - 15:11 por Silviall | Informe spam
Hola a todos,

Estoy leyendo la documentación de windows de WMI, y no me aclaro mucho.
Estoy trabajando con VB 2003 .NET y me gustaria poder acceder a un pendrive.
Alguien tiene un ejemplo, para acceder a un pendrive? Es una aplicación
estandard que puede correr sobre bastantes sistemas operativos,
NT,2000,XP,?

Muchas Grácias,

Saludos,

Silvia.
 

Leer las respuestas

#1 José Ramón
14/10/2005 - 16:35 | Informe spam
Mira estas dos funciones:


Private Function HayDiscosUSB() As Boolean

Dim Buscar As New Management.ManagementObjectSearcher("Select * from
Win32_DiskDrive where InterfaceType='USB'")

Dim res As Boolean = False

Dim col As Management.ManagementObject

For Each col In Buscar.Get

res = True

Next

Return (res)

End Function

Private Function BuscarNumeroSerie(NumeroSerie as String) As Boolean

Dim Buscar As New Management.ManagementObjectSearcher("Select * from
Win32_LogicalDisk")

Dim NS As String

Dim col As Management.ManagementObject

For Each col In Buscar.Get

NS = Convert.ToString(col("VolumeSerialNumber"))

If String.Compare(NS, NumeroSerie, True) = 0 Then

Me._Unidad = col("Caption").ToString

Return (True)

End If

Next

Return (False)

End Function

Preguntas similares