スカイプＢＡＮ対策

おしえてやるからちょっとこっちこい
+------------------------------------------------------
４．０対応　　　VISTA対応　　　64BIT対応
通常

Option Explicit

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run """C:\Program Files\Skype\Phone\Skype.exe"" /secondary"
Set objWshShell = Nothing


６４ＢＩＴ用

Option Explicit

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run """C:\Program Files (x86)\Skype\Phone\Skype.exe"" /secondary"
Set objWshShell = Nothing