任意のパスにショートカット（*.lnk）やURLショートカット（*.url）を新規に作成します。WshShortcut オブジェクト（*.lnkの場合）もしくはWshURLShortcut オブジェクト（*.urlの場合）が返ります。作成したショートカットはWshShell.CreateShortcutを実行時に保存されます。

構文

1. Object = WshShell.CreateShortcut( strPathname )

引数

strPathname 省略可

作成するショートカットのパスとファイル名

戻り値

プログラム実行例

メモ帳を起動するショートカットファイルを作成

カレントディレクトリにメモ帳.lnkのショートカットリンクを作成します。

DIM WshShell = CREATEOLEOBJ("WScript.Shell")
DIM WshShortcut = WshShell.CreateShortcut("メモ帳.lnk")
WshShortcut.TargetPath = "C:\Windows\System32\notepad.exe"
WshShortcut.Save

コマンドプロンプトのショートカットを生成

デスクトップにコマンドプロンプトへのショートカットリンクを作成します。

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM path = Shell.NameSpace(ssfDesktop).Self.Path

DIM WshShell = CREATEOLEOBJ("WScript.Shell")
DIM WshShortcut = WshShell.CreateShortcut(path + "\cmd.lnk")

WITH WshShortcut
	.IconLocation = "C:\Windows\system32\imageres.dll, 11"
	.TargetPath = "C:\WINDOWS\system32\cmd.exe"
	.WindowStyle = 3
	.WorkingDirectory = "%LOCALAPPDATA%"
	.Save
ENDWITH

結果

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(3,6)

Shell.NameSpace メソッド(4)

指定されたフォルダのFolder2 オブジェクトを作成して返します。

WshShell.CreateShortcut メソッド(7)

ショートカットまたはURLショートカットへのオブジェクト参照を作成します。

ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。

ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。

作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。

ショートカットを実行する際の作業ディレクトリを表します。

ショートカットオブジェクトを保存します。

解説

1. 3-4行目

   UWSC

   DIM Shell = CREATEOLEOBJ("Shell.Application")
   DIM path = Shell.NameSpace(ssfDesktop).Self.Path

   CopyDIM Shell = CREATEOLEOBJ("Shell.Application") DIM path = Shell.NameSpace(ssfDesktop).Self.Path

   デスクトップのパスを取得しpathに代入。

2. 6-7行目

   UWSC

   DIM WshShell = CREATEOLEOBJ("WScript.Shell")
   DIM WshShortcut = WshShell.CreateShortcut(path + "\cmd.lnk")

   CopyDIM WshShell = CREATEOLEOBJ("WScript.Shell") DIM WshShortcut = WshShell.CreateShortcut(path + "\cmd.lnk")

   作成するショートカットのWshShortcut オブジェクトを生成しWshShortcutに代入。デスクトップにcmd.lnkというファイル名で作成。

3. 9,15行目

   UWSC

   WITH WshShortcut
   	…
   ENDWITH

   CopyWITH WshShortcut … ENDWITH

   ショートカットの詳細設定。

4. 10行目

   UWSC

   	.IconLocation = "C:\Windows\system32\imageres.dll, 11"

   Copy .IconLocation = "C:\Windows\system32\imageres.dll, 11"

   ショートカットのアイコンを指定。C:\Windows\system32\imageres.dllのインデックス番号11のアイコンを設定。

5. 11行目

   UWSC

   	.TargetPath = "C:\WINDOWS\system32\cmd.exe"

   Copy .TargetPath = "C:\WINDOWS\system32\cmd.exe"

   ショートカットが示すプログラムのパスを指定。コマンドプロンプトのパス。C:\WINDOWS\system32\cmd.exeを指定。

6. 12行目

   UWSC

   	.WindowStyle = 3

   Copy .WindowStyle = 3

   ショートカット起動時のウィンドウのサイズを指定。3は最大化を表します。

7. 13行目

   UWSC

   	.WorkingDirectory = "%LOCALAPPDATA%"

   Copy .WorkingDirectory = "%LOCALAPPDATA%"

   作業ディレクトリを%LOCALAPPDATA%に指定。

8. 14行目

   UWSC

   	.Save

   Copy .Save

   設定したショートカットを保存。

デスクトップにChromeのショートカットを作成

デスクトップにGoogle Chromeで[createLink url="https://google.co.jp" title="https://google.co.jp"]をシークレットモードで起動するショートカットを作成します。

UWSC

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM WshShell = CREATEOLEOBJ("WScript.Shell")

DIM Folder2 = Shell.NameSpace(ssfDesktop)
DIM path = Folder2.Self.Path + "\Chrome.lnk"
DIM WshShortcut = WshShell.CreateShortcut(path)

WITH WshShortcut
	DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
	.Description = "Chromeをシークレットモードで起動します。"
	.Hotkey = "Ctrl+Shift+C"
	.IconLocation = chromePath + ",7"
	.TargetPath = chromePath
	.WindowStyle = 3
	.Save
ENDWITH

Folder = Shell.NameSpace(FSO.GetParentFolderName(path))
DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))
DIM ShellLinkObject = FolderItem.Getlink()
DIM Args[] = "--incognito", "https://google.co.jp"

WITH ShellLinkObject
	.Arguments = JOIN(Args)
	.Save
ENDWITH

CopyCONST ssfDesktop = 0 DIM Shell = CREATEOLEOBJ("Shell.Application") DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM WshShell = CREATEOLEOBJ("WScript.Shell") DIM Folder2 = Shell.NameSpace(ssfDesktop) DIM path = Folder2.Self.Path + "\Chrome.lnk" DIM WshShortcut = WshShell.CreateShortcut(path) WITH WshShortcut DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" .Description = "Chromeをシークレットモードで起動します。" .Hotkey = "Ctrl+Shift+C" .IconLocation = chromePath + ",7" .TargetPath = chromePath .WindowStyle = 3 .Save ENDWITH Folder = Shell.NameSpace(FSO.GetParentFolderName(path)) DIM FolderItem = Folder.ParseName(FSO.GetFileName(path)) DIM ShellLinkObject = FolderItem.Getlink() DIM Args[] = "--incognito", "https://google.co.jp" WITH ShellLinkObject .Arguments = JOIN(Args) .Save ENDWITH

結果

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(3,4,5)

Shell.NameSpace メソッド(7,21)

指定されたフォルダのFolder2 オブジェクトを作成して返します。

Folder2.Self プロパティ (Shell)(8)

Folder2オブジェクト自身を表すFolderオブジェクトを返します。

WshShell.CreateShortcut メソッド(9)

ショートカットまたはURLショートカットへのオブジェクト参照を作成します。

WshShortcut オブジェクト(9)

ショートカットの作成、読み込み、および編集に使用されます。WshShortcutオブジェクトは、ショートカットのプロパティを設定および取得するために使用できるプロパティを提供します。WshShortcutオブジェクトは、WshShellオブジェクトのCreateShortcutメソッドを使用して作成されます。

WITH文(11,26)

WshShortcutオブジェクトのDescription属性を取得または設定します。

ショートカットに対して割り当てられたホットキーのキーコードを表します。

ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。

ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。

作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。

ショートカットオブジェクトを保存します。

FSO.GetParentFolderName メソッド(21)

指定したパスの最後のコンポーネントの親フォルダ名を返します。

Folder.ParseName メソッド (Shell)(22)

指定されたアイテムのFolderItem オブジェクトを作成して返します。

FSO.GetFileName メソッド(22)

指定したパスの最後のコンポーネントのファイル名またはフォルダ名を返します。

FolderItem オブジェクト(22)

シェルフォルダ内のアイテムを表します。

FolderItem.GetLink プロパティ (Shell)(23)

項目がショートカットの場合は、Shell.CreateShortcutを格納します。

ウィンドウシェルによって作成されたショートカットの情報を表します。

リンクの引数を格納します。

JOIN関数 (スクリプト関数)(27)

すべての変更をリンクに保存します。

解説

1. 1行目

   UWSC

   CONST ssfDesktop = 0

   CopyCONST ssfDesktop = 0

   ssfDesktopに0を代入。

2. 3行目

   UWSC

   DIM Shell = CREATEOLEOBJ("Shell.Application")

   CopyDIM Shell = CREATEOLEOBJ("Shell.Application")

   Shell オブジェクトを生成しShellに代入します。

3. 4行目

   UWSC

   DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

   CopyDIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

   FileSystemObject オブジェクトを生成しFSOに代入します。

4. 5行目

   UWSC

   DIM WshShell = CREATEOLEOBJ("WScript.Shell")

   CopyDIM WshShell = CREATEOLEOBJ("WScript.Shell")

   WshShell オブジェクトを生成しWshShellに代入します。

5. 7行目

   UWSC

   DIM Folder2 = Shell.NameSpace(ssfDesktop)

   CopyDIM Folder2 = Shell.NameSpace(ssfDesktop)

   デスクトップのFolder2 オブジェクトを取得し、Folder2に代入。

6. 8行目

   UWSC

   DIM path = Folder2.Self.Path + "\Chrome.lnk"

   CopyDIM path = Folder2.Self.Path + "\Chrome.lnk"

   デスクトップ\Chrome.lnkのパスをpathに代入。

7. 9行目

   UWSC

   DIM WshShortcut = WshShell.CreateShortcut(path)

   CopyDIM WshShortcut = WshShell.CreateShortcut(path)

   pathが示すパスにショートカットリンクを生成します。

8. 11,19行目

   UWSC

   WITH WshShortcut
   	…
   ENDWITH

   CopyWITH WshShortcut … ENDWITH

9. 12行目

   UWSC

   	DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

   Copy DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

   Google ChromeがあるパスをChromePathに代入。

10. 13行目

    UWSC

    	.Description = "Chromeをシークレットモードで起動します。"

    Copy .Description = "Chromeをシークレットモードで起動します。"

    ショートカットが指し示すプログラムにChromePathのパスを設定。

11. 14行目

    UWSC

    	.Hotkey = "Ctrl+Shift+C"

    Copy .Hotkey = "Ctrl+Shift+C"

    ChromePathのインデックス番号が7のアイコンを指定。

12. 15行目

    UWSC

    	.IconLocation = chromePath + ",7"

    Copy .IconLocation = chromePath + ",7"

    ショートカットを実行したときに表示されるウィンドウの大きさを[最大化]に設定。

13. 16行目

    UWSC

    	.TargetPath = chromePath

    Copy .TargetPath = chromePath

    WshShortcut オブジェクトに加えた変更を保存します。

14. 17行目

    UWSC

    	.WindowStyle = 3

    Copy .WindowStyle = 3

15. 18行目

    UWSC

    	.Save

    Copy .Save

16. 21行目

    UWSC

    Folder = Shell.NameSpace(FSO.GetParentFolderName(path))

    CopyFolder = Shell.NameSpace(FSO.GetParentFolderName(path))

    pathの親フォルダ名のFolder オブジェクトを取得し、Folderに代入します。

17. 22行目

    UWSC

    DIM FolderItem = Folder.ParseName(FSO.GetFileName(path))

    CopyDIM FolderItem = Folder.ParseName(FSO.GetFileName(path))

18. 23行目

    UWSC

    DIM ShellLinkObject = FolderItem.Getlink()

    CopyDIM ShellLinkObject = FolderItem.Getlink()

19. 24行目

    UWSC

    DIM Args[] = "--incognito", "https://google.co.jp"

    CopyDIM Args[] = "--incognito", "https://google.co.jp"

    リンクに渡す引数を格納する配列。"--incognito"はシークレットモードで起動。"https://google.co.jp"は開くURL。

20. 26,29行目

    UWSC

    WITH ShellLinkObject
    	…
    ENDWITH

    CopyWITH ShellLinkObject … ENDWITH

21. 27行目

    UWSC

    	.Arguments = JOIN(Args)

    Copy .Arguments = JOIN(Args)

    Args配列を、半角スペースで結合した文字列をリンク先の引数に指定。

22. 28行目

    UWSC

    	.Save

    Copy .Save

    Shell.CreateShortcutに加えた変更を保存します。