Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- cls
- :: Rotulo: Menu
- :menu
- :: Dimensao de Tela
- mode 90,30
- :: Configuracoes Iniciais
- echo -----------------------------
- echo = Usuario: %username%
- echo = Computador: %computername%
- echo = Data: %date:/=-%
- echo = Hora:%time:~0,-6%
- echo -----------------------------
- echo.
- :: Tela Inicial
- color B
- echo ----------------
- echo * MENU *
- echo ----------------
- echo.
- echo [1] Analisando Servicos
- echo [2] Inicio de Servico
- echo [3] Configurando Servico
- echo [4] Deletando Servico
- echo [5] Saida
- echo.
- :: Escolha
- choice /c "12345" /n /m "Opcao: "
- goto %errorlevel%
- :::::::::::::::::: FUNCOES ::::::::::::::::::
- :: Analisando Servicos
- :1
- :: Servicos
- services.msc
- :: Retorno de Menu
- goto menu
- :: Inicio de Servicos
- :2
- :: Tela Inicial
- cls
- color E
- echo ----------------------
- echo * RESULTADOS *
- echo ----------------------
- echo.
- :: Criacao de Pasta e Mudanca de Diretorio
- mkdir %userprofile%\Inicia
- cd %userprofile%\Inicia%
- :: Criacao de Arquivo ".bat"
- (echo control.exe ) > Painel.bat
- :: Criar Servico
- sc create Inicia type= own start= auto displayname= "ZyclonGamma" binpath="%userprofile%\Inicia\Painel.bat"
- :: Analisar Servico
- sc query Inicia
- pause > nul
- :: Retorno de Menu
- goto menu
- ::
- :3
- :: Tela Inicial
- cls
- color E
- echo ----------------------
- echo * RESULTADOS *
- echo ----------------------
- echo.
- :: Entrada de Dados
- set /p servico=- Digite o Nome do Servico:
- :: Mudanca de Nome do Servico
- sc config Inicia displayname= "%servico%"
- :: Retorno de Menu
- goto menu
- ::
- :4
- :: Tela Inicial
- cls
- color E
- echo ----------------------
- echo * RESULTADOS *
- echo ----------------------
- echo.
- :: Delete Servico
- sc delete Inicia
- pause > nul
- :: Retorno de Menu
- goto menu
- :: Saida
- :5
- :: Mensagem
- msg /w * "O script sera encerrado !!"
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement