www.kamuflaj.org

vb.net ile acaba bir sabit diskin seri numarası nasıl öğrenilir diye merak etmiştim ve sonunda aradığımı buldum ve sizle paylaşması güzel olur sanırım.

'öncelikle form class'ndan hemen sonra şu ibareyi sınıfımıza ekleyelim
inherits System.Windows.Forms.Form

'sonra fonksiyonumuzu tanımlıyoruz
Public Function serinoal(ByVal surucu As String) As String
        Dim secilen As String = "Win32_logicaldisk='" & surucu & "'"
        Dim objMO As New System.Management.ManagementObject(secilen)
        objMO.Get()
        Return CType(objMO.Properties("VolumeSerialNumber").Value, String)
    End Function

'örneğin bir button'un tıklanma olayına şu kodu ekleyelim
MsgBox(serinoal("c:"))