Ayuda con VBS

Thread View: chile.comp.programacion

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by pintamono Tue, 31 Mar 2009 13:35

#421

Author: pintamono
Date: Tue, 31 Mar 2009 13:35

45 lines
2228 bytes

Que tal, tengo un "problema" con VBS

resulta que tengo lo siguiente para ejecutar una aplicacion:

Dim WshShell,valor

set WshShell=WScript.CreateObject("WScript.Shell")

On Error Resume Next

valor = WshShell.RegRead("HKLM\Software\Microsoft\NET Framework 
Setup\NDP\v2.0.50727\Install")

If valor = 1 Then

	WshShell.run "cmd /c ""POSOneInstaller.exe""",0,True

'	WshShell.Run "POSOneInstaller.exe"

End If
If valor = 0 Then
	valor = 
WshShell.RegRead("HKLM\SOFTWARE\Microsoft\.NETFramework\policy\v2.0")

	if valor = 0 then
		Msgbox "No tiene Framework 2.0, se proceder� a su 
instalaci�n.",vbYes,"Atenci�n"
		WshShell.Run "..\Prerrequisitos\Framework2.exe"
	end if
End If 

Esto lo que hace es verificar que exista el FW 2.0, si existe ejecutra mi 
aplicacion.

El punto es que en un XP no executa la aplicacion, entra al script 
verifica y todo pero al momento de ejecutar no hace nada...
Pense que era el metodo de ejecucion asi que puse otro y nada, pense que 
eran las carpetas asi que movi el vbs a la raiz y nada, le puse en el 
metodo de llamado "..\" ahi me ejecuta la aplicacion pero esta se cae 
porque no encuentra un archivo ???, si lo hago en mi maquina (w2003) con 
el mismo vbs esto funciona sin problemas...

alguna idea de como solucionar esto? o de como hacerlo?

Gracias.

Re: Ayuda con VBS

#426

Author: Timo
Date: Thu, 02 Apr 2009 21:26

52 lines
2565 bytes

No se ha ocurrido usar un instalador como NSIS ? esos problemas esta 
resueltos.


"pintamono" <pintamono@NoMandeWeas.kk> escribi� en el mensaje 
news:205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com...
> Que tal, tengo un "problema" con VBS
>
> resulta que tengo lo siguiente para ejecutar una aplicacion:
>
> Dim WshShell,valor
>
> set WshShell=WScript.CreateObject("WScript.Shell")
>
> On Error Resume Next
>
> valor = WshShell.RegRead("HKLM\Software\Microsoft\NET Framework
> Setup\NDP\v2.0.50727\Install")
>
> If valor = 1 Then
>
> WshShell.run "cmd /c ""POSOneInstaller.exe""",0,True
>
> ' WshShell.Run "POSOneInstaller.exe"
>
> End If
> If valor = 0 Then
> valor =
> WshShell.RegRead("HKLM\SOFTWARE\Microsoft\.NETFramework\policy\v2.0")
>
> if valor = 0 then
> Msgbox "No tiene Framework 2.0, se proceder� a su
> instalaci�n.",vbYes,"Atenci�n"
> WshShell.Run "..\Prerrequisitos\Framework2.exe"
> end if
> End If
>
> Esto lo que hace es verificar que exista el FW 2.0, si existe ejecutra mi
> aplicacion.
>
> El punto es que en un XP no executa la aplicacion, entra al script
> verifica y todo pero al momento de ejecutar no hace nada...
> Pense que era el metodo de ejecucion asi que puse otro y nada, pense que
> eran las carpetas asi que movi el vbs a la raiz y nada, le puse en el
> metodo de llamado "..\" ahi me ejecuta la aplicacion pero esta se cae
> porque no encuentra un archivo ???, si lo hago en mi maquina (w2003) con
> el mismo vbs esto funciona sin problemas...
>
> alguna idea de como solucionar esto? o de como hacerlo?
>
> Gracias.
>

Re: Ayuda con VBS

#427

Author: Pintamono
Date: Thu, 02 Apr 2009 23:58

59 lines
2828 bytes

voy a averiguar, gracias.


"Timo" <asdas@asdas.cl> wrote in message 
news:gr3agf$3174$1@adenine.netfront.net...
> No se ha ocurrido usar un instalador como NSIS ? esos problemas esta 
> resueltos.
>
>
> "pintamono" <pintamono@NoMandeWeas.kk> escribi� en el mensaje 
> news:205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com...
>> Que tal, tengo un "problema" con VBS
>>
>> resulta que tengo lo siguiente para ejecutar una aplicacion:
>>
>> Dim WshShell,valor
>>
>> set WshShell=WScript.CreateObject("WScript.Shell")
>>
>> On Error Resume Next
>>
>> valor = WshShell.RegRead("HKLM\Software\Microsoft\NET Framework
>> Setup\NDP\v2.0.50727\Install")
>>
>> If valor = 1 Then
>>
>> WshShell.run "cmd /c ""POSOneInstaller.exe""",0,True
>>
>> ' WshShell.Run "POSOneInstaller.exe"
>>
>> End If
>> If valor = 0 Then
>> valor =
>> WshShell.RegRead("HKLM\SOFTWARE\Microsoft\.NETFramework\policy\v2.0")
>>
>> if valor = 0 then
>> Msgbox "No tiene Framework 2.0, se proceder� a su
>> instalaci�n.",vbYes,"Atenci�n"
>> WshShell.Run "..\Prerrequisitos\Framework2.exe"
>> end if
>> End If
>>
>> Esto lo que hace es verificar que exista el FW 2.0, si existe ejecutra mi
>> aplicacion.
>>
>> El punto es que en un XP no executa la aplicacion, entra al script
>> verifica y todo pero al momento de ejecutar no hace nada...
>> Pense que era el metodo de ejecucion asi que puse otro y nada, pense que
>> eran las carpetas asi que movi el vbs a la raiz y nada, le puse en el
>> metodo de llamado "..\" ahi me ejecuta la aplicacion pero esta se cae
>> porque no encuentra un archivo ???, si lo hago en mi maquina (w2003) con
>> el mismo vbs esto funciona sin problemas...
>>
>> alguna idea de como solucionar esto? o de como hacerlo?
>>
>> Gracias.
>>
>
>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads