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

[mehdininja]

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

[the king]

سلام
دنبال کدی هستم که شماره سریال هارد (سخت افزاری) رو با کد 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