Scripts - Serviços - Instalar Serviço

Instala Serviço no Windows

O script a seguir pode auxiliar na instalação de um serviço do Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário.

instruções para utilização do script.

• Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs
• Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

'Título = Instala um serviço
'Pagina = SUPORTE & SCRIPTS - scriptonita.blogspot.com
'versão = Beta 1.0
'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com

'--------------------------------------------------------------------------------
'Nota:'O usuario deve possuir privilégios administrativos na estação.
'O script deve ser ajustado de acordo com sua finalidade.

'Inicio'--------------------------------------------------------------------------------

'Variáveis e Constantes
'--------------------------------------------------------------------------------
Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")

errReturn = objService.Create("Teste_Service" ,"Teste para criar um Serviço" , _
"c:\windows\system32\teste.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL,_
"Manual", NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" )

WScript.Echo "Concluído"

'**Fim do código****************************************************************

Ass Marcelo Montezuma