REGISTRAR UM SERVICO VIA VBS
EU FAÇO ASSIM EM DOS
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe
NET START enviocte
QUERO FAZER EM VBScript, alguem pode me ajudar.
Dim objScript
Set objScript = CreateObject([Ô]WScript.Shell[Ô])
ShellApp = objScript.Run([Ô]D:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe D:\WINDOWS\SYSTEM32\enviocte.exe[Ô])
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe
NET START enviocte
QUERO FAZER EM VBScript, alguem pode me ajudar.
Dim objScript
Set objScript = CreateObject([Ô]WScript.Shell[Ô])
ShellApp = objScript.Run([Ô]D:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe D:\WINDOWS\SYSTEM32\enviocte.exe[Ô])
amigo tente fazer isso usando somente o comando shell que ele vai ler como se fosse o própio dos ou fassa um seguinte:
crie um sub:
________________________________________________________
Private Sub Esperar(ByVal Segundos As Integer)
Dim Final As Date = TimeOfDay.AddSeconds(Segundos)
Whlle Not TimeOfDay.Second = Final.Second
Application.DoEvents
End While
End Sub
_________________________________________________________
depois coloque isso no botão:
_________________________________________________________
shell ([Ô]C:\WINDOWS\system32\cmd.exe[Ô], vbMaximizedFocus)
esperar (2)
sendkeys.send ([Ô]C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe[Ô])
esperar (1)
sendkeys.send ([Ô]{enter}[Ô])
esperar (5)
sendkeys.send ([Ô]NET START enviocte[Ô])
esperar (3)
sendkeys.send ([Ô]{enter}[Ô])
esperar (5)
shell ([Ô]C:\WINDOWS\system32 askkill /im cmd.exe /f[Ô])
msgbox ([Ô]serviço criado com sucesso[Ô])
_________________________________________________________
caso voce queira tudo por vb fassa isso no botão:
_________________________________________________________
shell ([Ô]C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe[Ô])
esperar (5)
shell ([Ô]C:\WINDOWS\system32\NET.exe START enviocte[Ô], true)
msgbox ([Ô]serviço criado com sucesso[Ô])
___________________________________________________________
espero que tenha ajudado
crie um sub:
________________________________________________________
Private Sub Esperar(ByVal Segundos As Integer)
Dim Final As Date = TimeOfDay.AddSeconds(Segundos)
Whlle Not TimeOfDay.Second = Final.Second
Application.DoEvents
End While
End Sub
_________________________________________________________
depois coloque isso no botão:
_________________________________________________________
shell ([Ô]C:\WINDOWS\system32\cmd.exe[Ô], vbMaximizedFocus)
esperar (2)
sendkeys.send ([Ô]C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe[Ô])
esperar (1)
sendkeys.send ([Ô]{enter}[Ô])
esperar (5)
sendkeys.send ([Ô]NET START enviocte[Ô])
esperar (3)
sendkeys.send ([Ô]{enter}[Ô])
esperar (5)
shell ([Ô]C:\WINDOWS\system32 askkill /im cmd.exe /f[Ô])
msgbox ([Ô]serviço criado com sucesso[Ô])
_________________________________________________________
caso voce queira tudo por vb fassa isso no botão:
_________________________________________________________
shell ([Ô]C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installUtil.exe c:\Arquivos de programas\CQS\Setup Envio Cte\enviocte.exe[Ô])
esperar (5)
shell ([Ô]C:\WINDOWS\system32\NET.exe START enviocte[Ô], true)
msgbox ([Ô]serviço criado com sucesso[Ô])
___________________________________________________________
espero que tenha ajudado
Tópico encerrado , respostas não são mais permitidas