Собственно сабж...
Через FileSystemObject не предлагать :)

Win32_DiskPartition?

(0) почему не предлагать ?

(2) Linux

только методами 1С никак ЕМНИП

(2) на некоторых клиентах ФСО не "установлено" что ли так сказать, причину знаю, библиотека отказывается регистрироваться, scripten - отказывается устанавливаться.

(5) перебрать в попытке все диски

(6) мне нужно серийник диска посмотреть, тип диска и метку прочитать...

(7) из 1С? нафига?

(8) нужно прочитать данные с флешки с определенным серийником и меткой

опять защищаемся?

(10) ну можно и так сказать..

через реестр прочитай

(9) тебе ещё в (2) ответили
WMI
http://www.script-coding.info/WMI_FileSystem.html

Если без wmi можно через net share извратиться

(9) да читаю уже, в (1)
спасибо за ссылку,

(14) или поймать вывод diskpart  в текстовый файлик

(16) Забыл о нем совсем, да через файлик с сценарием

cmd /v:on /c "echo off & for /l %i in (0,1,25) do (set letter=qwertyuiopasdfghjklzxcvbnm & dir !letter:~%i,1!:\ 2> nul > nul && echo !letter:~%i,1!:)"

сразу и доступные на чтение

вот тут все разжевали http://www.sql.ru/forum/actualthread.aspx?tid=343844

(19) FileSystemObject у ТС не работает

в восьмерке еще упростится код


//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.Eval("Перечисление=function(x){return new Enumerator(x)}");
   Это=Скрипт.Eval("this");
   Шел=СоздатьОбъект("shell.application");
   Компьютер=Шел.namespace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}");
   Темы=Компьютер.items();
   Темы.Filter(2048,"*");
   Что=Это.Перечисление(Темы);
   Пока Что.atEnd(0)=0 Цикл
       Сообщить(Что.item(0).Path + " -> " + Что.item(0).Name);
       Что.moveNext(0);
   КонецЦикла;
КонецПроцедуры


+ если нет уверенности в постоянстве этой фигни - "20D04FE0-3AEA-1069-A2D8-08002B30309D" - могу рассказать, как до нее добраться - код не намного увеличится
(а если восьмерка может передать интеджер, то еще просче)

//всем спасибо за участие
//вот что получилось
МеткаДиска = "000000";
   ServicesSet = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2");
   СписокФлешДисков = ServicesSet.ExecQuery("Select Name,VolumeName,VolumeSerialNumber from Win32_LogicalDisk WHERE VolumeSerialNumber like '"+МеткаДиска+"'");
   Если СписокФлешДисков.Count>0 Тогда
   Для Каждого ФлешДиск Из СписокФлешДисков Цикл
       Попытка
           Сообщить(ФлешДиск.Name);
           Сообщить(ФлешДиск.VolumeName);
           Сообщить(ФлешДиск.VolumeSerialNumber);
       Исключение
           Продолжить;
       КонецПопытки;
   КонецЦикла;
   КонецЕсли;

Это же так можно и "не обнаружен ключ защиты" для посторонних эмульнуть :)

+(21) к (23)

   Шел=СоздатьОбъект("shell.application");
   Компьютер=Шел.namespace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}");
   Темы=Компьютер.items();
   Темы.Filter(2048,"*");
   Для Каждого Диск Из Темы
       Сообщить(Диск.Path + " -> " + Диск.Name);
   КонецЦикла;


(25)Пригодится, спасибо!