Vbscript - 로그온한 사용자의 디스크 할당량 리포팅

다음 스크립트는 로그온한 사용자의 디스크 할당량, 즉 해당 계정이 소유권을 가지고 있는 파일의 용량을 알아 볼수 있는 스크립트입니다.

이 스크립트 역시 WMI 를 이용하는 방법입니다.

strComputer = "."

Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
strDomain = objNetwork.UserDomain

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_QuotaSetting Where State = 1")

For Each objDisk in colDisks
    strDrive = objDisk.VolumePath
    strDrive = Replace(strDrive, "\", "")

    Set objQuota = objWMIService.Get _
        ("Win32_DiskQuota.QuotaVolume='Win32_LogicalDisk.DeviceID=" & chr(34) &_
            strDrive & chr(34) & "'," & _
            "User='Win32_Account.Domain=" & chr(34) & strDomain & chr(34) & _
                ",Name=" & chr(34) & strUser & chr(34) & "'")

    Wscript.Echo "Drive: " & objDisk.VolumePath
    Wscript.Echo "Disk Space Used: " & Int(objQuota.DiskSpaceUsed / 1048576) & " megabytes"
    Wscript.Echo "Quota Limit: " & Int(objQuota.Limit  / 1048576) & " megabytes"
    Wscript.Echo "Disk Space Remaining: " & Int((objQuota.Limit - objQuota.DiskSpaceUsed) 
                         / 1048576) &  " megabytes"
    Wscript.Echo
Next

역시 이용하기 나름이지만,.^^




03-TechNetB_masthead_ltr.gif