none
SERIAL DISCO DURO RRS feed

Respuestas

  • Puedes añadir una referencia COM a Microsoft Scripting Runtime y usar el código

    Dim fso As New FileSystemObject
    
    Dim selected_drive As Drive = fso.GetDrive("C:\")
    
    If selected_drive.IsReady Then
        MsgBox(selected_drive.SerialNumber.ToString())
    End If


    Saludos, Javier J

    martes, 20 de octubre de 2015 15:41