🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: chile.comp.programacion
Article #426

Re: Ayuda con VBS

#426
From: 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.
> 
Technical Details
Message-ID: <gr3agf$3174$1@adenine.netfront.net>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news.glorb.com!news.netfront.net!not-for-mail
References: <205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com>

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!g2news2.google.com!news2.google.com!news.glorb.com!news.netfront.net!not-for-mail
From: "Timo" <asdas@asdas.cl>
Newsgroups: chile.comp.programacion
Subject: Re: Ayuda con VBS
Date: Thu, 2 Apr 2009 17:26:04 -0400
Organization: Netfront http://www.netfront.net
Lines: 54
Message-ID: <gr3agf$3174$1@adenine.netfront.net>
References: <205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com>
NNTP-Posting-Host: 190.196.69.194
X-Trace: adenine.netfront.net 1238707536 99556 190.196.69.194 (2 Apr 2009 21:25:36 GMT)
X-Complaints-To: news@netfront.net
NNTP-Posting-Date: Thu, 2 Apr 2009 21:25:36 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5512
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
X-RFC2646: Format=Flowed; Original