Palabras clave: extraer, recuperar, ver, información, disco, WSH
Autor: Buho
Extraído de: La web del Búho
Objetivo:
Función que me devuelve los parámetros más importantes de nuestro disco duro. Es muy sencilla. Parámetros tales como:
Etiqueta del disco duro, Espacio Total, Número de Serie, Sistema de ficheros, Espacio Disponible
Function InfoHDPrincipal()
'Si quieres, cambia la funcion y mete como parametro un String con la letra
'de la unidad: C, D etc
'Buho, Junio 2003
Dim fss As Object
Dim StrMensaje As String
Set fss = CreateObject("Scripting.FileSystemObject")
StrMensaje = StrMensaje & "Path:" & fss.Drives("c").Path & vbCrLf
StrMensaje = StrMensaje & "Etiqueta del disco duro:" & fss.Drives("c").VolumeName & vbCrLf
StrMensaje = StrMensaje & "Espacio Total:" & fss.Drives("c").TotalSize & vbCrLf
StrMensaje = StrMensaje & "Número de Serie:" & fss.Drives("c").SerialNumber & vbCrLf
StrMensaje = StrMensaje & "Sistema de ficheros:" & fss.Drives("c").FileSystem & vbCrLf
StrMensaje = StrMensaje & "Espacio Disponible:" & fss.Drives("c").FreeSpace & vbCrLf
MsgBox StrMensaje, vbInformation, "Informacion de su HD principal"
Set fss = Nothing
End Function
