none
Automatizar o FTP pedindo usuario e senha! RRS feed

  • Pergunta

  • Olá a Todos,

     

    Estou com a seguinte necessidade:

     

    Preciso criar um script que conecta em um servidor via FTP, mas que apareça a janela para digitar usuario e senha para autenticação.

     

    Agradeço pelo espaço.

    terça-feira, 15 de janeiro de 2008 20:35

Respostas

Todas as Respostas

  • Amigo,

     

    Posso te dar o caminho das pedras para você fazer seu script...

    Exemplo de script para conexão FTP:

    1. '///////////////////////////////////////////////////////////////////////////////////
    2. '//
    3. '// Simple v1.0 (9. May 2005)
    4. '//
    5. '// Purpose:
    6. '//   Connects to remote server.
    7. '//
    8. '// Copyright (c) 2005 by SmartFTP.com
    9. '//
    10. '///////////////////////////////////////////////////////////////////////////////////
    11. Dim obj
    12. Set obj = CreateObject("sfFTPLib.FTPConnectionSTA")
    13.  
    14. WScript.Echo "Object created." & vbCrLf
    15.  
    16. Dim result
    17.  
    18. ' Settings
    19. obj.Host = "smartftp.com"
    20. obj.Username = "anonymous"
    21. obj.Password = "test@test.com"
    22. obj.Port = 21
    23. obj.Protocol = 0 ' ftpProtocolNormal
    24. obj.Passive = 1
    25. obj.MLST = 1
    26. ' Enable logging
    27. obj.LogFile = "Connect.log"
    28.  
    29. WScript.Echo "Port = " & obj.Port & vbCrLf
    30.  
    31. ' Connect
    32. result = obj.Connect()
    33. WScript.Echo "Connected" & vbCrLf

     

    Você pode pegar o exemplo acima e fazer alterações para que ele solicite usuário e senha através do comando InputBox.

    Ex:

    strPC = InputBox("Entre com o usuário", Var_Username)

     

    Espero ter ajudado.

     

    Não deixe de classificar a ou as mensagens como "respondido”, caso tenha ajudado.

    Fazendo isso, você estará ajudando outros usuários do Fórum a identificar qual ou quais foram as soluções aplicadas na correção do problema.

     

    Luiz Espínola

    MCTS - Windows 2008 Active Directory       

    MCTS - Windows 2008 Applications Infrastructure

    MCTS - Windows 2008 Network Infrastructure
    MCSE +Security, MCT, MCDBA, Comptia Security+

    IBM CSex, ITIL Foundation, Novell CNA, SCSA Solaris 9, Citrix CCA

     

    quarta-feira, 16 de janeiro de 2008 13:44
  • Luiz obrigado pela ajuda, mas tentei executar e deu erro na linha "Set obj = CreateObject("sfFTPLib.FTPConnectionSTA")"

     

    Erro

    ftp.vbs(14, 1) Erro de  tempo de execução do Microsoft BLOCKED SCRIPT O componente do ActiveX não pode criar
     objeto: 'sfFTPLib.FTPConnectionSTA'

     

    Dúvida:

     

    Para eu usar a opção de prompt pedindo usuario e senha eu devo substituir as informações:

     

    obj.Username = "usuario"
    obj.Password = "senha"

     

    POR


    'strPC = InputBox("Entre com o usuário", Var_Username)

     

    no aguardo.

    quarta-feira, 16 de janeiro de 2008 17:00
  • Recomendo esse link:

     

    http://support.microsoft.com/kb/96269/en-us

     

     

    []s,

    Vinicius

     

    quinta-feira, 17 de janeiro de 2008 16:12
    Moderador