[dreyAn]

Здравствуйте, господа.
Во-первых, хочу поблагодарить за данные скрипты, особенно за:

Код:

On Error Resume Next
intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")
DelOld strFldr, intDays

Function DelOld(sFldr, iDays)
On Error Resume Next
   Dim oD, cF, cD, oI

   Set oD = objFSO.GetFolder(sFldr)
   Set cF = oD.Files
   Set cD = oD.SubFolders

   For Each oI In cF
      If DateDiff("d", oI.DateLastModified, Now) > iDays Then
         WScript.Echo oI.Path
         oI.Attributes = 0
         oI.Delete
      End If
   Next

   For Each oI In cD
      DelOld oI.Path, iDays
      If oI.Size = 0 Then
         oI.Attributes = 0
         oI.Delete
      End If
   Next
End Function

Во-вторых, прошу Вас его улучшить вот в каком плане.
Сейчас для выполнения вышеозначенного кода я использую для очистки папки "Загрузки" вот такую команду:

Код:

cscript //Nologo c:\scripts\MyCleanUp.VBS 30 %USERPROFILE%\Downloads > c:\scripts\MyCleanupScript_Downloads.Log

Что в принципе, не правильно, так как значение пути к папке "Загрузки" можно изменить на любое, и куда она точно ссылается можно определить только из реестра:
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
Значение параметра: {374DE290-123F-4565-9164-39C4925E467B}
Можно ли дополнить команду запуска, либо сам скрипт так, чтобы путь к папке "Загрузки" подставлялся автоматически из реестра, а ещё лучше, что-то типа:

Код:

cscript //Nologo c:\scripts\MyCleanUp.VBS 30 c:\scripts\ПапкиДляОчистки.list > c:\scripts\MyCleanupScript.Log

где ПапкиДляОчистки.list -- текстовый файл с перечнем папок, которые надо чистить, например:

Код:

%temp%
%windir%\temp
%USERPROFILE%\Downloads

Заранее благодарю