Script:

' Script para instalar o serviço winvnc do UltraVNC e configurá-lo para iniciar automaticamente

Option Explicit

Dim objShell, strServiceName, strServicePath, strCommand

' Nome do serviço
strServiceName = "winvnc"

' Caminho do executável do serviço
strServicePath = """C:\Program Files (x86)\UltraVNC\winvnc.exe"""

' Comando para criar o serviço
strCommand = "sc create " & strServiceName & " binPath= " & strServicePath & " start= auto"

' Inicializa o objeto Shell
Set objShell = CreateObject("WScript.Shell")

' Executa o comando para criar o serviço
objShell.Run strCommand, 0, True

' Comando para iniciar o serviço
strCommand = "sc start " & strServiceName

' Executa o comando para iniciar o serviço
objShell.Run strCommand, 0, True

' Libera o objeto Shell
Set objShell = Nothing

WScript.Echo "Serviço " & strServiceName & " instalado e iniciado com sucesso."

Como Executar o Script:

1. Abra o Bloco de Notas (Notepad).
2. Copie e cole o código acima no Bloco de Notas.
3. Salve o arquivo com a extensão .vbs, por exemplo, instalar_servico_vnc.vbs.
4. Clique com o botão direito no arquivo salvo e selecione "Executar como administrador".
5. O script será executado e o serviço winvnc será instalado e configurado para iniciar automaticamente com o Windows.