[已解决]读取硬盘序列号

向前650809

在EXCEL VBA中，如何编写程序读取电脑硬盘序列号

最佳答案

月排行榜 / 总排行榜

wayy

2011-2-22 21:53

Sub 磁盘序列号()
    Dim 磁盘, 序列号
    Set 磁盘 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
    For Each mo In 磁盘
        If mo.VolumeSerialNumber <> "" Then 序列号 = 序列号 & "磁盘:" & mo.Name & vbCrLf & "卷的序列号:" & mo.VolumeSerialNumber & vbCrLf & vbCrLf
    Next
    MsgBox Left(序列号, Len(序列号) - 3)
End Sub
Sub 硬盘型号()
    Dim 硬盘
    Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
    For Each mo In 硬盘
        MsgBox "硬盘型号为:" & mo.Model
    Next
End Sub

跳转到最佳答案楼层

业余爱好者

还是去下载一个小程序来完成你的要求吧

wayy

Sub 磁盘序列号()
    Dim 磁盘, 序列号
    Set 磁盘 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
    For Each mo In 磁盘
        If mo.VolumeSerialNumber <> "" Then 序列号 = 序列号 & "磁盘:" & mo.Name & vbCrLf & "卷的序列号:" & mo.VolumeSerialNumber & vbCrLf & vbCrLf
    Next
    MsgBox Left(序列号, Len(序列号) - 3)
End Sub
Sub 硬盘型号()
    Dim 硬盘
    Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
    For Each mo In 硬盘
        MsgBox "硬盘型号为:" & mo.Model
    Next
End Sub

YANG6815475

wayy 发表于 2011-2-22 21:53
Sub 磁盘序列号()
    Dim 磁盘, 序列号
    Set 磁盘 = GetObject("winmgmts:{impersonationLevel=imper ...

使用您的代码，产生下列错误，不知什么原因？

错误

wayy

YANG6815475 发表于 2013-5-7 15:38
使用您的代码，产生下列错误，不知什么原因？

1. Sub 磁盘序列号()
   
2.     Dim 磁盘, 序列号
   
3.     Set 磁盘 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
   
4.     For Each mo In 磁盘
   
5.         If mo.VolumeSerialNumber <> "" Then 序列号 = 序列号 & "磁盘:" & mo.Name & vbCrLf & "卷的序列号:" & mo.VolumeSerialNumber & vbCrLf & vbCrLf
   
6.     Next
   
7.     MsgBox Left(序列号, Len(序列号) - 3)
   
8. End Sub
   
9. Sub 硬盘型号()
   
10.     Dim 硬盘
    
11.     Set 硬盘 = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
    
12.     For Each mo In 硬盘
    
13.         MsgBox "硬盘型号为:" & mo.Model
    
14.     Next
    
15. End Sub

复制代码

YANG6815475

wayy 发表于 2013-5-8 20:05

谢谢您的解答！

YANG6815475

wayy 发表于 2013-5-8 20:05

按您的代码输入后，完全正确！谢谢您！是啥子问题呢？！