C# と VB.NET の質問掲示板

Mr.Tです、こんにちは。

■No4198 (シャリ緒 さん) に返信
> >On Error Resume Nextで処理継続するようにしてやれば、とりあえずIsObject()で評価した結果としてはFalse
> 
> 情報が少なくて申し訳ありません…そのようにしていました…
> JavaがなくてFalseが帰るのは正常なんですが
> JavaがあってもFalseが帰ってしまうのが困っています…

私も確認。
IE7で、Javaありです。
こうやってすると、同じ現象が発生します。

<SCRIPT LANGUAGE="VBScript">
on error resume Next
If Not(IsObject(CreateObject("JavaWebStart.isInstalled"))) Then
     javawsInstalled = 0
  Else
     javawsInstalled = 1
End If
msgbox javawsInstalled 
</Script>

インターネットゾーンでの実行=>0が表示される
信頼済みサイトでの実行=>1が表示される
※ゾーンの設定は、でふぉるとのまま。

例の場合は、CreateObjectでこけた場合にはElseに入りません。
なので、思ったとおりの動作にならないでしょう。 
んでも、こうしたら、OKです。

<SCRIPT LANGUAGE="VBScript">
on error resume Next
Dim targetObj
set targetObj = CreateObject("JavaWebStart.isInstalled")
on error goto 0
If Not(IsObject(targetObj)) Then
     javawsInstalled = 0
  Else
     javawsInstalled = 1
End If
msgbox javawsInstalled 
</Script>