« Windows 2000 Support Toolsのtlist.exeとkill.exeのダウンロード元 | トップページ | IEの既存のプロセスの新規ウィンドウで開く。 »

2008年1月 4日 (金)

IEの既存のウィンドウで開く。

WWW_OpenURL.VBS {ファイル|URL}

URL=WScript.Arguments.Item(0)
Set Application=CreateObject("Excel.Application")
Application.DisplayAlerts=False
channelNumber=Application.DDEInitiate("IExplore","WWW_OpenURL")
Application.DisplayAlerts=True
If TypeName(channelNumber)="Error" Then
  CreateObject("WScript.Shell").Run "IExplore.exe " & """" & URL & """"
Else
  Application.DDEExecute channelNumber,"""" & URL & """,,-1,,,,,"
  Application.DDETerminate channelNumber
End If

« Windows 2000 Support Toolsのtlist.exeとkill.exeのダウンロード元 | トップページ | IEの既存のプロセスの新規ウィンドウで開く。 »