ショートカットファイル(拡張子：lnk)を作成するVBScriptです。
下記は、コマンドプロンプトでpingコマンドを実行するショートカットファイルをデスクトップに作成するコード例です。
Option Explicit
With CreateObject("WScript.Shell")
With .CreateShortcut(.SpecialFolders("Desktop") & ChrW(92) & "ping_yahoo.lnk")
.TargetPath = "cmd"
.Arguments = "/k ""ping www.yahoo.co.jp"""
.WindowStyle = 1
.Hotkey = "CTRL+ALT+C"
.IconLocation = "cmd.exe, 0"
.Save
End With
End With
■ 参考Webページ
・CreateShortcut メソッド
http://msdn.microsoft.com/ja-jp/library/cc364400.aspx
・WshShortcut オブジェクトのプロパティとメソッド
http://msdn.microsoft.com/ja-jp/library/cc364467.aspx
この記事へのコメントはありません。