بدست آوردن شماره سریال هارد با vba در اکسل

سلام
دنبال کدی هستم که شماره سریال هارد (سخت افزاری) رو با کد vba اکسل نشون بده.

نقل قول:

---

نوشته شده توسط mehdininja

سلام
دنبال کدی هستم که شماره سریال هارد (سخت افزاری) رو با کد vba اکسل نشون بده.

---

Private Sub CommandButton1_Click()

    MsgBox GetSerialNumber

End Sub



Private Function GetSerialNumber() As String

    Dim Wmi As Object, Disks As Object, Disk As Object

    Set Wmi = GetObject ("winmgmts:{impersonationLevel" & "=impersonate}!root\cimv2")

    Set Disks = Wmi.ExecQuery("Select * from Win32_DiskDrive")

    For Each Disk In Disks

    If Len(Disk.SerialNumber) > Len(GetSerialNumber) Then GetSerialNumber = Disk.SerialNumber

    Next

    Set Disk = Nothing

    Set Disks = Nothing

    Set Wmi = Nothing

End Function