Article View: chile.comp.programacion
Article #427Re: Ayuda con VBS
From: Pintamono
Date: Thu, 02 Apr 2009 23:58
Date: Thu, 02 Apr 2009 23:58
59 lines
2828 bytes
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.
>>
>
>
Technical Details
Message-ID:
<gr3jfq$n3d$1@jagger.tie.cl>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!news.kjsl.com!news.nivel5.cl!news2.ifxnw.cl!news.tie.cl!not-for-mailReferences:
<205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com> <gr3agf$3174$1@adenine.netfront.net>Show Full Headers
Complete Article Headers
X-Google-Thread: 1593cb,5065db104ff67425 X-Google-Attributes: gid1593cb,domainid0,public,usenet X-Google-Language: SPANISH,ASCII Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!news.kjsl.com!news.nivel5.cl!news2.ifxnw.cl!news.tie.cl!not-for-mail From: "Pintamono" <pintamono@NoMandeWeas.kk> Newsgroups: chile.comp.programacion Subject: Re: Ayuda con VBS Date: Thu, 2 Apr 2009 19:58:49 -0400 Organization: Telefonica Internet Empresa Lines: 61 Message-ID: <gr3jfq$n3d$1@jagger.tie.cl> References: <205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com> <gr3agf$3174$1@adenine.netfront.net> NNTP-Posting-Host: 78-128-22-190.adsl.terra.cl X-Trace: jagger.tie.cl 1238716730 23661 190.22.128.78 (2 Apr 2009 23:58:50 GMT) X-Complaints-To: news@jagger.tie.cl NNTP-Posting-Date: Thu, 2 Apr 2009 23:58:50 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.3790.3959 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.4325 X-RFC2646: Format=Flowed; Response