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