C# / VB.NET - [VB.NET] Lettura Seriale Hardisk

Forum - C# / VB.NET - [VB.NET] Lettura Seriale Hardisk - Pagina 2

Pagine: [ 1 2 ]

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 14:19
Lunedì, 07/11/2011

Intendo al primo avvio dell'applicazione (non di un'altra applicazione ...)

Ultima modifica effettuata da nessuno il 07/11/2011 alle 14:20

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Renny (Normal User)
Expert

Messaggi: 231
Iscritto: 30/07/2011

Postato alle 14:46
Lunedì, 07/11/2011

Si, ok.. ma pensavo ai setup che si vedono di solito, dove viene chiesto il codice di registrazione (che di solito è scritto su una licenza cartacea) e che quindi la verifica del codice stesso avviene prima di procedere all'installazione.. Anche quella potrebbe essere una via.. fattibile? :-|

Renny (Normal User)
Expert

Messaggi: 231
Iscritto: 30/07/2011

Postato alle 16:44
Martedì, 08/11/2011

Ragazzi, c'è qualcun'altro che mi fa il favore di provare il codice?

Codice sorgente - presumibilmente VB.NET

Imports System.Management
Imports System.IO
 
Public Function GetSerialNumber(ByVal DriveLetter As String) As String
    DriveLetter = DriveLetter.TrimEnd(CChar("\"))
    Dim s As New ManagementObjectSearcher("select * from win32_diskdrive")
    Dim Code As String = ""
    For Each drive As ManagementObject In s.Get
         For Each part As ManagementObject In drive.GetRelated("Win32_DiskPartition")
             For Each mapping As ManagementObject In part.GetRelated("Win32_LogicalDisk")
                If mapping("Name").ToString = DriveLetter Then
                    For Each Media As ManagementObject In drive.GetRelated("Win32_PhysicalMedia")
                        If Media("SerialNumber").ToString = "" Then
                             Code = mapping("Name").ToString & " " & "None"
                        Else
                             Code = mapping("Name").ToString & " " & Media("SerialNumber").ToString
                        End If
                    Next
                End If
            Next
        Next
    Next
    Return Code
End Function
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         MessageBox.Show(GetSerialNumber(Path.GetPathRoot(Application.ExecutablePath)))
 
        End
    End Sub

Ci mettete 0,5 secondi, giuro! :rotfl:

Ultima modifica effettuata da Renny il 08/11/2011 alle 21:27

Pagine: [ 1 2 ]