[alpap]

Самое удачное видел только на js:

Код:

// Скрипт Pf.js для получения содержимого папки %Programfiles%
 
var ShellAp, objFolder, objFolderItem, list, objItem, colItems; 
var FSO, TempPath, TxtFile; 
 
// получаем доступ к объекту Shell.Application 
ShellAp = WScript.CreateObject("Shell.Application"); 
// получение объекта виртуальной папки проводника 
objFolder = ShellAp.Namespace(38); 
//Получаем объект FolderItem для текущей папки 
objFolderItem = objFolder.Self; 
 
 
list = "Содержимое папки:\n";
list +=objFolderItem.Path + "\n\n";
  
 
// получаем доступ к коллекции папок 
colItems = new Enumerator(objFolder.Items()); 
 
//составляем список системных каталогов 
for (; !colItems.atEnd(); colItems.moveNext()){ 
    list += colItems.item().Path+ "\n"; 
} 
  
ShowInNotepad(list) 
  
//Функцияя временного файла с данными 
function ShowInNotepad(StrToFile){ 
    FSO = WScript.CreateObject("Scripting.FileSystemObject"); 
    TempPath = 
WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") + 
"\\" + FSO.GetTempName(); 
    TxtFile = FSO.CreateTextFile(TempPath); 
    TxtFile.WriteLine(StrToFile); 
    TxtFile.Close(); 
    WScript.CreateObject("WScript.Shell").Run ("notepad.exe " + TempPath); 
}

.