Skype 4.0 で複数アカウントを同時起動! 最新版?

Skype を単一の端末で複数同時起動して、複数のアカウントを同時に使い分ける、コレが Windows XP ではできていたのに Vista になったらできなくなったとか、改悪されまくっている Skype 4.0 では XP でも封じられたとか、色々文句を言っておりました。
その後、自分は XP で Skype 3.8 を利用しているので特に継続調査していなかったのですが、「Skype 4.0」で Google Alerts させておりましたところ、解決策があるとのエントリを発見しました。

clip IT!
from yr-gamblers note
「skypeを複数アカウント立ち上げる」
via まにまにブログ
「skypeを複数アカウント同時に使う方法（vistaもできるよ）」

つまり VBS で叩けば多重起動できますよ、と。
コレにウチの
USB ドライブから複数の Skype を直接起動する方法
と
Skype Command line login について
を組み合わせて、
アカウントの ID と Password も決め打ちで入れてしまおう、と云うコトを考えてみました。
なお、 Skype 3.8 では効かないオプションですので、私のように引き続き Skype 3.8 を使う場合はコレまで通り runas でお願いします。

注意: 安全保障的には最悪な方法です!!
次のようにアカウントとパスワードをテキストとして入れ込むような方法は個人で完全管理できる端末でのみ利用して下さい。
また、何らかの問題が生じても当方は責任を負えません。

一般的な運用時

Option Explicit

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run """C:\Program Files\Skype\Phone\Skype.exe"" /secondary /username:アカウント名 /password:パスワード"
Set objWshShell = Nothing

USB ドライブからの直接起動時

Option Explicit

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run """USBドライブ:\Skype\Phone\Skype.exe"" /secondary /datapath:USBドライブ:\Skype\account\ /removable /username:アカウント名 /password:パスワード"
Set objWshShell = Nothing

ちなみに、ココでは Skype 4.0 の環境がありませんので、上記が有効に機能するかどうかは不透明です(笑)
…明日、仕事場で確認してみますね。

追記(2009/05/13 15:17)

勤め先端末の Skype for Windows v4.0.0.226 で検証してみましたが、上記の USB 直接起動用のスクリプトで、無事複数アカウントを起動できました。
OS に複数アカウントを作り込んでの runas よりは便利で良いので、コレは是非 v3.8 にも実装して欲しいですね。
コーデックについても SILK を組み込んだ v3.9 のりりーs(ry