Правильное отображение количества свободного места в сетевом диске - VBA

Формулировка задачи:

Добрый день! Есть onlogon скрипт, который мапит сетевые диски пользователям. Все работает нормально. Только одна беда. На сетевой диск (физически это папка на сервере) существует квота -2 ГБ. Как сделать так чтоб в экспловере windows у пользователей отображалась правильное количество свободного места исходя из существующей квоты. Сейчас показывается исходя из оставшегося места на жестком диске. Пользователь видит, что у него там полно места и начинает кидать туда что не попадя ))) Кусок скрипта:

Set WshNetwork = CreateObject("WScript.Network") 
.....
        WshNetwork.MapNetworkDrive newLet, Path, False
.....

Решение задачи: «Правильное отображение количества свободного места в сетевом диске»

textual
                            Листинг программы 
                        

                            Function VolumeFolder(path)
    Dim fso As Object, fold As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fold = fso.GetFolder(path)
    VolumeFolder = fold.Size
    Set fso = Nothing
    Set fold = Nothing
End Function
 
?VolumeFolder ("c:\temp")
 99183091
                        