Scripting Runtime Library(FileSystemObject)

디스크 볼륨을 고유하게 식별하는 데 사용되는 십진수의 일련 번호를 반환한다.

인수
object : (개체)

object는 항상 Drive 개체이다.

: (속성 문자열)
속성값은 디스크 볼륨을 고유하게 식별하는 데 사용되는 십진수의 일련 번호를 나타내는 문자열이다.

이 속성은 읽기전용이며 디폴트값은 없다.

특기

SerialNumber 속성을 사용하여 이동식 미디어를 장착한 드라이브에 올바른 디스크를 넣었는지 확인할 수 있다.


SerialNumber 속성 예제

결과 표시창
JScript SerialNumber 속성 예제
<SCRIPT language=JScript>
function SerialNumberTest(){
  var fso,driveObj,drvType,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  enumObj=new Enumerator(fso.Drives);
  for (; !enumObj.atEnd(); enumObj.moveNext()){
    driveObj=enumObj.item();
    switch (driveObj.DriveType){
      case 0: drvType='알 수 없음'; break;
      case 1: drvType='이동식'; break;
      case 2: drvType='고정식'; break;
      case 3: drvType='네트워크'; break;
      case 4: drvType='CD-ROM'; break;
      case 5: drvType='RAM 디스크'; break;
    }
    str+='드라이브 '+driveObj.DriveLetter+': - '+drvType+' : ';
    if (driveObj.IsReady){
      str+=driveObj.SerialNumber;
      str+=' (Hex:'+driveObj.SerialNumber.toString(16).toUpperCase()+')<BR>';
    } else str+='준비 안됨<BR>';
  }
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=SerialNumberTest()">
  <SPAN class=ie>JScript</SPAN> <SPAN class=property>SerialNumber</SPAN> 속성 예제</DIV>

VBScript로 반복

결과 표시창
VBScript SerialNumber 속성 예제
<SCRIPT language=VBScript>
Function SerialNumberTestvb
  Dim fso,driveObj,drvType
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set drivesCol=fso.Drives
  For Each driveObj in drivesCol
    Select Case driveObj.DriveType
      Case 0: drvType="알 수 없음"
      Case 1: drvType="이동식"
      Case 2: drvType="고정식"
      Case 3: drvType="네트워크"
      Case 4: drvType="CD-ROM"
      Case 5: drvType="RAM 디스크"
    End Select
    str=str&"드라이브 "&driveObj.DriveLetter&": - "&drvType&" : "
    If driveObj.IsReady Then
      str=str&driveObj.SerialNumber&"<BR>"
    Else str=str&"준비 안됨<BR>"
    End If
  Next
  SerialNumberTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=SerialNumberTestvb()">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=property>SerialNumber</SPAN> 속성 예제</DIV>