excel - 在vba中获取硬盘序列号

Question

为什么GetHDD结果“_____WD-WX4645DRTEE”，加5个空格。代码问题在哪里？

我添加了 _____ 而不是 5 个空格。

Function GetHDD() 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
GetHDD = GetSerialNumber
Debug.Print GetHDD
End Function

标签： excelvba