Programación General > Visual Basic 6.0 e inferiores

 Capturar Serial Fisico Del Dd De La Pc

(1/3) > >>

sujey_sanchez:
Buenas Tardes Comunidad.....
    Necesito de su gran ayuda...... :) , requiero capturar el Serial Fisico del Disco Duro de la maquina donde se ejecuta el programa en visual basic.  He conseguido funciones en visual basic pero es para el serial logico, donde el mismo se cambia cuando se formatea el disco duro...Debe ser el fisico....


Mil Gracias de Antemano :hola:

Jose Arriagada:
Utiliza lo siguiente:

Private Sub Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "C:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
sHex = Trim(Hex(numSerie))
If Len(sHex) < 8 Then
    Delta = 8 - Len(sHex)
    For i = 1 To Delta
        sHex = "0" & sHex
    Next i
End If
Label1.Caption = sHex
End Sub


En un modulo inserta este codigo:
Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize _
As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags _
As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)


Prueba

sujey_sanchez:
Jose, Gracias por tu Ayuda... :) .
Pero te informo que ese es un serial logico, que se cambia automaticamente cuando formateas el DD...ese era el que estaba utilizando...Necesito es el serial fisico del DD...Es asi como las tarjetas PCI que poseen serial logico y fisico, bueno como todo hardware.



Gracias..... :D

Juanolo:
Creo que esto te servirá. No recuerdo de donde lo bajé, mis disculpas por no nombrar al creador. Sólo dejo claro que yo no fui.

Salu2.

sujey_sanchez:
Juanolo, gracias por la ayuda, pero me da el error de: "No se puede cargar el Archivo DSIdeInf.VXD,...." Ese archivo lo tengo donde esta el proyecto vbp, tal cual baje el Archivo Zip.  . Donde debiera estar?, donde lo busca DSIdeInf.DLL?...

Agradeceria tu ayuda al respecto.



Gracias de Antemano :D

Navegación

[0] Índice de Mensajes

[#] Página Siguiente