WScript No Me Funciona

[zTreeTNiGhT]

Hola, les vengo a pedir ayuda xD
lo que pasa es que en Windows XP SP3 no me funciona el WScript
e puesto el sigiente codigo en un .vbs

Código [Seleccionar] Expandir

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F7}"

y en otras computadoras si me funciona, pero cuando lo quiero abrir en la mia me sale el siguiente error


Windows Script Host

Secuencia de comandos : C:\rutadelarchivo\*.vbs
Linea: 1
Caracter: 1
Error: No se pudo ubicar la clase de automatizacion denominada "WScript.Shell".
Codigo: 80020009
Origen: WSCript.CreateObject


alguien me podria ayudar porfavor =S, no me funciona ningun codigo que lleve WScript.Shell

Gracias

Salu2...

[Novlucker]

Si utilizas otros objetos si? como por ejemplo el "scripting.filesystemobject" ?

Prueba reinstalando el Windows Script Host
:http://www.microsoft.com/downloads/details.aspx?familyid=47809025-D896-482E-A0D6-524E7E844D81&displaylang=en

Saludos

[zTreeTNiGhT]

Gracias por responder =), la verdad no se mucho sobre esto xD, pero si me an funcionado otros scripts, como por ejemplo este

Código [Seleccionar] Expandir

Set Wmp = CreateObject("WMPlayer.OCX.7")
Wmp.URL = "archivo.wav"
Wmp.Controls.Play
wscript.sleep 5000

intente bajar el Windows Script Host, pero de alli solo se baja un archivo readme.txt =S

gracias

saLu2...

[Novlucker]

Mmmm, te había dejado un link malo, prueba otra vez con el nuevo, es al wsh 5.7

Saludos

[zTreeTNiGhT]

listo ya lo baje pero a la hora de ejecutarlo me dice

Setup has detected that he Service Pack version of this system
is newer than the update you are applying
There is no need to install this update

[Novlucker]

ok, eso es porque el SP3 trae una versión posterior del wsh.

Prueba lo siguiente:

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")

Saludos

[zTreeTNiGhT]

ahora me sale

Windows Script Host
Secuencia de Comandos: C:\ruta\*.vbs
Linea: 1
Caracter: 1
Error: ActiveX component can't create object: 'wscript.shell'
Codigo: 800A01AD
Origen: Microsoft VBScript runtime error

=S

[Novlucker]

Inicio > Ejecutar > regsvr32 wshom.ocx
Inicio > Ejecutar > regsvr32 scrrun.dll

Saludos 

[zTreeTNiGhT]

Woooooow!!,, eres el mejor men!!
Muchas gracias =D, ya funciona   

Gracias!!!

[Novlucker]

De nada, por lo visto alguna librería no estaba correctamente registrada o por esas cosas de la vida se había "desregistrado" ... me alegro que funcione

Saludos