Сабж
Диски интересуют только локальные

ФСО = Новый COMОбъект("Scripting.FileSystemObject");
   Диски = ФСО.Drives;
   Для каждого Диск Из Диски Цикл
       Сообщить(Диск.DriveLetter+":\");
       Сообщить(Диск.DriveType); //2-локальный
   КонецЦикла;

а без ФСО можно еще как нибудь?

Ну назови как-нибудь по-другому. :)
Чем тебе этот способ не нравится?
Вот я всегда поражаюсь народу. Есть задача. Есть ее прямое и обкатанное решение. Но всегда найдется чудик, который спросит: "А по-другому нельзя? Меня этот вариант не устраивает."

Если все диски, то можно так:

Для Номер = 0 По 25 Цикл
   Файл = Новый Файл(Символ(КодСимвола("A") + Номер) + ":\");
   Если Файл.Существует() И Файл.ЭтоКаталог() Тогда

Еще можно через wmi
http://tinyurl.com/5sbex67

Только как говориться, от добра добра не ищут...

(2) (3) есть сомнение что мой способ везде работать будет, а вариант (3) - класс
спс

ИмяКомпьютера=".";
ServiceSet=GetCOMObject("winmgmts:{impersonationLevel=impersonate}!\\"+ИмяКомпьютера+"\root\cimv2");
DrivesSet=ServiceSet.Get("Win32_DiskDrive");

   Попытка
       Items=ServiceSet.ExecQuery("Select * from Win32_DiskDrive");
   Исключение
       Сообщить(ОписаниеОшибки());
       Отказ=Истина;
       возврат;
   КонецПопытки;    
   ЛокальныеДиски.Очистить();
   Для Каждого стр Из Items Цикл
       новстр=ЛокальныеДиски.Добавить();
       новстр.Имя = стр.Name;
   КонецЦикла;

(1)(5) а теперь в веб-клиенте!

(6) веб клиент не нужен, для него (3)

(3)(5) - спасибо за отклик
тема закрыта

(6) а что, в веб-клиенте не отработает? ;)

Очень прикольно в вэбклиенте под убунтой например диски искать...