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(sCo mmand)
(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\Syste m32\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.CreateO bject("WScript. shell")
sOut = "No Java Installed"
On Error Resume Next
sVersion = WshShl.RegRead( "HKLM\SOFTWARE\ JavaSoft\Java Runtime
Environment\Cur rentVersion")
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(sCo mmand)
iCount = 10
Do While oCommand.Status = 0
WScript.Sleep 100
Loop
'WScript.Sleep 1000
25
sOut = oCommand.StdErr .ReadAll
WScript.StdOut. WriteLine("Comm and: ")
'WScript.StdOut .WriteLine("Com mand: " & sJava)
'WScript.StdOut .WriteLine(sOut )
WScript.StdOut. WriteLine(sVers ion
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(sCo mmand)
(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\Syste m32\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.CreateO bject("WScript. shell")
sOut = "No Java Installed"
On Error Resume Next
sVersion = WshShl.RegRead( "HKLM\SOFTWARE\ JavaSoft\Java Runtime
Environment\Cur rentVersion")
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(sCo mmand)
iCount = 10
Do While oCommand.Status = 0
WScript.Sleep 100
Loop
'WScript.Sleep 1000
25
sOut = oCommand.StdErr .ReadAll
WScript.StdOut. WriteLine("Comm and: ")
'WScript.StdOut .WriteLine("Com mand: " & sJava)
'WScript.StdOut .WriteLine(sOut )
WScript.StdOut. WriteLine(sVers ion
Comment