VB6で、接続のショートカットを作成するには？

質問

VB6で、接続のショートカットを作成するには？

VPN接続 もしくは ダイヤルアップ接続へのショートカットを自動的にデスクトップに作るようなプログラムを考えています。

ファイルやフォルダへのショートカットなら各所でその方法が説明されていますが、接続へのショートカットとなるとさっぱり見つけられません。

どなたか、どうぞよろしくお願いします。

回答No.1

1050 円（@1050YEN）

WindowsのGUIによって作成されるショートカットとは少し異なりますが、、、

一応出来ます。（XP環境での説明です。他バージョンでは一緒かどうかはわかりません。）

ショートカットは基本的に拡張子がlnkです。
それと通信系は「rasphone.exe」というのが行います。
これを前提にと、、、

「仮想プライベート接続」
↑仮にこういうのを作ったとします。

すると
C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk
が更新されます。
rasphone.pbkはダイヤルアップ電話帳と呼ばれる物で、中身はiniファイルと似た作りとなっています。
ですのでメモ帳なので名前や属性を変更することもできちゃいます。
その中に
[仮想プライベート接続]
となっている部分があると思います。

上記を理解したうえで

名前を指定して起動(Windowsキー + R)で
rasphone.exe -d "仮想プライベート接続"

ですのでVBスクリプトで作成が可能です。
Dim oSh
Dim sDesktop
Dim oLnk

Set oSh = CreateObject("WScript.Shell")
sDesktop = oSh.SpecialFolders("Desktop")
Set oLnk = oSh.CreateShortcut(sDesktop & "\仮想プライベート接続.lnk")
oLnk.TargetPath = "%windir%\system32\Rasphone.exe"
oLnk.IconLocation = "%windir%\system32\Rasphone.exe, 0"
oLnk.Arguments = "-d """ & "仮想プライベート接続"""
oLnk.WorkingDirectory = "%windir%\system32\"
oLnk.Save

また、もうひとつのパターンもあるようです。
私はこれは初めて知りました。
http://okwave.jp/qa/q5983080.html

アドバイスがVISTA以降も通用するかどうかはわからないですので、調査はそちらで行ってください。

お礼

分かりやすい説明をありがとうございます。

なるほど、そういうアプローチがあるとは、まったく気がつきませんでした。

VISTA以降については、調査してみます。

ただ、GUIで作ったようなショートカットもあきらめきれないので、もう少し調べてみようと思います。