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.
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) (http://www.llodax.com/smf/index.php?topic=42)
Número de serie del volumen (mediante API) (http://www.llodax.com/smf/index.php?topic=44)