在.NET Framework 4.8中使用ArrayList遇到的兼容性问题

核心原因 #

这不是Windows Server 2016的“本地问题”，而是COM互操作注册逻辑在客户端系统（Windows 10）和服务器系统（Windows Server 2016）上的差异：

• VBS通过CreateObject("System.Collections.ArrayList")调用.NET类时，依赖的是.NET的COM Interop机制——系统需要把.NET类注册到COM注册表，VBS才能找到对应的CLSID并实例化。
• System.Collections.ArrayList属于旧的非泛型集合类，微软在Windows Server 2016上默认仅在启用.NET Framework 3.5时，才会将这类旧集合类的COM注册项添加到系统；而Windows 10默认会为.NET Framework 4.x自动注册这些旧类的COM互操作项，所以仅装4.8也能正常运行。
• 你的脚本用晚绑定方式调用时，Server 2016上找不到4.8版本对应的COM注册项，会自动 fallback 查找3.5版本，而3.5未启用就抛出“未安装”的错误。

可行解决方案 #

1. 手动注册.NET 4.8的mscorlib.dll到COM #

以管理员身份运行命令提示符，执行对应位数的regasm.exe命令（根据你的脚本是32位还是64位选择路径）：

# 64位系统下注册64位.NET 4.8的mscorlib
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm.exe /codebase mscorlib.dll

# 32位系统或需要32位COM支持时
C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe /codebase mscorlib.dll

注：v4.0.30319是.NET 4.x系列的核心版本目录，.NET 4.8会复用这个路径。

2. 替换为VBS原生数据结构 #

完全避免依赖.NET Framework，改用VBS原生的Scripting.Dictionary（支持键值对）或自定义数组逻辑实现类似ArrayList的功能。比如模拟动态数组：

Dim dynamicArray()
ReDim dynamicArray(-1) ' 初始化空数组

' 添加元素的函数
Sub AddElement(arr, value)
    ReDim Preserve arr(UBound(arr) + 1)
    arr(UBound(arr)) = value
End Sub

' 使用示例
Call AddElement(dynamicArray, "Item1")
Call AddElement(dynamicArray, "Item2")

3. 静默启用.NET Framework 3.5（可选，适合批量部署） #

如果必须保留ArrayList且允许启用3.5，可以用DISM命令静默安装，无需用户手动操作：

DISM /Online /Enable-Feature /FeatureName:NetFx3 /All /NoRestart

内容的提问来源于stack exchange，提问作者Ivan Serdukov