Получить аппаратный номер диска

@GIP · Регистрация: 07.04.2010

Студворк — интернет-сервис помощи студентам

Всем привет. Есть такая проблема, у меня отсутствует в VB6 файл справки VBENLR98.CHM.
В частности я хотел посмотреть в нем описание команды fso.GetDrive и fdrv.SerialNumber.
Просьба поделиться этим файлом.
Спасибо всем откликнувшимся.

@The trick · 04.05.2015, 16:54

Сообщение от GIP

The trick, после вашей дискуссии с Pro grammer какой последний вариант кода ?

Выбирай любой. В этом посте я обновил код.

@GIP · 04.05.2015, 16:56 **[ТС]**

The trick, так в итоге код работает в ХР, 7 и 8 ? (32 и 64 имеет значение ?)

и будет он работать не из под админа ?

@The trick · 04.05.2015, 17:01

Сообщение от GIP

The trick, так в итоге код работает в ХР, 7 и 8 ? (32 и 64 имеет значение ?)
и будет он работать не из под админа ?

WMI использует вариант как у меня, т.к. у Pro_grammer'а не показывается номер даже через стандартный WMI. Но у него не работает мой код, а у меня его как видишь. Коды практически одинаковые просто разные запросы, просто можешь объединить их, и если один не возвращает номер, то пробовать другой.

@GIP · 04.05.2015, 17:03 **[ТС]**

ок, всем спасибо

@GIP · 08.05.2015, 17:24 **[ТС]**

потестил сегодня код The trick, на некоторых компах с ХР не работает - выдает пустую строку

The trick, не подскажите как организовать другой запрос, о котором вы упоминали ?

загрузил код Pro_grammer'а, что интересно на VB6 он работает, а на VB5 ругается на последнюю функцию :

Private Function SwapBytes(b() As Byte) As Byte() - пишет синтаксическая ошибка.......

@Pro_grammer · 08.05.2015, 17:44

Сообщение от GIP

а на VB5 ругается на последнюю функцию :
Private Function SwapBytes(b() As Byte) As Byte()

Там вроде надо изменить на As Variant -без скобок. И не факт, что заработает в дальнейшем.
А какая причина запускать это в Vb5?Чем VB6 не угодил?

@GIP · 08.05.2015, 18:27 **[ТС]**

супер, спасибо Pro_grammer

Pro_grammer, The trick, код от Pro_grammer получается альтернатива коду от The trick ?

@The trick · 08.05.2015, 20:24

Сообщение от GIP

Pro_grammer, The trick, код от Pro_grammer получается альтернатива коду от The trick ?

Просто другой метод получения серийника.

@GIP · 08.05.2015, 20:26 **[ТС]**

попробую его на тех компах, на которых ваш код не сработал....

@GIP · 12.05.2015, 16:43 **[ТС]**

проверил сегодня код, который работает у Pro_grammer, и О УЖАС, он
тоже показал пустую строку....т.е. у меня есть комп с ХР SP3, на которой оба кода не
срабатывают....

The trick, вы говорили, что у вас есть еще один вариант вашего кода через другой запрос,
не подскажите как его организовать ?

@GIP · 15.05.2015, 20:14 **[ТС]**

проверил сегодня оба кода на 10 компах, более чем на половине оба кода выдали пустую строку....(

@The trick · 15.05.2015, 20:23

Что этот код выдает?

@GIP · 15.05.2015, 20:39 **[ТС]**

на мое компе в дебаг выдает: 31535636444a5130333333343235202020202020

@The trick · 15.05.2015, 20:40

Сообщение от GIP

на мое компе в дебаг выдает: 31535636444a5130333333343235202020202020

На компах, которые не отображали, что показывает?

@GIP · 15.05.2015, 20:41 **[ТС]**

другие компы у меня на работе....а я сейчас дома....

@The trick · 15.05.2015, 21:07

Сообщение от GIP

другие компы у меня на работе.

Так а почему ты его не испробовал то раньше?

@GIP · 15.05.2015, 21:28 **[ТС]**

как из строки item.serialNumber выдернуть значение, которое печатается в окно Immediate ?

Новые блоги и статьи Все статьи Все блоги /
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328

	Получить аппаратный номер диска 01.05.2015, 09:15. Показов 10077. Ответов 56 Метки нет (Все метки) Всем привет. Есть такая проблема, у меня отсутствует в VB6 файл справки VBENLR98.CHM. В частности я хотел посмотреть в нем описание команды fso.GetDrive и fdrv.SerialNumber. Просьба поделиться этим файлом. Спасибо всем откликнувшимся. 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	04.05.2015, 16:56 [ТС]
	The trick, так в итоге код работает в ХР, 7 и 8 ? (32 и 64 имеет значение ?) и будет он работать не из под админа ? 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	04.05.2015, 17:03 [ТС]
	ок, всем спасибо 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	08.05.2015, 17:24 [ТС]
	потестил сегодня код The trick, на некоторых компах с ХР не работает - выдает пустую строку The trick, не подскажите как организовать другой запрос, о котором вы упоминали ? загрузил код Pro_grammer'а, что интересно на VB6 он работает, а на VB5 ругается на последнюю функцию : Private Function SwapBytes(b() As Byte) As Byte() - пишет синтаксическая ошибка....... 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	08.05.2015, 18:27 [ТС]
	супер, спасибо Pro_grammer Pro_grammer, The trick, код от Pro_grammer получается альтернатива коду от The trick ? 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	08.05.2015, 20:26 [ТС]
	попробую его на тех компах, на которых ваш код не сработал.... 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	12.05.2015, 16:43 [ТС]
	проверил сегодня код, который работает у Pro_grammer, и О УЖАС, он тоже показал пустую строку....т.е. у меня есть комп с ХР SP3, на которой оба кода не срабатывают.... The trick, вы говорили, что у вас есть еще один вариант вашего кода через другой запрос, не подскажите как его организовать ? 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	15.05.2015, 20:14 [ТС]
	проверил сегодня оба кода на 10 компах, более чем на половине оба кода выдали пустую строку....( 0

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	15.05.2015, 20:23
	Что этот код выдает? 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	15.05.2015, 20:39 [ТС]
	на мое компе в дебаг выдает: 31535636444a5130333333343235202020202020 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	15.05.2015, 20:41 [ТС]
	другие компы у меня на работе....а я сейчас дома.... 0

@GIP 5 / 5 / 0 Регистрация: 07.04.2010 Сообщений: 328
	15.05.2015, 21:28 [ТС]
	как из строки item.serialNumber выдернуть значение, которое печатается в окно Immediate ? 0