Evento que lea la serie del disco

En realidad el uso del objeto "FileSystemObject" no es exclusivo de
Excel o Access, si no mas bien de cualquier lenguage de programación
que tenga acceso a los ActiveX instalados en la PC. Prueba el
siguiente ejemplo donde gustes Excel, Word, Access, Powerpoint, etc.
tiene que funcionar.

Sub DesplegarNumeroSerieDiscoDuro()
Dim FSO As Object 'FileSystemObject
Dim DiscoDuro As Object 'Drive

Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
'OJO: Las siguientes DOS líneas van en una sola linea de codigo
MsgBox "El número de serie del disco " & DiscoDuro.Path & " es " &
Format(DiscoDuro.SerialNumber, "# ### ### ###"), vbInformation
Set DiscoDuro = Nothing
Set FSO = Nothing

End Sub

Esto demuestra un pequeño uso del "FileSystemObject", sin embargo este
objeto puede realizar muchas otras cosas como::

- Adminstrar archivos & carpetas (crear, eliminar, renombrar, etc.)
- Recorrer directorios & archivos y por medio de un procedimiento
recurrente, se puede examinar todo el disco duro!
- Examinar unidades como cd, diskette, usb, etc.
- Crear, abrir y modificar archivos de texto
- Etc (un muy largo etcetera)

Saludos,
Marco Barboza, San Jose - Costa Rica

On Apr 12, 10:00 am, José A. Castrejón
wrote:

Hola buenos dias a todos,

Hace algun tiempo lei sobre un evento que puede leer el numero de serie del
disco duro, creo que era para Access. ¿Este evento existira para Excel ?. La
verdad no recuerdo en donde lo encontre.

Saludos

Jose Antonio castrejón

http://groups.google.com/group/micr...erie+disco

Abraham

http://groups.google.com/group/micr...erie+disco

Abraham

Gracias a los 2, sin embargo me queda una duda.
Probe el codigo de Marco Barbosa y funciona muy bien y me arroja el numero :
"1691898342"
Tambien probe el codigo de Fernando Arroyo que tome de la liga que puso
amablemente Abraham y me da un numero distinto !! este codigo me da el numero
"3JV1K32T" ¿Cual es el correcto ? ¿Porque obtengo datos diferentes"

A Continuación pongo el codigo de Fernando Arroyo

Sub AveriguarNúmeroDeSerieDeDiscos()
Dim oWMI As Object, Discos As Object, Disco As Object
Set oWMI = GetObject("WINMGMTS:")
Set Discos = oWMI.instancesof("Win32_PhysicalMedia")

For Each Disco In Discos
MsgBox "Serie: " & Disco.serialnumber
Next


Set Disco = Nothing
Set Discos = Nothing
Set oWMI = Nothing
End Sub

Saludos y gracias


"José A. Castrejón" wrote:

Hola buenos dias a todos,

Hace algun tiempo lei sobre un evento que puede leer el numero de serie del
disco duro, creo que era para Access. ¿Este evento existira para Excel ?. La
verdad no recuerdo en donde lo encontre.

Saludos

Jose Antonio castrejón

¿Por qué dos resultados diferentes?

En verdad es curioso. Probé obtener la serie del disco con las dos clases,
y en efecto el resultado es distinto. No encuentro relación entre ellos.
Traté de buscar información, y encontré bastante, pero nada que resuelva esta
cuestión.

Yo siempre he utilizado FileSystemObject, y me ha dado buen resultado. Creo
que cualquiera de los dos métodos que utilices te será efectivo, en el
sentido que el número de serie retornado será un identificador único de la
unidad de disco, pero ahora me surge la inquietud: si se trata de la misma
propiedad, ¿por qué se obtienen resultados diferentes?

Bueno. Esperemos que alguien nos ayude a aclarar este dilema.

Mientras tanto, por si quieres leer un poco, aquí te dejo algunos enlaces.

Sobre cómo administrar Windows con WMI

http://www.microsoft.com/latam/tech...2k/mngwmi/

Específicamente sobre la clase "Win32_PhysicalMedia":

http://msdn2.microsoft.com/en-us/li...94346.aspx

Si quieres leer más sobre el objeto "FileSystemObject":

http://search.msdn.microsoft.com/se...&tab=0

Y un sitio interesante que te muestra información sobre "FileSystemObject"
en una forma un poco más didáctica:

http://www.henri-ruch.ch/ASP/objets...Object.asp

Por último, si te quieres bajar un ejemplo, visita este sitio y descarga el
ejemplo 8:

http://www.geocities.com/sdgm04/03-VBA.html

Espero que alguien nos heche una mano con esto.

Saludos a todos!



"José A. Castrejón" escribió:

Gracias a los 2, sin embargo me queda una duda.
Probe el codigo de Marco Barbosa y funciona muy bien y me arroja el numero :
"1691898342"
Tambien probe el codigo de Fernando Arroyo que tome de la liga que puso
amablemente Abraham y me da un numero distinto !! este codigo me da el numero
"3JV1K32T" ¿Cual es el correcto ? ¿Porque obtengo datos diferentes"

A Continuación pongo el codigo de Fernando Arroyo

Sub AveriguarNúmeroDeSerieDeDiscos()
Dim oWMI As Object, Discos As Object, Disco As Object
Set oWMI = GetObject("WINMGMTS:")
Set Discos = oWMI.instancesof("Win32_PhysicalMedia")

For Each Disco In Discos
MsgBox "Serie: " & Disco.serialnumber
Next


Set Disco = Nothing
Set Discos = Nothing
Set oWMI = Nothing
End Sub

Saludos y gracias


"José A. Castrejón" wrote:

> Hola buenos dias a todos,
>
> Hace algun tiempo lei sobre un evento que puede leer el numero de serie del
> disco duro, creo que era para Access. ¿Este evento existira para Excel ?. La
> verdad no recuerdo en donde lo encontre.
>
> Saludos
>
> Jose Antonio castrejón