xsxPeguckAxsx, что мешало просто развернуть через групповую политику
Platform SDK Redistributable: CAPICOM?
Два объекта FSO:
Код:
Dim fso1: Set fso1 = CreateObject("Scripting.FileSystemObject")
Dim fso2: Set fso2 = CreateObject("Scripting.FileSystemObject")
излишне.
Проверять регистрацию лучше банальной попыткой создания требуемого объекта и обработкой ошибки, в случае неудачи.
