VBA 보안 하드드라이브 볼륨번호 확인하기

Sub GetHardDriveSerialNumber()
    Dim wmi As Object
    Set wmi = GetObject("winmgmts:\\.\root\cimv2")
    
    Dim disks As Object
    Set disks = wmi.ExecQuery("SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE DeviceID='C:'")
    
    Dim serialNumber As String
    For Each disk In disks
        serialNumber = disk.VolumeSerialNumber
        Exit For
    Next
    
    MsgBox "하드 드라이브 볼륨넘버: " & serialNumber
End Sub

 

VBA에서 볼륨번호를 확인하는 방법이며, 사용자 지정 PC 이용할 수 있다.