如何在VBA中检测Scripting Runtime（scrrun.dll）是否可用

结论 #

你编写的这段代码完全可以满足检测需求，可直接使用。

逻辑原理 #

• 调用CreateObject("Scripting.FileSystemObject")时会尝试加载scrrun.dll对应的COM组件，只要组件被系统禁用、未正确注册、对应文件缺失，该调用都会抛出自动化错误
• 配合On Error Resume Next捕获错误后，判断对象变量是否为空，即可直接确认Scripting Runtime是否可正常调用，逻辑覆盖所有无法使用该组件的场景，完全适配你遇到的客户异常排查需求

可直接复用的检测代码 #

Dim fso As Object

On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
On Error Goto 0

If fso Is Nothing then _
  MsgBox "Scripting runtime is not available on this system."

可选优化（按需使用） #

如果需要进一步区分「组件被管理员手动禁用」和「组件未注册/文件缺失」两类场景，可以额外增加注册表项检查逻辑，但绝大多数业务场景下不需要做这类细分，现有代码已经完全满足可用性判断的需求。

内容的提问来源于stack exchange，提问作者John Doe