用VBS在桌面创建一个记事本的快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("AllUsersDesktop") '在桌面创建一个快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\记事本.lnk") '快捷方式名称
oShellLink.TargetPath = "C:\WINDOWS\NOTEPAD.EXE" '目标
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" '快捷键
oShellLink.IconLocation = "C:\WINDOWS\NOTEPAD.EXE, 0" '图标
oShellLink.Description = "" '备注
oShellLink.WorkingDirectory = "C:\WINDOWS\" '起始位置
oShellLink.Save '创建保存快捷方式