设置快捷方式

shortcut.vbs

Option Explicit


Dim wshShell, shortcut
Dim lnkpath, targetpath

' 生成的快捷方式文件路径， 必须是.lnk结尾
lnkpath = WScript.Arguments(0)
' 目标文件路径
targetpath = WScript.Arguments(1)

WScript.Echo lnkpath
WScript.Echo targetpath


Set wshShell = WSH.CreateObject("WScript.Shell")
'  strDir = wshShell.SpecialFolders("Startup")
  Set shortcut = wshShell.CreateShortcut(lnkpath)
    shortcut.TargetPath = targetpath
    shortcut.WindowStyle = 1
    shortcut.Save
  Set shortcut = Nothing
Set wshShell = Nothing