企业官网建设流程全解析

1. 先搞清"改图标"改的是哪一层，别急着敲代码

我最早接触VBS 图标更改，是因为自己写了一个本地跑的小工具——几个 .vbs 加一个批处理，丢在 D 盘目录里，双击运行没问题，但桌面上那个快捷方式顶着系统默认的白纸图标，跟一堆正经软件摆在一起，看着就别扭。当时第一反应是打包成 exe，试了两个打包器，体积从几 KB 涨到十几 MB，还要处理运行时依赖，为了一个图标不值当。后来才想明白：图标不是程序的属性，是快捷方式的属性，用 VBS 直接改 .lnk 文件里的图标引用就行，几行代码的事。

这里先澄清一个概念。标题里的"小程序"，我指的是我们自己写的、体量很小的本地工具——可能是几个 VBS 脚本，可能是一个绿色版小 exe，也可能是套了层壳的批处理。这类东西没有安装包、没有注册表项、没有独立的资源段，所以没法像正规软件那样"换个图标重新编译"。它能被系统识别成一个"可点击的入口"，靠的完全是桌面或开始菜单里那个 .lnk 快捷方式。改图标，本质上就是改这个 .lnk 里的一段字符串。

这篇内容适合三类人看：手里有一堆自写脚本、想让桌面整齐一点的；需要给同事分发小工具、希望它看起来"像个正经软件"的；以及被"图标改了不生效""图标变白纸"折腾过、想搞清楚底层逻辑的。前两类照着抄就能用，第三类建议从第 2 节开始看原理。

1.1 VBS 能改的三类图标，落点完全不同

很多人一上手就懵，是因为没分清"改的是哪个对象的图标"。同样是桌面上的一个东西，背后的机制差了十万八千里：

绝大多数场景落在第一行：改快捷方式。这是最安全、最可逆、最容易批量化的路径，也是我日常用得最多的。第二行改文件夹图标，适合给项目目录做视觉区分，但要注意desktop.ini会被某些清理工具当成垃圾删掉。第三行改 exe 本体图标，VBS 真做不到——它没有二进制资源编辑能力，硬要用 VBS 去拼字节流改 PE 结构，属于自找麻烦，老老实实用专门的资源编辑工具。第四行改文件关联图标，能写但极不建议，一旦写错会导致整类文件打不开，普通场景完全用不上。

提示：如果你只是想让自己的小工具在桌面上有个好看的脸，99% 的情况只需要动第一行。别一上来就去研究注册表，那是给自己挖坑。

1.2 VBS 改不了什么，别在这上面浪费时间

这一点必须说透，因为我在群里见过太多人卡在这儿。VBS 的能力边界非常清晰：它能操作 COM 对象暴露出来的接口，WScript.Shell提供了CreateShortcut，所以快捷方式随便改；Shell.Application提供了命名空间遍历，所以能拿到文件夹项；但它没有提供任何"写 PE 资源段"的接口。

具体来说，下面这几件事用 VBS 做不了或者做不好：

• 修改 exe 文件内部图标：需要解析 PE 头、定位.rsrc段、重写资源目录。VBS 没有字节流操作能力，只能靠ADODB.Stream拼凑，代码量爆炸且极易损坏文件。
• 直接生成 .ico 文件：.ico 是有固定结构的容器格式（ICONDIR + ICONDIRENTRY + 位图数据），VBS 勉强能写单色小图标，但做不了带 alpha 通道的多尺寸 ico，实用性为零。
• 改任务栏固定项图标：任务栏固定项存在%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar下，本质也是 .lnk，能改，但改完必须重启资源管理器才刷新，而且改错了会导致固定项消失。
• 给 UWP 应用换图标：那套是包清单控制的，跟 .lnk 完全没关系。

我个人的判断标准很简单：如果这个图标是"某个 .lnk 文件里的一行字符串"，VBS 就是最优解；如果它藏在某个二进制文件里，换工具。

1.3 图标文件本身的门槛：ico 的尺寸与索引

写代码之前，先把素材准备好。很多人改完图标发现显示成一小块马赛克或者直接白纸，八成是 ico 文件本身有问题，而不是代码写错了。

一个合格的 .ico 不是"把 png 改个后缀"，它是多尺寸位图的容器。系统在不同位置会挑不同尺寸来渲染：桌面大图标用 256 或 128，列表视图用 32，标题栏用 16，高 DPI 屏还会挑 48 甚至 64。如果你的 ico 里只有一个 256 尺寸，系统缩放到 16 时会糊成一团；如果只有 16，放大到桌面大图标就是马赛克。

我给自己的小工具准备 ico 的固定清单：

制作方式上，我一般用现成的图标编辑工具把一张 1024 的源图导出成多尺寸 ico，导出时勾选"包含 256 PNG 压缩"，这能显著减小文件体积（未压缩的 256 位图单张就 256KB）。

另一个必须理解的概念是索引号。IconLocation的完整格式是路径,索引。如果路径指向 .ico 文件，索引永远是 0——ico 内部虽然有多张图，但它们是一个整体，不按索引切换。如果路径指向 .exe 或 .dll，索引才真正起作用，从 0 开始按资源段里图标组的顺序编号。比如%SystemRoot%\System32\shell32.dll,3取的是这个系统图标库里的第 4 个图标。

注意：索引号从 0 开始，不是从 1。写成,1拿到的是第二个图标，新手最常见的错误就是想要第一个却写了,1。另外索引超出范围不会报错，只会显示成空白，排查时容易误判成路径问题。

2. 核心原理：IconLocation 是怎么被记住的

要改得稳，得知道改的东西存在哪。快捷方式文件（.lnk）是微软定义的一种二进制格式，内部是一串"项目"（Item）的集合，每个项目带一个 ID 和一段数据。图标信息存在EnvironmentVariableDataBlock或者IconEnvironmentDataBlock里，简单说就是一段纯文本字符串，格式是路径,索引。

WScript.Shell.CreateShortcut这个方法的聪明之处在于：它把这个二进制解析封装掉了，你拿到的Shortcut对象上直接有IconLocation属性，读出来是字符串，写进去也是字符串，最后调用Save它再把字符串序列化回去。所以整个改图标流程就是三步：打开、改属性、保存。

2.1 加载-修改-保存三步走，但"加载"有陷阱

标准写法是这样：

Option Explicit Dim sh, fso, lnkPath, sc Set sh = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") lnkPath = sh.SpecialFolders("Desktop") & "\我的小工具.lnk" ' 关键：先判断文件是否存在 If Not fso.FileExists(lnkPath) Then WScript.Echo "找不到快捷方式：" & lnkPath WScript.Quit 1 End If Set sc = sh.CreateShortcut(lnkPath) sc.IconLocation = "D:\Tools\icons\mytool.ico,0" sc.Save WScript.Echo "图标已更新"

看起来很简单，但CreateShortcut有个非常坑的行为：如果传入的路径不存在，它不会报错，而是返回一个空白的 Shortcut 对象。这时候你如果直接改IconLocation然后Save，它会在那个路径上新建一个"只有图标、没有目标"的坏快捷方式——双击提示"找不到项目"，原本好好的一堆桌面图标就这么被覆盖了。

我第一次踩这个坑是自己写批量脚本时，路径拼接多用了一个反斜杠，结果桌面上 20 多个快捷方式全变成白纸、全部失效，只能一个个重建。从那以后，我所有涉及CreateShortcut的脚本第一件事就是FileExists判断，这个习惯值 20 个快捷方式。

还有一种情况要区分：你是要"改"还是要"建"。改，必须先判断存在；建，先判断不存在再走新建流程，避免覆盖用户已有的同名快捷方式。这两种逻辑不要混在一个分支里，否则很容易写出"不管有没有都覆盖"的脚本。

2.2 图标字符串的两种写法，以及路径里的那些坑

IconLocation的字符串形态只有两种：

第一种，指向 ico 文件：D:\Tools\icons\mytool.ico,0。这种最灵活，ico 放哪都行，改图标不动程序本体。缺点是路径依赖——换个电脑、挪个目录，图标立刻失效，变成白纸。

第二种，指向 exe / dll 的资源：%SystemRoot%\System32\shell32.dll,3或者D:\Tools\mytool.exe,0。这种的好处是路径稳定（系统库永远在那儿），坏处是只能用现成的图标资源。我经常用它来给一些临时脚本配系统图标，比如给"清理脚本"配个垃圾桶、给"配置脚本"配个齿轮，省得自己找图。

系统自带的图标库我常用的有几个：shell32.dll（经典图标集合，几百个）、imageres.dll（新式图标，Win10 之后主力）、DDORes.dll（设备和驱动器图标）、%SystemRoot%\explorer.exe（文件夹类图标）。想快速浏览这些库里的图标，最简单的办法是把 dll 拖进资源查看工具，或者干脆写个小 VBS 循环改索引看效果——我早期就是这么干的，写个脚本每隔 3 秒把某个快捷方式的索引 +1，肉眼扫一遍。

关于路径，有几个真实的坑：

• 不要加引号。整个IconLocation是路径,索引的拼接，系统按最后一个逗号切分。你在路径外面套一对引号，引号会被当成路径的一部分，图标直接失效。
• 路径里不要有逗号。虽然理论上系统是从右往左找逗号，但不同版本行为不完全一致，我建议 ico 文件名干脆只用字母数字下划线。
• 路径要绝对。相对路径在不同工作目录下解析结果不同，WorkingDirectory一变就废。脚本里要么写死绝对路径，要么用fso.GetParentFolderName(WScript.ScriptFullName)动态算出来。
• %SystemRoot%这类环境变量可以用，但只在部分场景下会被展开，稳妥起见脚本里先sh.ExpandEnvironmentStrings("%SystemRoot%")展开再拼。

2.3 为什么改完还是老样子——图标缓存这层

这是被问到最多的问题：代码没报错，IconLocation读出来也对，但桌面上还是老图标。原因几乎 100% 是图标缓存没刷新。

系统为了加速桌面渲染，会把每个图标渲染好的位图缓存起来，存在几个地方：老版本是单个IconCache.db，Win10 之后改成%LocalAppData%\Microsoft\Windows\Explorer\下一堆iconcache_*.db，按尺寸分文件。资源管理器启动时读这个缓存，后续没有重绘事件就不会重新去解析 .lnk。

所以改完图标之后，需要一个"通知系统重新读"的动作。我手头有四级方案，从轻到重：

1. F5 刷新当前目录。最轻，对刚改的单个快捷方式有效，但对任务栏、开始菜单无效。
2. ie4uinit.exe -show。这是个系统自带的小工具，Win10 1809 之后可用，作用是通知 shell 重新加载图标缓存。VBS 里一行sh.Run "ie4uinit.exe -show", 0, True搞定，静默执行不弹窗，我日常首选。
3. 重启资源管理器。taskkill /f /im explorer.exe然后start explorer.exe。有效但粗暴，所有打开的文件夹窗口会被关掉，用户会骂人。只在脚本末尾做"最后一步"时才用，并且一定要先弹确认。
4. 删缓存文件再重启。删iconcache_*.db需要先结束资源管理器进程，否则文件被占用。这是核武器级别，只有缓存彻底损坏、图标大面积错乱时才用。

提示：ie4uinit.exe -show在某些精简版系统上可能不存在或者不生效，脚本里要加个FileExists判断，找不到就直接跳过，别让它报错中断整个流程。

3. 实操：从零写一个能用的改图标脚本

下面这套代码是我实际在用的版本，从最简单的改单个快捷方式，一路加到批量处理和小工具形态。建议按顺序看，每一版都在上一版基础上加东西，也能看清每一步为什么这么写。

3.1 环境和编码：这两个细节能省掉一半玄学问题

先说环境。VBS 不需要安装任何东西，系统自带脚本宿主，双击 .vbs 文件默认由wscript.exe执行（弹窗交互），命令行下用cscript.exe 文件名.vbs执行（输出到控制台）。调试阶段我强烈建议用 cscript，WScript.Echo的内容直接打在命令行里，比弹一堆窗快得多。

然后是编码，这是新手最容易栽的地方。VBS 文件默认按系统 ANSI 代码页解析，中文环境下就是 GB2312/GBK。如果你用现代编辑器默认的 UTF-8 保存，脚本里的中文路径、中文提示全变乱码，表现出来就是"路径明明对着却提示找不到文件"。解决办法有两个：

• 编辑器里另存为时明确选ANSI编码（不是 UTF-8，也不是"UTF-8 with BOM"）。
• 或者脚本里完全不用中文：路径用变量拼接、提示用英文。我个人偏向第二种，尤其是要分发给别人的脚本，能避开对方系统区域设置不同导致的问题。

还有一个细节：脚本文件路径里如果有空格，双击运行没问题，但从命令行调用要记得加引号，或者用短路径。

3.2 第一版：改一个已存在的快捷方式

先来个最小可用版本，只做一件事——把指定快捷方式的图标换掉，并且带完整的错误检查。

Option Explicit Dim sh, fso, lnkPath, icoPath, sc Set sh = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") ' 快捷方式放在桌面，名字叫"我的小工具" lnkPath = sh.SpecialFolders("Desktop") & "\我的小工具.lnk" ' ico 放在脚本同目录的 icons 子目录下 Dim scriptDir scriptDir = fso.GetParentFolderName(WScript.ScriptFullName) icoPath = scriptDir & "\icons\mytool.ico" ' 三重检查，缺一不可 If Not fso.FileExists(lnkPath) Then WScript.Echo "快捷方式不存在，先手动建一个再跑：" & lnkPath WScript.Quit 1 End If If Not fso.FileExists(icoPath) Then WScript.Echo "图标文件不存在：" & icoPath WScript.Quit 2 End If Set sc = sh.CreateShortcut(lnkPath) ' 防御性检查：如果读不到目标路径，说明 lnk 本身可能损坏 If sc.TargetPath = "" Then WScript.Echo "快捷方式已损坏，目标路径为空，建议删除重建" WScript.Quit 3 End If sc.IconLocation = icoPath & ",0" sc.Save ' 通知 shell 刷新 sh.Run "ie4uinit.exe -show", 0, True WScript.Echo "完成。如果桌面还是老图标，按 F5 刷新一下。"

这段代码里有三个设计意图值得说：

第一，路径全部动态算。SpecialFolders("Desktop")拿到真实桌面路径（云同步目录重定向桌面时它会返回重定向后的路径，这是硬编码C:\Users\xxx\Desktop做不到的），ScriptFullName拿到脚本自身位置，ico 相对脚本定位。整套东西拷到任何机器上，只要目录结构不变就能直接跑。

第二，TargetPath的空值检查。这是我加的保险。有些 .lnk 被某些工具改过之后结构不完整，CreateShortcut能加载但读不出目标，这时候再Save一次会把损坏状态固化，还不如直接提示用户删了重建。

第三，Run的第二个参数是 0。0 表示隐藏窗口，执行ie4uinit时不会闪一个黑框出来，观感上更像"正经程序"。第三个参数True表示等待执行完毕，确保刷新动作完成后再输出提示。

跑通这一版，你就掌握了改图标的核心。剩下的都是围绕它做工程化。

3.3 第二版：新建一个带自定义图标的快捷方式

更多时候我面对的是"还没有快捷方式"的场景——脚本刚拷到新机器上，桌面上什么都没有。这时候要把新建和配图标一起做掉。

Option Explicit Dim sh, fso, lnkPath, icoPath, targetVbs, sc, scriptDir Set sh = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") scriptDir = fso.GetParentFolderName(WScript.ScriptFullName) lnkPath = sh.SpecialFolders("Desktop") & "\我的小工具.lnk" icoPath = scriptDir & "\icons\mytool.ico" targetVbs = scriptDir & "\main.vbs" If Not fso.FileExists(targetVbs) Then WScript.Echo "主脚本不存在：" & targetVbs WScript.Quit 1 End If ' 已经存在就不覆盖，避免冲掉用户自己调过的设置 If fso.FileExists(lnkPath) Then WScript.Echo "桌面已有同名快捷方式，跳过创建" WScript.Quit 0 End If Set sc = sh.CreateShortcut(lnkPath) ' 目标设成 wscript.exe，把 vbs 当参数传 sc.TargetPath = sh.ExpandEnvironmentStrings("%SystemRoot%") & "\System32\wscript.exe" sc.Arguments = """" & targetVbs & """" sc.WorkingDirectory = scriptDir sc.WindowStyle = 1 ' 1=正常窗口 3=最大化 7=最小化 sc.Description = "本地小工具集合" sc.IconLocation = icoPath & ",0" sc.Save sh.Run "ie4uinit.exe -show", 0, True WScript.Echo "快捷方式已创建"

这里最关键是TargetPath和Arguments的配合。VBS 脚本本身不是可执行文件，不能直接当TargetPath。两种做法：

做法一（上面这种）：目标指向wscript.exe，参数传脚本完整路径。优点是双击时窗口行为可控（WindowStyle生效），缺点是任务栏上会显示成"Windows Script Host"，标题不太好看。

做法二：目标直接指向 .vbs 文件路径。系统会关联到脚本宿主，能跑，但WindowStyle就不一定生效了，而且某些环境下双击可能被安全软件拦。

我一般用做法一，因为WindowStyle能设成最小化（7），脚本运行时不会弹一个黑框或者大窗口，观感更好。Arguments里的双引号是给路径加引号——如果路径含空格，不加引号wscript.exe会把路径按空格切开当成多个参数，直接报"找不到脚本文件"。

还有个细节：WorkingDirectory一定要设。如果不设，脚本里所有相对路径都会按wscript.exe所在目录（也就是系统目录）解析，你的脚本读个配置文件就找不到。设成脚本所在目录，行为才符合直觉。

注意：WindowStyle设成 0（隐藏）会有个副作用——如果脚本运行中需要弹 MsgBox，窗口可能显示不出来，看起来像卡死。除非你的脚本完全静默，否则别用 0。

3.4 第三版：给文件夹换图标，desktop.ini 的正确写法

文件夹图标是另一套机制。目录本身在文件系统里没有"图标"这个属性，资源管理器显示文件夹图标时，会去读目录下的desktop.ini，看里面有没有IconResource配置。

完整流程是三步，缺一不可：

1. 在目标目录下创建desktop.ini，写入图标配置；
2. 把desktop.ini设成"隐藏 + 系统"属性；
3. 把目标文件夹本身设成"系统"属性（这一步最容易被漏掉，漏了就不生效）。

Option Explicit Dim sh, fso, folder, iniPath, icoPath, f Set sh = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") folder = "D:\项目资料" icoPath = "D:\Tools\icons\folder.ico" iniPath = folder & "\desktop.ini" If Not fso.FolderExists(folder) Then WScript.Echo "目录不存在：" & folder WScript.Quit 1 End If ' 第三个参数 True 表示 Unicode 写入，路径含中文时更稳妥 Set f = fso.CreateTextFile(iniPath, True, True) f.WriteLine "[.ShellClassInfo]" f.WriteLine "IconResource=" & icoPath & ",0" f.WriteLine "IconFile=" & icoPath f.WriteLine "IconIndex=0" f.WriteLine "InfoTip=项目资料，勿删" f.Close ' 先设 ini 的隐藏+系统属性 sh.Run "attrib +s +h """ & iniPath & """", 0, True ' 再设目录的系统属性，顺序不能反 sh.Run "attrib +s """ & folder & """", 0, True ' 让资源管理器重新读这个目录 sh.Run "ie4uinit.exe -show", 0, True WScript.Echo "文件夹图标已设置"

几个必须解释的点：

为什么[.ShellClassInfo]里要写四行。IconResource是主配置，格式和IconLocation一样。IconFile和IconIndex是老版本兼容用的，某些系统上只认这两个。多写两行不亏。InfoTip是鼠标悬停时显示的提示文字，顺手加上体验更好。

为什么属性顺序不能反。先设 ini 的属性和先设目录的属性，效果上没差，但有个坑：如果目录已经是系统属性，你在里面新建文件，某些清理工具会立刻把它当系统文件删掉。所以我的习惯是先写好 ini、设好隐藏，最后一步才给目录加系统属性。

为什么用attrib而不是 fso 的Attributes属性。fso 的Attributes确实能设，但它是"覆盖式"而非"追加式"——直接设成 6（隐藏+系统）会丢掉目录原有的其它属性。attrib +s是追加式的，更安全。这里Run的第三个参数用True等待完成，确保属性设好了再走下一步。

Unicode 参数。CreateTextFile的第三个参数True表示 UTF-16 LE 写入，这对含中文路径的IconResource是必须的。如果用 ANSI 写，中文路径会变乱码，图标不生效。实测下来这一步是文件夹图标失败率最高的原因。

3.5 第四版：做成能批量跑的小工具

到这一步，核心能力都有了，剩下是把它包成"像个软件"的形态。我的做法是：配置外置、支持批量、带简单交互。

配置文件我用一个同目录的文本文件，每行一条规则，格式快捷方式名|ico相对路径|索引：

Option Explicit Dim sh, fso, scriptDir, cfgPath, cfgFile, line, parts Dim lnkName, icoRel, idx, lnkPath, icoPath, sc, okCount, failCount Set sh = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") scriptDir = fso.GetParentFolderName(WScript.ScriptFullName) cfgPath = scriptDir & "\icons.cfg" If Not fso.FileExists(cfgPath) Then WScript.Echo "缺少配置文件：" & cfgPath WScript.Quit 1 End If okCount = 0 failCount = 0 Set cfgFile = fso.OpenTextFile(cfgPath, 1, False, -1) ' -1 = Unicode Do Until cfgFile.AtEndOfStream line = Trim(cfgFile.ReadLine) ' 跳过空行和注释行 If Len(line) > 0 And Left(line, 1) <> "#" Then parts = Split(line, "|") If UBound(parts) >= 2 Then lnkName = Trim(parts(0)) icoRel = Trim(parts(1)) idx = Trim(parts(2)) lnkPath = sh.SpecialFolders("Desktop") & "\" & lnkName & ".lnk" icoPath = scriptDir & "\icons\" & icoRel If fso.FileExists(lnkPath) And fso.FileExists(icoPath) Then Set sc = sh.CreateShortcut(lnkPath) If sc.TargetPath <> "" Then sc.IconLocation = icoPath & "," & idx sc.Save okCount = okCount + 1 Else failCount = failCount + 1 End If Else failCount = failCount + 1 End If End If End If Loop cfgFile.Close sh.Run "ie4uinit.exe -show", 0, True WScript.Echo "处理完成：成功 " & okCount & " 个，跳过/失败 " & failCount & " 个" If failCount > 0 Then WScript.Echo "失败项通常是快捷方式或 ico 文件路径不对，对照上面输出逐个检查" End If

这一版的价值在于规则和代码分离。以后想加一个快捷方式，只需要在icons.cfg里加一行，不用动脚本。配置文件用 Unicode 读（OpenTextFile第四个参数-1），中文路径也不会乱。

批量处理还有两个经验值得记：

一是加注释行支持。以#开头的行跳过，这样配置文件过半年自己还看得懂。二是统计成功失败数，别默默跑完。批量脚本最怕的就是"看起来跑了，其实一条都没生效"，有个数字对比心里才有底。

4. 常见问题与排查实录

下面这些几乎全是我自己或者身边人真实踩过的，按出现频率排序。

4.1 图标显示成白纸、空白方块或不刷新

症状是快捷方式还在，能双击打开，但图标是个白纸（小文件空白图标）。分三种成因，排查顺序不能乱。

第一种：ico 文件本身有问题。先单独验证 ico——右键快捷方式、属性、更改图标、浏览到那个 ico 文件，看能不能正常预览。预览不出来就是文件问题，通常是：扩展名改的假 ico、尺寸只有 256 缺小尺寸、ico 内部位图用了系统不支持的压缩格式。解决办法是用图标工具重新导出，勾选多尺寸。

第二种：路径写错。把IconLocation读出来，直接粘到资源管理器地址栏回车，能打开就说明路径对；打不开就是路径问题。常见错法是路径里有多余空格、把,0拼进了路径、用了相对路径。

第三种：缓存没刷新。前两种都排除了，就是缓存。依次试 F5、ie4uinit.exe -show、重启资源管理器。还不行就走核武器：结束资源管理器进程，删掉%LocalAppData%\Microsoft\Windows\Explorer\下的iconcache_*.db，再启动资源管理器。这一步会让所有图标重建，第一次打开桌面会有几秒钟卡顿，正常现象。

4.2 路径含空格、中文、特殊字符的连环坑

空格：sh.Run执行attrib时路径必须加引号。我上面的代码里""" & iniPath & """这种三层引号看着丑，但它就是 VBS 表达"字符串里带引号"的唯一方式——外层引号是字符串边界，中间两个引号转义成一个字面引号。

中文：三个地方要检查。脚本文件本身是不是 ANSI 保存；CreateTextFile写 desktop.ini 时有没有用 Unicode 参数；如果走命令行，控制台代码页跟脚本编码是否一致（chcp命令能看到）。我遇到过最诡异的一次是脚本里中文没问题，但attrib那行的中文路径传到命令行时被代码页转成了问号，最后改成了先用fso.GetShortPath拿短路径（8.3 格式，纯 ASCII）再传给attrib，绕过去了。

逗号：ico 文件名和路径里绝对不要有逗号。系统解析IconLocation时按逗号切分，路径里有逗号会被切断，取到半截路径。

网络路径：\\服务器\共享\icon.ico这种可以写，但每次渲染图标都要走网络，桌面加载会明显变慢，网络一断图标全变白纸。我建议 ico 一律放本地，需要分发的就跟着脚本目录走。

4.3 双击没反应、被安全软件拦、静默失败

双击 .vbs 没任何反应，先看任务管理器里有没有wscript.exe进程——有进程没窗口，说明脚本在跑但卡住了，大概率是MsgBox后面没关或者有个死循环。没有进程，说明被拦了。

安全软件拦截 .vbs 现在是常态，因为脚本确实常被滥用。我的处理方式是：分发给别人时不直接给 .vbs，给一个批处理包着，批处理里用cscript //nologo调脚本，这样至少能看见输出。另外脚本里任何"写注册表""改系统设置"的操作，都会显著提高拦截概率——改快捷方式图标本身是很温和的操作，一般不拦。

还有一种静默失败：脚本里用了On Error Resume Next但没写Err.Number检查，错误被吞了，看起来跑完了其实什么都没做。我的原则是只在明确知道可能出错且能处理的地方用On Error Resume Next，用完立刻On Error GoTo 0恢复，别整段包起来。

4.4 换台电脑图标就全丢

这是 ico 用绝对路径的必然结果。三种解法，按推荐度排：

解法一：ico 跟着脚本走。所有 ico 放脚本同目录的icons子目录，脚本里用ScriptFullName算路径。整套目录拷走，图标跟着走。这是我现在的标准做法。

解法二：用系统图标库。%SystemRoot%\System32\shell32.dll,索引这种，任何机器上都有，永远不会丢。缺点是没法定制，只能用现成图标。

解法三：分发时重新生成快捷方式。把"建快捷方式 + 设图标"做成脚本的一部分，用户第一次运行时自动创建，路径按当时环境算。这个最彻底，代价是用户得多跑一次。

还有个小情况：即使 ico 路径有效，如果 ico 被放在一个会被清理工具扫描的临时目录，过几天图标也会变白纸。所以别偷懒放%TEMP%。

4.5 问题速查表

5. 延伸：把 VBS 当成轻量分发器来用

这一段不是必需，但对经常要给别人发小工具的人有用。我用 VBS 改图标改久了，慢慢发现它其实可以承担更多"安装器"的职责——建快捷方式、配图标、建目录、写配置，一个脚本全包了，比打包成 exe 轻太多。

5.1 目录结构约定，是整套东西能挪的前提

我现在所有小工具都遵循同一套目录结构：

我的小工具\ ├── main.vbs 主脚本 ├── setup.vbs 初始化（建快捷方式、配图标） ├── icons\ │ ├── mytool.ico │ └── folder.ico ├── config\ │ └── icons.cfg └── logs\

setup.vbs就是前面第二版那个建快捷方式的脚本，稍微扩展一下，加上"建 logs 目录""检查 config 是否存在"这些。用户拿到压缩包解压，双击setup.vbs，桌面上就多一个带自定义图标的入口。

这套约定的好处是路径全部可推导。ScriptFullName往上取一级是根目录，往下拼icons就是图标目录，不需要任何硬编码。挪到任何盘符、任何层级的目录下都能跑。我甚至用它给一个放在移动硬盘里的小工具做过，插到任何电脑上跑一次 setup，桌面就有入口。

还有一点：setup.vbs里所有路径拼接都用fso.BuildPath而不是手动拼& "\" &。BuildPath会自动处理尾部反斜杠，避免出现D:\Tools\\icons这种双斜杠——虽然系统一般能容错，但拼到attrib命令里偶尔会出幺蛾子。

5.2 静默运行与参数化，让脚本能被别的脚本调用

setup.vbs如果每次跑都弹一堆WScript.Echo，批量部署时会很烦。这时候靠WScript.Arguments做开关。

Dim silent silent = False Dim i For i = 0 To WScript.Arguments.Count - 1 If LCase(WScript.Arguments(i)) = "/s" Then silent = True Next Sub Say(msg) If Not silent Then WScript.Echo msg End Sub

调用时cscript //nologo setup.vbs /s就完全静默，只在退出码里体现结果。WScript.Quit 0表示成功，非 0 表示不同类别的失败，外层批处理可以据此判断。

我用这个模式做过一个"一键部署"场景：一个批处理顺序调用三个 VBS，第一个建目录、第二个建快捷方式配图标、第三个写初始配置，任何一步返回非 0 就停下来提示。整个部署过程三秒钟，用户看到的就是桌面多了个图标。

还有个小技巧：VBS 里可以用WScript.ScriptName拿到自己的文件名，WScript.ScriptFullName拿全路径，用它拼日志文件名，多个脚本的日志就不会互相覆盖。

5.3 什么时候该果断放弃 VBS

最后说点反向的话。VBS 在这个场景里很顺手，但它确实是个老技术，有些地方不该硬撑：

• 需要图形界面配置。VBS 只有InputBox和MsgBox两个交互原语，做个带预览的图标选择器根本不现实。这种情况我直接换成一个简单的 HTML 页面 + 本地脚本，或者干脆用带 GUI 的脚本语言重写。
• 需要处理大量文件。VBS 循环几千个文件时性能很难看，尤其是每个文件都调一次CreateShortcut。这种场景用 PowerShell 或者别的更快。
• 需要长期维护的正式工具。VBS 没有模块化、没有像样的错误堆栈、调试全靠Echo。一次性脚本用它没问题，要长期迭代的东西趁早换。
• 目标机器上脚本宿主被策略禁用。这个在企业环境里不罕见，wscript.exe被策略挡住的话，VBS 整个方案直接报废，得换编译型方案。

我的判断标准是：一次性、轻量、路径操作类的小任务，VBS 是最省事的选择；一旦涉及界面、性能、长期维护，立刻换。改图标这件事恰好完美落在"最省事"那一格里——几行代码、零依赖、任何系统都能跑。

真正让我坚持用它的原因，其实是失败成本低。改错了最多是一个快捷方式图标难看，点两下就恢复；不像改注册表、改系统设置，一失手要重装。所以我给别人的建议一直是：想练手脚本，从改图标开始最安全，你能完整走一遍"读文件、判断、写属性、刷新缓存、验证结果"的流程，这套流程放到任何自动化任务里都通用。我自己就是从这几行改图标代码开始，慢慢摸清了 COM 对象、路径处理、错误检查这些东西的门道。