VBS 튜토리얼: 속성 - SerialNumber 속성

SerialNumber 속성
디스크 볼륨을 고유하게 식별하는 10진수 일련 번호를 반환합니다.object.SerialNumber
object는 Drive 객체의 이름이어야 합니다.
설명
SerialNumber 속성을 사용하여 이동식 미디어 드라이브에 올바른 디스크를 삽입할 수 있습니다.
다음 코드에서는 SerialNumber 속성을 사용하는 방법을 예로 들어 설명합니다.

Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))    Select Case d.DriveType        Case 0: t = "未知"        Case 1: t = "可移动"        Case 2: t = "固定"        Case 3: t = "网络"        Case 4: t = "CD-ROM"        Case 5: t = "RAM 磁盘"    End Select    s = "驱动器 " & d.DriveLetter & ": - " & t    s = s & "
" & "序列号：" & d.SerialNumberShowDriveInfo = sEnd Function

참조: