I have a script used to find and run Java on a Windows system.**It*worked
fine on original tests (on a Windows XP system).**It's*now*running*on*a
Windows 2000 (sp3) system, and it won't work -- the problem is this line:
set oCommand = WshShl.Exec(sCommand)
(it's about halfway down)**Is*there*a*problem*with*the*Exec*method*in* some
versions of VBS?**Is*the*problem*Windows*version*I'm*on,*or*is *it*something
more obvious that I'm just not seeing?
The error is that the object doesn't support the Exec method.**(I've*also
substituted the string sCommand with "C:\WINNT\System32\sol.exe" just to
make a quick check, and it makes no difference (not that it should with
that error message, I just wanted to try a .exe I knew was there and
working).
Thanks for any help!
Hal
'
'Set up initial variables
'
qm = chr(34)
sqm = chr(39)
set WshShl = WScript.CreateObject("WScript.shell")
sOut = "No Java Installed"
On Error Resume Next
sVersion = WshShl.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime
Environment\CurrentVersion")
sJava = WshShl.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\" &
sVersion & "\JavaHome")
On Error Goto 0
sJava = sJava + "\bin\java.exe"
sCommand = sJava + " -version"
set oCommand = WshShl.Exec(sCommand)
iCount = 10
Do While oCommand.Status = 0
*WScript.Sleep*100
Loop
'WScript.Sleep 1000
25
sOut = oCommand.StdErr.ReadAll
WScript.StdOut.WriteLine("Command: ")
'WScript.StdOut.WriteLine("Command: " & sJava)
'WScript.StdOut.WriteLine(sOut)
WScript.StdOut.WriteLine(sVersion