Sección de códigos , trucos y ejemplos para visual basic
<Volver> - Anterior - Siguiente
Para el ejemplo se necesita incluir la referencia a Microsoft Scripting Runtime ( Fso )
En la rutina se debe enviar a la función Get_Numero_Serie, la letra de unidad para obtener la información. esta función , de tipo Long, retornará el número de serie
Descripción:
Se crean dos objetos, uno de tipo Scripting.FileSystemObject, y otro de tipo Drive.
El primero se utiliza para recuperar el Drive y asignarlo al segundo objeto usando el método GetDrive ( GetDrive requiere como parámetro la unidad ), una ves hecho esto, se puede acceder a las propiedades del mismo, en este caso se accede a la propiedad .SerialNumber, como muestra el gráfico:
Nota: Además del número de serie, se pueden acceder por ejemplo a las siguientes propiedades:
Código fuente en el formulario
Nota. Para realizar esto mismo utilizando la api de windows, ver la función GetVolumeInformation.
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar