[Iska]

xsxPeguckAxsx, что мешало просто развернуть через групповую политику Platform SDK Redistributable: CAPICOM?

Два объекта FSO:

Код:

Dim fso1: Set fso1 = CreateObject("Scripting.FileSystemObject")
Dim fso2: Set fso2 = CreateObject("Scripting.FileSystemObject")

излишне.

Проверять регистрацию лучше банальной попыткой создания требуемого объекта и обработкой ошибки, в случае неудачи.