我正在尝试使用 VBScript 在 Windows XP 中安装字体。但由于某种原因，我的脚本在 Windows 7 中运行良好，但在 Windows XP 中无法运行。我需要在不重新启动系统的情况下安装字体，所以我不得不选择这种方法，而不是其他需要重新启动系统的注册表更改方法。这是我的 VBScript
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("D:\Logs\")
Set objFolderItem = objFolder.ParseName("Roboto-Italic.ttf")
objFolderItem.InvokeVerb("Install")
我的猜测是 InvokeVerb("Install") 命令在 Windows XP 中不起作用。在那种情况下，有没有其他选择？请指导我谢谢...
【问题讨论】：
标签： vbscript windows-xp
下一个脚本（代码 sn-p）应该可以在（过时的）Windows XP 上运行：
Const ssfFONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ssfFONTS)
objFolder.CopyHere "D:\Logs\Roboto-Italic.ttf"
如果字体已安装，则系统可能会提示您覆盖它。不确定是否需要使用上述方法重新启动...
见ShellSpecialFolderConstants enumeration
指定唯一的、独立于系统的值，用于标识特殊 文件夹。这些文件夹经常被应用程序使用，但 在任何给定系统上可能没有相同的名称或位置。
其中：
ssfFONTS 0x14 (20)。包含已安装字体的虚拟文件夹。一个 典型路径是C:\Windows\Fonts。
阅读Hey, Scripting Guy! How Can I Install Fonts Using a Script?：
将字体添加到文件夹后，操作系统 将立即为您安装字体...
这是真的，但有一个非常重要的警告：你必须复制 文件使用Shell对象。诚然，您可以使用WMI或FileSystemObject将文件复制到Fonts文件夹中；然而， 当您这样做时，操作系统不会自动安装 给你的字体。据我们所知，唯一的程序化方式 Windows 识别已将新字体添加到Fonts文件夹，从而让 Windows 为您安装该字体，是使用Shell对象。
【讨论】：