Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - hard disk numero serial fisico
Forum - Visual Basic 6 - hard disk numero serial fisico

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 15:35
Martedì, 19/05/2009
ciao ragazzi come posso prelevare il numero seriale fisico dell'hard disk
dovrebbe essere cosi :

Codice sorgente - presumibilmente Plain Text

  1. GetVolumeInformation "C:\", Buf$, 255, Serial, Length, Flags, Name$, 255
  2.     HardSerial = Serial



non sono sicuro se  è quello fisico

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 15:45
Martedì, 19/05/2009
dimenticavo quel codice  mi ricava  un serial del tipo :

F1MPP5BEQ0AQRC44

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 20:19
Martedì, 19/05/2009
E cosa e' GetVolumeInformation ?

Comunque, sappi che

1) non tutti gli HD restituiscono il Serial Number (quindi non e' un metodo affidabile)

2) e' facilmente superabile (quindi non e' un metodo affidabile)

3) se cambi HD, il programma non funziona piu' (e il cliente si inc ... arrabbia ...)

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 21:16
Martedì, 19/05/2009
se quel serial è abbinato alla criptazione del metodo MD5
risultera' acora non affidabile?

ma come si ottiene il serial fisico?

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 21:28
Martedì, 19/05/2009
Il problema non e' che sia affidabile o meno la criptazione ... e' il metodo del seriale dell'hard disk ...


PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 21:42
Martedì, 19/05/2009
si lo so

ma x ricavare  quel serial fisico... dell'hardisk

serial che rimmarra sempre univoco, anche formattando..

come si trova?

PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 0:09
Mercoledì, 20/05/2009
Click sulla Frm:

Codice sorgente - presumibilmente VB.NET

  1. Option Explicit
  2. 'Da VB6 puoi utilizzare Windows Managemente Instrumentation
  3. 'riferendoti alla libreria Microsoft WMI Scripting V1.2 Library
  4. 'Codice fornito/postato da Oregon:
  5. '----------------------------------------------------------------
  6. Private Sub Form_Click()
  7.    
  8.     'Controlla che sia presente Microsoft Windows Management Instrumentation:
  9.     Call IsWMIInstalled
  10.    
  11.     Print "Seriale MB:" & vbCrLf & GetSerialInfo("BaseBoard")
  12.     Print "Seriale BIOS: " & vbCrLf & GetSerialInfo("BIOS")
  13.     Print "Seriale HD: " & vbCrLf & GetSerialInfo("PhysicalMedia")
  14.  
  15. End Sub
  16. '----------------------------------------------------------------
  17. Private Function GetSerialInfo(device As String) As String
  18.     Dim objs As Object
  19.     Dim obj As Object
  20.     Dim WMI As Object
  21.     Dim sAns As String
  22.    
  23.     Set WMI = GetObject("WinMgmts:")
  24.     Set objs = WMI.InstancesOf("Win32_" & device)
  25.     For Each obj In objs
  26.       sAns = sAns & obj.SerialNumber & vbCrLf
  27.     Next
  28.    
  29.     GetSerialInfo = Replace$(sAns, " ", "")
  30. End Function
  31. '----------------------------------------------------------------
  32. ' Restituisce True se è presente Microsoft Windows
  33. ' Management Instrumentation:
  34. Function IsWMIInstalled() As Boolean
  35.  
  36.     Dim oTemp
  37. On Local Error Resume Next
  38.    
  39.     Set oTemp = CreateObject("WbemScripting.sWbemLocator")
  40.  
  41.     IsWMIInstalled = (Err.Number <> 429)
  42.  
  43.     If Err.Number = 429 Then
  44.       Err.Clear
  45.       Else
  46.       Set oTemp = Nothing
  47.     End If
  48.  
  49. End Function



Ciao.

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 8:11
Mercoledì, 20/05/2009
Testo quotato

Postato originariamente da Louis:
'Da VB6 puoi utilizzare Windows Managemente Instrumentation
'riferendoti alla libreria Microsoft WMI Scripting V1.2 Library
'Codice fornito/postato da Oregon:
'----------------------------------------------------------------



Il problema non e' il codice (che conosco bene ...) ma il fatto, ripeto, che il metodo non sia affidabile, soprattutto perche' NON tutti i dischi moderni restituiscono un seriale ...

Quindi, probabilmente tutto ti funzionerà ma arrvierà il momento in cui qualcuno ti dirà che qualcosa non va con il proprio disco ...


PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 9:02
Mercoledì, 20/05/2009
il discorso che potrebbe essere interessante e' riuscire ad appoggiarsi a qualcosa di univoco.....

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo