(cache) No.40 WSHでショートカットを作成

2007/10/20

WSH

ようやくこの企画も40番台に突入しました。ノーツばかりというのもなんなので再びWSHです。
WSHでは簡単にショートカットを作成することができます。デスクトップにショートカットなんて自分で作ればいいじゃんと思いますが、いるんです作れない人が！こういう時はスクリプトをメールで送ってあげましょう。なお以下のスクリプトは拡張子"vbs"で保存してお使いください。

以下の4種類のショートカットを作成します。

アプリケーションのショートカット
コンピュータのショートカット
共有フォルダのショートカット
インターネットURLのショートカット

アプリケーションのショートカット

アプリケーションのショートカットをデスクトップに作成します。拡張子は"lnk"としてください。ここではノーツ7クライアントのアイコンを作成しています。もちろんアプリケーションだけではなくファイルやフォルダでもOKです。

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") desktop = ws.SpecialFolders("Desktop") ' ショートカット作成 Set shortcut = ws.CreateShortcut(desktop & "\Lotus Notes 7.lnk") With shortcut .TargetPath = "C:\Program Files\lotus\notes\notes.exe" .WorkingDirectory = desktop .Save End With

コンピュータのショートカット

ファイルサーバーやプリンタなどのショートカットをデスクトップに作成します。これも拡張子は"lnk"です。ここではIPアドレスが固定の場合を想定していますが、同一ネットワークならIPアドレスの部分はコンピュータ名でも構いません。

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") desktop = ws.SpecialFolders("Desktop") ' ショートカット作成 Set shortcut = ws.CreateShortcut(desktop & "\山田さん.lnk") With shortcut .TargetPath = "\\192.168.11.11" .WorkingDirectory = desktop .Save End With

共有フォルダのショートカット

共有フォルダの場合も基本は

コンピュータと同じです。ここでは共有フォルダ名は"share"としています。

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") desktop = ws.SpecialFolders("Desktop") ' ショートカット作成 Set shortcut = ws.CreateShortcut(desktop & "\共有フォルダ.lnk") With shortcut .TargetPath = "\\192.168.11.11\share" .WorkingDirectory = desktop .Save End With

インターネットURLのショートカット

ホームページのショートカットをデスクトップに作成します。違いは拡張子を"url"に変えること。なお、インターネットのショートカットには作業フォルダ(WorkingDirectory)はありません。

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") desktop = ws.SpecialFolders("Desktop") ' ショートカット作成 Set shortcut = ws.CreateShortcut(desktop & "\Google.url") With shortcut .TargetPath = "http://www.google.co.jp/" .Save End With