Como puedo ver toda los nombres de las unidades(disco duro, pen, etc) de mi pc

[Hector Colman]

Hola a todos. necesito ver las unidades de mi equipos con los nombres de cada uno. ejemplo: "Disco local (C:)",KINGSTON(I:),Archivos(D:)

[Ricardo Pina]

Hola Hector

 

Una manera es la siguiente

 

objWMI = Getobject("winmgmts:\\")
cCadWMI = "Select * from Win32_LogicalDisk"
oSistema = objWMI.ExecQuery(cCadWMI)

For Each Disco In oSistema
 ? "Unidad: " + Disco.Name + " " + Disco.VolumeName+" Serial: " + Disco.VolumeSerialNumber
Next

 

Saludos

El 18 de septiembre de 2013 19:05, Hector Colman <hcolma...@gmail.com> escribió:

Hola a todos. necesito ver las unidades de mi equipos con los nombres de cada uno. ejemplo: "Disco local (C:)",KINGSTON(I:),Archivos(D:)

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[Víctor Enrique Navarro Hoyos]

Excelente, gracias por este aporte

[Carlos Alloatti]

For lnx = 67 To 90

If Drivetype(Chr(m.lnx)) # 1 Then

Adir(laVol,'*',"V")

?Chr(m.lnx), m.laVol(1)

Endif

Endfor

[Fernando D. Bozzo]

¿Carlos?, ¿el autor de la librería ctl32?, que buena sorpresa, no sabía que andabas por este foro :-)


Saludos!

[Ricardo Pina]

Yo pense lo mismo.!!

Por supuesto que si es un homónimo es bienvenido de todas maneras, pero en caso de serlo se doble bienvenida ya que podemos "aprovecharnos" lujuriosamente de sus conocimientos. :-))

 

Saludos

 

[Luis Maria Guayan]

Buen día Carlos, si bien sabía que estabas en el grupo, una linda sorpresa "leerte" a menudo ;-)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Daniel Burgos]

Hola Carlos
con el ejemplo anterior sólo devuelve el nombre del volumen de la primera
unidad. Así logré que devuelva todas las etiquetas

For lnx = 67 To 90

lcunit=CHR(m.lnx)+':'
If Drivetype(m.lcunit) # 1 Then
Adir(laVol,m.lcunit,"V")
? m.lcunit, m.laVol(1)
Endif
Endfor

[Fer]

A mí el ejemplo de Carlos me anduvo perfecto, no veo la diferencia...

El 19/09/2013 16:39, "Daniel Burgos" <iam...@gmail.com> escribió:

Hola Carlos
con el ejemplo anterior sólo devuelve el nombre del volumen de la primera unidad. Así logré que devuelva todas las etiquetas

For lnx = 67 To 90
   lcunit=CHR(m.lnx)+':'
   If Drivetype(m.lcunit) # 1 Then
       Adir(laVol,m.lcunit,"V")
       ? m.lcunit, m.laVol(1)
   Endif
Endfor

----- Original Message ----- From: Carlos Alloatti

To: publicesvfoxpro@googlegroups.com

[Rocco Di Chiara]

Hola a todos.

Misma pregunta, pero incluir o acceder a las unidades locales compartidas desde RDP