Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Clauido José

Excutando um arquivo exe

Por , em ASP Clássico

Recommended Posts

Clauido José    3

Clauido José
Postado

Galera tenho que fazer um script para executar uma rotina em vb esse para pode acessar uma intranet em asp tem como fazer isso essa rotina é uma arquivo executalve.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

você pode criar componentes em Visual Basic, registrá-los e executá-los.

 

Dê um pesquisada em componentes Visual Basic. E veja se lhe atende.

 

Dúvidas é só postar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

PF Webmaster    0

PF Webmaster
Postado

Claúdio,

 

Como o jothaz disse, criar o componente, registrá-lo e usá-lo é a melhor opção, mas em todo caso, você pode usar o WSScript.Shell e rodar o executável diretamente, via shell do windows.

 

Dúvidas, poste aqui.

 

[]'s

 

Pedro Felipe.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Clauido José    3

Clauido José
Postado

Bom cara é seguinte no pc ta funcionando certinho mas na hora que subi pro servidor ele ta dando erro um erro

 

Microsoft VBScript runtime error '800a01ad'

 

ActiveX component can't create object: 'WScript.Shell'

 

/upload/infect.asp, line 7

 

essa rotina que criei gera uma dll na qual minha intranet precisa pra trabalhar tentei fazer isso via asp mas nao consigo so via vb.

 

Essa rotina faz toda todia na emrpesa que trabalho tem usuario novo entao pra nao ter que ficar instalando essa dll toda hora crie uma rotina no vb 6.0 que copia a dll pra windows\system32 e registra ela e agora tenho que executar essa rotina

 

Ai vai codigo simples mas no serve nao funciona

<html>

<head><title>Registra Dll</title><head>

<body bgcolor=white text=black>

<%

Dim WshShell, oExec

caminho=server.MapPath("Registardll.bat")

Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec(caminho)

 

'Do While oExec.Status = 0

' WScript.Sleep 100

'Loop

 

'WScript.Echo oExec.Status

 

Set oExec = Nothing

Set WshShell = Nothing

 

%>

 

</body>

</html>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

PF Webmaster    0

PF Webmaster
Postado

Segundo o Windows, ele possivelmente não tem o componente WScript.Shell, ou ele está desabilitado.

 

Vou ler a respeito e te dou uma resposta mais concreta.

 

Pedro Felipe.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ou você pode usar um componente para fazer isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tentou o DynuExec, ASPexec

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito