在任意地方建立快捷方式脚本

最新推荐文章于 2022-10-19 20:41:50 发布

icuc88

最新推荐文章于 2022-10-19 20:41:50 发布

阅读量2k

点赞数

分类专栏： Managment Script 文章标签： string vbscript 脚本 path c

本文链接：https://blog.csdn.net/icuc88/article/details/11473

版权

Managment Script 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

<?xml version="1.0"?>
<?job error="true" debug="false"?>

<job id="Main">
<runtime>
<description>
FileName: CreateShortCut.wsf
This Script create shortcut as your wish.

Version: 1.5
Created by icuc88@hotmail.com
Last Modify: Feb 13th, 2004
All right reserved.
        </description>
        <named
             name="SF"
             helpstring="The special folder you will create shortcut in"
             type="string"
             required="true"
        />
        <named
             name="SCN"
             helpstring="the name of ShortCut"
             type="string"
             required="true"
        />
        <named
             name="TP"
             helpstring="The path to the shortcut's executable."
             type="string"
             required="true"
        />
        <named
             name="WD"
             helpstring="run under which directory"
             type="string"
             required="true"
        />
        <named
             name="A"
             helpstring="Sets the arguments for a shortcut, or identifies a shortcut's arguments"
             type="string"
             required="false"
        />
        <example>
        Example:
          WSCRIPT CreateShortCut.wsf /SF:E:/ /SCN:NotePad.lnk /TP:C:/Windows/Notepad.exe /WD:E:/
          WSCRIPT CreateShortCut.wsf /SF:E:/ /SCN:NotePad.lnk /TP:C:/Windows/Notepad.exe /WD:E:/ /A:C:/Windows/ReadMe.txt</example>
    </runtime>

Dim Args
Args = WScript.Arguments.Count

      If Args < 4 Then
        WScript.Arguments.ShowUsage
        WScript.Quit
      Else
        Dim WshShell
        Dim oShellLink
        set WshShell = WScript.CreateObject("WScript.Shell")

Dim strShortCut
strShortCut = WScript.Arguments.Named.Item("SF") & WScript.Arguments.Named.Item("SCN")

        set oShellLink = WshShell.CreateShortcut(strShortCut)
        oShellLink.TargetPath = WScript.Arguments.Named.Item("TP")
        oShellLink.WindowStyle = 1
        oShellLink.Description = WScript.Arguments.Named.Item("SCN")

        oShellLink.WorkingDirectory = WScript.Arguments.Item("WD")
        If WScript.Arguments.Named.Item("A") <> "" Then
          oShellLink.Arguments = WScript.Arguments.Named.Item("A")
        End If
        oShellLink.Save
     End If
    ]]>
    </script>
</job>
</package>

把上面的脚本粘贴复制到记事本，然后另存为CreateShortCut.wsf，双击就可以看见使用方法