Произошла исключительная ситуация (0x800a0047)
что это за ошибка?
Происходит когда сравниваю серийный номер устройств со строкой которая содержит нужный серийник
СОМОбъект: "Scripting.FileSystemObject"
Через попытку перехватывайте!
У вас или картридер или CD-rom.
А можно просто сначала проверить флаг Ready, если он есть, а потом уже читать серийник.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший