VBscript для получения пользовательских документов и размера папки рабочего стола

Я знаю, что это не ответит на ваш вопрос по vbscript, но я бы порекомендовал powershell, если вы открыты для него. Обычно это намного проще, просто чтобы привести вам пример ...

Вот ссылка для начала: http://technet.microsoft.com/en-us/library/ff730945.aspx

а вот модифицированная версия их примера:

$colItems = (Get-ChildItem C:\users\username\desktop -recurse | Measure-Object -property length -sum)
"{0:N2}" -f ($colItems.sum / 1MB) + " MB"

Измените значения в C:\users\username\desktop и скажите, нравятся ли вам результаты. Если вам нужна помощь с циклическим захватом данных с удаленных компьютеров, дайте мне знать.

Скрипт v1: не идеально, но я думаю, что по большей части он будет работать. Вам нужно будет загрузить Quest AD CMDlets и установить его в системе, из которой вы собираетесь его запускать. Кроме того, вам необходимо настроить политику выполнения на Remote Sign. Затем скопируйте этот сценарий на локальный диск этой системы. Вам нужно будет отредактировать три значения: $ rootou (это ваша OU, которую вы хотите искать) и две строки в разделе #Export paths. Сообщите мне, как это работает. или если вам нужна копия загруженного скрипта.

#Script used to gather data size of remote computers user profiles by Eric C. Singer

#a generic powershell object used to group a collection of various objects into a single object 
$data = new-object psobject
$columns = @"
ComputerName
ProfileName
DocumentsSizeMB
DesktopSizeMB
"@
$columns -split "`n" |%{$data | add-member -membertype noteproperty -name $_.trim() -value $null}

#Store a list of computers that we couldn't connect to
$failedcomputers = New-Object System.Collections.ArrayList

#Store the results of the gathered data
$foldersize = New-Object System.Collections.ArrayList

#Root OU that you want to start searching for computers
$RootOU = "yourdomain.org/your ou/ your sub-ou"

#Getting a list of all computers
$allcomputers = Get-QADComputer -SearchRoot "$rootou" -SizeLimit 0

#Export paths
$failedcomputersfiles = "c:\yourpath\yourfile.csv"
$foldersizefile = "c:\yourpath\yourfile.csv"

#Looping through each computer
Foreach ($computer in $allcomputers)
    {
#Seeing if we can connect to the computer, if not, we're going to add it to the failedcomputers array.
    If (Test-Path "\\$($computer.name)\c$")
        {
#Setting the two possiable paths based on whether its Windows 7 or XP
        $Windows7ProfileRoot = "\\$($computer.name)\c$\Users"
        $WindowsXPProfileRoot = "\\$($computer.name)\c$\Documents and Settings"
#if the computer is windows 7 run this, or go to the else statement
        If ($($computer.OSName) -like "Windows 7*")
            {
#getting a list of profiles
            $allprofiles = Get-ChildItem $Windows7ProfileRoot | Where-Object {$_.PSIsContainer -eq $true}
#Looping through each profile and running the following.
            Foreach ($user in $allprofiles)
                {
                $data.ComputerName = $computer.name
                $data.ProfileName = $user.name
                $userdesktop = (Get-ChildItem "$Windows7ProfileRoot\$($user.name)\desktop" -recurse | Measure-Object -property length -sum).sum / 1MB
                $userdocuments = (Get-ChildItem "$Windows7ProfileRoot\$($user.name)\documents" -recurse | Measure-Object -property length -sum).sum / 1MB
                $data.DesktopSizeMB = $userdesktop
                $data.DocumentsSizeMB = $userdocuments
                $data | Select-Object * | ForEach-Object {$foldersize.Add($_)}
                }
            }
        Else
            {
            $allprofiles = Get-ChildItem $WindowsXPProfileRoot | Where-Object {$_.PSIsContainer -eq $true}
            Foreach ($user in $allprofiles)
                {
                $data.ComputerName = $computer.name
                $data.ProfileName = $user.name
                $userdesktop = (Get-ChildItem "$WindowsXPProfileRoot\$($user.name)\desktop" -recurse | Measure-Object -property length -sum).sum / 1MB
                $userdocuments = (Get-ChildItem "$WindowsXPProfileRoot\$($user.name)\my documents" -recurse | Measure-Object -property length -sum).sum / 1MB
                $data.DesktopSizeMB = $userdesktop
                $data.DocumentsSizeMB = $userdocuments
                $data | Select-Object * | ForEach-Object {$foldersize.Add($_)}
                $data
                }
            }
        }
    Else
        {
        $failedcomputers.Add("$($computer.name)")
        }
    }

$failedcomputers | Export-Csv $failedcomputersfiles -NoTypeInformation
$foldersize | Export-Csv $foldersizefile -NoTypeInformation