How Determine JVM installed Programmatically ????

How can I determine whether the Microsoft Java Virtual Machine (JVM) is
installed on my computer
Programmatically by using Vb Scripy...?

Torgeir
Tue Jul 20 00:09:34 CDT 2004

Thara DK wrote:

> How can I determine whether the Microsoft Java Virtual Machine (JVM) is
> installed on my computer
> Programmatically by using Vb Scripy...?
Hi


If IsMSJVMInstalled Then
WScript.Echo "MS JVM is installed."
Else
WScript.Echo "MS JVM is not installed."
End If

Function IsMSJVMInstalled
Dim oShell, sRegValue, RegReadReturn
Set oShell = CreateObject("WScript.Shell")
sRegValue = _
"HKCR\CLSID\{08B0E5C0-4FCB-11CF-AAA5-00401C608500}\InstalledVersion\"
IsMSJVMInstalled = True ' init value
On Error Resume Next
RegReadReturn = oShell.RegRead(sRegValue)
If Err.Number <> 0 Then
IsMSJVMInstalled = False
End if
On Error Goto 0
End Function



--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Thara
Tue Jul 20 03:43:47 CDT 2004

:-) It works Thanks !!! .....

Anyway WScript.Echo "MS JVM is installed." didnt work and i put a msgbox to
check it.....
Thanks again

"Torgeir Bakken (MVP)" <Torgeir.Bakken-spam@hydro.com> wrote in message
news:%23RFgAghbEHA.712@TK2MSFTNGP11.phx.gbl...
> Thara DK wrote:
>
> > How can I determine whether the Microsoft Java Virtual Machine (JVM) is
> > installed on my computer
> > Programmatically by using Vb Scripy...?
> Hi
>
>
> If IsMSJVMInstalled Then
> WScript.Echo "MS JVM is installed."
> Else
> WScript.Echo "MS JVM is not installed."
> End If
>
> Function IsMSJVMInstalled
> Dim oShell, sRegValue, RegReadReturn
> Set oShell = CreateObject("WScript.Shell")
> sRegValue = _
>
"HKCR\CLSID\{08B0E5C0-4FCB-11CF-AAA5-00401C608500}\InstalledVersion\"
> IsMSJVMInstalled = True ' init value
> On Error Resume Next
> RegReadReturn = oShell.RegRead(sRegValue)
> If Err.Number <> 0 Then
> IsMSJVMInstalled = False
> End if
> On Error Goto 0
> End Function
>
>
>
> --
> torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
> Administration scripting examples and an ONLINE version of
> the 1328 page Scripting Guide:
> http://www.microsoft.com/technet/scriptcenter/default.mspx

Thara
Tue Jul 20 22:52:00 CDT 2004

It works but my Proj Manager doent like when im reading the registry....
Any other alternative....


"Thara DK" <Tharadk@hotmail.com> wrote in message
news:uRKawngbEHA.2844@TK2MSFTNGP12.phx.gbl...
> How can I determine whether the Microsoft Java Virtual Machine (JVM) is
> installed on my computer
> Programmatically by using Vb Scripy...?
>
>
>

Bob
Wed Jul 21 08:38:11 CDT 2004

Look for msjava.dll in %windir% and %windir%/system32

Bob Barrows
Thara DK wrote:
> It works but my Proj Manager doent like when im reading the
> registry.... Any other alternative....
>
>
> "Thara DK" <Tharadk@hotmail.com> wrote in message
> news:uRKawngbEHA.2844@TK2MSFTNGP12.phx.gbl...
>> How can I determine whether the Microsoft Java Virtual Machine (JVM)
>> is installed on my computer
>> Programmatically by using Vb Scripy...?

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.