🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: chile.comp.programacion
Article #421

Ayuda con VBS

#421
From: 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.
Technical Details
Message-ID: <205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newshub.sdsu.edu!news.alt.net!news.kjsl.com!news.nivel5.cl!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 1593cb,5065db104ff67425,start
X-Google-Attributes: gid1593cb,domainid0,public,usenet
X-Google-Language: SPANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newshub.sdsu.edu!news.alt.net!news.kjsl.com!news.nivel5.cl!not-for-mail
From: pintamono@NoMandeWeas.kk (pintamono)
Newsgroups: chile.comp.programacion
Subject: Ayuda con VBS
Date: Tue, 31 Mar 2009 10:35:00 -0300
Organization: Usenet Chile.* http://usenet.no-ip.com
Lines: 46
Message-ID: <205c21e5760a8298804526e7cb79b440$1@usenet.no-ip.com>
NNTP-Posting-Host: pc-93-65-239-201.cm.vtr.net
Mime-Version: 1.0
X-Trace: news.nivel5.cl 1238506509 19981 201.239.65.93 (31 Mar 2009 13:35:09 GMT)
X-Complaints-To: news@news.nivel5.cl
NNTP-Posting-Date: Tue, 31 Mar 2009 13:35:09 +0000 (UTC)
User-Agent: NewsPortal/0.3X RCL MOD
X-Abuse: robertocl@gmail.com
X-HTTP-Posting-Host: 201.238.209.35