MYRUN não funciona no WIN98

[Reginaldo]

Olá pessoal,

A função MYRUN() não funciona do WIN98...

Dá o seguinte erro:
Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Arguments: ( [ 1] = Type: C Val: WScript.Shell)

Esse erro dá na linha do:
oShell := CreateObject( "WScript.Shell" )

Se alguém tiver alguma solução, favor postar aqui, com certeza será útil pra outros companheiros...

Obrigado!

[sygecom]

Eu uso normal no win98 , post como esta usando, e sua função myrun()

[Reginaldo]

Caro Leonardo,

Tô usando assim:

Código: Selecionar todos

FUNCTION MYRUN(cComando,nStyle,lWait,lShowResult) 

LOCAL oShell, RET
IF valtype( nStyle ) != "N"
   nStyle := 0
ENDIF
IF ValType( lWait ) != "L"
   lWait := .T.
ENDIF
IF ValType( lShowResult ) != "L"
   lShowResult := .F.
ENDIF
oShell := CreateObject( "WScript.Shell" )
IF !GetEnv( "OS" ) == "Windows_NT"
   cComando += "start " + cComando
ENDIF
RET    := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )
IF lShowResult .AND. RET > 0 .and. RET <= 32
   MSG_BOX("Erro Win_Run(): "+ltrim(Str( RET )))
ENDIF
oShell := NIL
*
RETURN IIF( RET = 0, .T., .F. )

Mas na linha do WScript.Shell dá o erro!

Obrigado,

[sygecom]

Eu uso assim e funciona:

Código: Selecionar todos

*********************
FUNC MYRUN( cComando )
**********************
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )

[Reginaldo]

Caro Leonardo,

isso não resolve, pois a linha onde está dando o erro é igual, tanto na minha função quanto na sua...

Obs: Tenho uma máquina aqui com WIN98 que não ocorre o erro, porém na do cliente, o erro acontece....

[sygecom]

Bom não sei o que pode c, mas se na sua funciona e lah não, ja sabe qeu o problema esta no micro dele....manda entra no DOS e dar um Format c: ....hehehe

Boa Sorte

[leandrolinauer]

Bom dia Reginaldo.
Eu estou usando assim e não obtive problemas a não ser a lentidão para abrir a calculadora do Windows em Win98, já em Xp é mais rápido pode ser por causa da velocidade da máquina, também encontrei o problema de que a calculadora não deixa voltar a tela anterior sem fechar ela, não testei ainda para ver qual o problema disto.

Código: Selecionar todos

Function MyRun
local oShell, RET 
oShell := CreateObject( "WScript.Shell" ) 
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 
oShell := NIL 
return iif( RET = 0, .T., .F. ) 

Estive olhando o fórum e encontrei um tópico para usar o MyRun em Win98, um pouco diferente do de cima, mas com a mesma finalidade, embora que para funcionar tem que executar o comando abaixo.

"- Configurações"
"- Painel de controle"
"- Adicionar/remover programas"
"- Instalação do windows"
"- Acessórios"
"- Detalhes"
"- Marque a opção: [X] Windows scripting Host"
"- Execute este programa novamente"

Estes passos fariam teóricamente funcionar, visto que não precisei executar ainda.

o link abaixo fala sobre isto


https://pctoledo.org/forum/viewto ... a82ceae8c2

Espero que eu tenha ajudado.
Um abraço :xau

[rochinha]

Amiguinho

Provavelmente o recurso de leitura de scripts possa não esar instalado ou desativado por motivos de segurança.

Faça~uma pesquisa no GOOGLE sobre Windows Script Download, baixe a versão correspondente para o 98 e o instale ou verifique nos componentes Windows se este recurso foi instalado.

Por segurança este recurso pode estar desativado para evitar a execução não autorizada de scripts .VBS e .HTA que geralmente são introduzidos em nossas maquinas por hacker ou sites preparados.