none
Copia de Arquivos entre redes RRS feed

  • Pergunta

  • Pessoal Boa Tarde!

    Preciso da ajuda devoces?

    onde trabalho tenho duas redes que se comunicam apenas por um Desktop que estalivre no AccessList, conforme informação do ADM de rede.

    Exemplo:

    Rede 1 (rede segura e coorporativa)

    rede 2 / 3 /  (rede não segura) - roda apenas um sistema que irá gerar um arquivo dirario e que esse script deve ter como objetivo copiar esse arquivo gerado e encaminhar para a maquina que iremos fazer a ponte entre a rede segura e rede nao segura.

    Hoje faço agendamento do windows com um batch utilizando xcopy e move, mais o administradores qui pediram um script para entrar automatico e nao mais por agendamento, pretendemos comocar como serviço e nao ficar preso por agendamento e usuario....

    Obrigado pela aajuda

    segunda-feira, 15 de agosto de 2011 17:42

Respostas

  • Helio Bom dia,
    Acho que nao é possivel colocar nem VBS nem Bat para iniciar como serviço do pc, nao funcionaram meus testes, se alguem tiver uma solução ajudem por favor...
    Oque eu consegui é um script que fica monitorando a pasta para quando for criado um arquivo ele mostra uma msg voce pode alterar para rodar sua bat... ou pode fazer a copia via vbs você escolhe
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    
     & "{impersonationLevel=impersonate}!\\" & _
    
     strComputer & "\root\cimv2")
    
    Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    
     ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
    
     & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
    
     & "TargetInstance.GroupComponent= " _
    
     & "'Win32_Directory.Name=""c:\\\\scripts""'")
    
    
    Do
    
     Set objLatestEvent = colMonitoredEvents.NextEvent
    
     Wscript.Echo objLatestEvent.TargetInstance.PartComponent
    
    Loop
    
    
    Comando para chamar .BAT
    Set WSHShell = CreateObject("Wscript.Shell")
    WSHShell.Run ("c:\myBatfile.bat") 
    
    


    Abraços

    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.


    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:16
    terça-feira, 16 de agosto de 2011 13:06

Todas as Respostas

  • Helio Bom dia,
    Acho que nao é possivel colocar nem VBS nem Bat para iniciar como serviço do pc, nao funcionaram meus testes, se alguem tiver uma solução ajudem por favor...
    Oque eu consegui é um script que fica monitorando a pasta para quando for criado um arquivo ele mostra uma msg voce pode alterar para rodar sua bat... ou pode fazer a copia via vbs você escolhe
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    
     & "{impersonationLevel=impersonate}!\\" & _
    
     strComputer & "\root\cimv2")
    
    Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    
     ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
    
     & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
    
     & "TargetInstance.GroupComponent= " _
    
     & "'Win32_Directory.Name=""c:\\\\scripts""'")
    
    
    Do
    
     Set objLatestEvent = colMonitoredEvents.NextEvent
    
     Wscript.Echo objLatestEvent.TargetInstance.PartComponent
    
    Loop
    
    
    Comando para chamar .BAT
    Set WSHShell = CreateObject("Wscript.Shell")
    WSHShell.Run ("c:\myBatfile.bat") 
    
    


    Abraços

    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.


    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:16
    terça-feira, 16 de agosto de 2011 13:06
  • Ola Helio,

    Conseguiu testar o codigo, funcionou?

     

    Abraços


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 22 de agosto de 2011 23:37