none
Copiar arquivos da rede e criar um SERVIÇO. RRS feed

  • Pergunta

  •  

    Vamos lá, só está faltando uma UNICA coisa pra colocar meu Script em producao...

     

    Tenho 3 arquivos no meu servidor (\\servidor\vnc\) sao:

    wm_hooks.dll

    winvnc4.exe

    logmessages.dll

    A minha necessidade é, CRIAR UMA PASTA EM %windir%\REALVNC e copiar os 3 arquivos para dentro desse diretorio. Preciso tambem que antes de copiar os arquivos o script verifique se esses arquivos ja existem nesse local (para nao consumir link, afinal temos sites REMOTOS). Enfim, se algum dos arquivos estiver faltando, ele copiaria apenas o arquivo que falta (se isso for complicado, o script poderia verificar se ALGUM desses 3 itens estao faltando e se sim, ai copia tudo do servidor para esse diretorio).

    Bom, ate aqui o script deve copiar os arquivos VERIFICANDO a existencia dos mesmos.

    Depois, gostaria que o script CRIASSE um SERVIÇO para o VNC rodar na maquina. Hoje isso é feito com um utilitario chamado SC.exe só que usando uma BAT para fazer isso... no caso, na minha BAT ,hoje essa parte que cria o serviço esta assim:

    \\SERVIDOR\netlogon\SC create WinVNC binpath= "%windir%\realvnc\WinVNC4.exe -service" type= own type= interact start= auto 

     

    Quero que o Script faça a criação desse serviço sem precisar desse utilitario.

     

    Bom, espero que os amigos da comunidade possam me ajudar.


    Albert Santos
    terça-feira, 1 de junho de 2010 17:01

Respostas

Todas as Respostas

  • Pessoal, encontrei esse script que nao FAÇO IDEIA PRA QUE Q SERVER, mas ele cria um serviço assim como eu quero. Mas nao estou conseguindo adapta-lo para a minha necessidade. 

    Segue abaixo:

     

    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("Dbservice" ,"NAME_Process" , _

        "C:\windows\system32\db.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL,_

            "Automatico", NOT_INTERACTIVE, "NT AUTHORITY\LocalService", ""  )

     

     

    Se alguem tiver alguma sugestao agradeço. Abs


    Albert Santos
    • Editado Santos Ber terça-feira, 1 de junho de 2010 19:33 Correção
    terça-feira, 1 de junho de 2010 17:31
    • Marcado como Resposta Santos Ber quarta-feira, 14 de julho de 2010 14:03
    quarta-feira, 14 de julho de 2010 14:03