Autor Tema: Número de serie del volumen  (Leído 1431 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 196
Número de serie del volumen
« en: Abril 20, 2012, 12:42:21 am »
Palabras clave: FSO, averiguar, extraer, saber, numero serie, volumen, disco
Autor: Búho desarrollando una idea de Eduardo Morcillo
Extraído de: La web del Búho

Objetivo
Extraer el número de serie del volumen  (dado al formatear) mediante FSO.

Código: [Seleccionar]
Dim FileWsh As Object

Set FileWsh = CreateObject("Scripting.FileSystemObject")
MsgBox "Número de Serie del Volumen en Hexadecimal: " & Hex$( _
    FileWsh.Drives("C").SerialNumber)
MsgBox "Número de Serie del Volumen en decimal: " & FileWsh.Drives( _
    "C").SerialNumber
Set FileWsh = Nothing


Te puede interesar....
Número de serie del volumen (mediante WMI)
Número de serie del volumen (mediante API)