Número de serie del volumen

[xavi]

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)