[Scripting Guide] - 배열, For each

이제까지 하나의 값을 가진 변수를 이용한 스크립트를 만들어 보았다.
동시에 여러개의 값을 가진 배열을 이용하면 보다 나은 활용도를 가진 스크립트를 만들수있다.

Const CONVERSION_FACTOR = 1048576
computer = "mysonnet" ' 컴퓨터의 이름 입력
Set objWMIService = GetObject("winmgmts://" & computer )  ' WMI 를 이용합니다.
Set colLogicalDisk = objWMIService.InstancesOf("Win32_LogicalDisk")
    ' 전체내용을 가져옵니다.
For Each objLogicalDisk In colLogicalDisk  
    ' 전체내용중 하나하나씩의 값을 가져옵니다.
    FreeMegaBytes = objLogicalDisk.FreeSpace / CONVERSION_FACTOR
    ' 남은 공간을 MegaByte 단위로 환산합니다.
    Wscript.Echo objLogicalDisk.DeviceID & " " & Int(FreeMegaBytes)
    ' 드라이브명(DeviceID) 을 가져옵니다.
Next

G:\Data\Script\tmp\VBS>cscript Win32_LogicalDisk_WMI.vbs
Microsoft (R) Windows Script Host 버전 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

A:
C: 962
D: 9788
F: 1828
G: 26523
H:
I:
J: 0

G:\Data\Script\tmp\VBS>

드라이브가 좀 많죠..?
3.5인치 드라이브와 HDD, CDROM 을 포함한 모든 디스크가 나열됩니다.