pero con el ejemplo que me diste se parece mas a lo que estoy buscando, pero no es exactamente me explico con el ejemplo que me diste. Ejemp:

Set wshShell = WScript.CreateObject("WScript.Shell")
AbsPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")

filepath  = wshShell.ExpandEnvironmentStrings( "%COMSPEC%" )
arguments = "/k ""Echo set JAVA_HOME="&AbsPath&"jre1.8.0_40 && Echo set path=%path%;%JAVA_HOME%\bin"""

call wshShell.Run( filepath & " " & arguments )

Wscript.Quit(0)

cuando quiero que el path me tome el JAVA_HOME no me trae la ruta, se queda igual como esta %JAVA_HOME%
Esto es para un programa hecho en java, lo que intento es que encaso de no tener java instalado, se pueda ejecutar como portable...
Gracias por tu repuesta...

Ejemplo

AbsPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set objShell = CreateObject("Wscript.Shell")
 
strCommand = "cmd /k Ejemplo1"
strCommand2 = "cmd /k Ejemplo2"
 
objShell.Run strCommand && strCommand2 

como hago para ejecutar los dos comandos??. Puedo hacerlo por separado pero no me sirve ya que el comando2 depende del otro..

si alguien sabe, que me ayude por favor..