XML nas Nuvens

[jelias]

Amigos,

Alguém pode compartilhar a experiência de armazenamento de arquivos XML´s das NF-e nas nuvens?
Qual o serviço utilizado?
Como é feito a integração?

Desde já agradeço,

Saudações,

Júlio.

[rochinha]

Amiguinhos,

Em meu sistema eu gero um arquivo .VBS com o seguinte conteúdo e o executo:

Código: Selecionar todos

// Coloque suas informações de FTP
strFTPServerName   = "153.169.40.201"
strFTPServerFolder = "/NFe"
strLoginID         = "usuario@provedor.com.br"
strPassword        = "Senha@123"

// Coloque o CNPJ do seu cliente
strCNPJCliente     = "00000000000000"

// Configure as pastas onde se encontram os XMLs e PDFs
strFile2PutGet     = "C:\SISTEMA\NFE\35180400000000000000550010000080181000080183-nfe.XML"
strFile2PutGetPDF  = "C:\SISTEMA\NFE\35180400000000000000550010000080181000080183-nfe.pdf"

// Coloque o caminho da pasta que contem os arquivos XMLs e PDFs que serao enviados
strLocalFolderName = "C:\SISTEMA\nfe"

// Arquivo de script FTP que sera gerado
strFTPScriptFileName = strLocalFolderName & "\nfeftpfile.txt"

// Script de geração da operação de FTP
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
   objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
    objMyFile.WriteLine ("open " & strFTPServerName)
    objMyFile.WriteLine (strLoginID)
    objMyFile.WriteLine (strPassword)
    objMyFile.WriteLine ("mkdir " & strFTPServerFolder & "/" & strCNPJCliente)
    objMyFile.WriteLine ("cd " & strFTPServerFolder & "/" & strCNPJCliente)
    objMyFile.WriteLine ("hash")
    objMyFile.WriteLine ("lcd " & strLocalFolderName)
    objMyFile.WriteLine ("put " & strFile2PutGet)
    objMyFile.WriteLine ("put " & strFile2PutGetPDF)
    objMyFile.WriteLine ("bye")
    objMyFile.WriteLine ("quit")
    objMyFile.Close
Set objFSO = Nothing
Set objMyFile = Nothing
Set objShell = WScript.CreateObject( "WScript.Shell" )

// Comando FTP
objShell.Run ("ftp -s:" & chr(34) & strFTPScriptFileName & chr(34))
Set objShell = Nothing

[JoséQuintas]

Só a título de curiosidade, eu fazia uso de VBScript desde os tempos do Clipper.
No W10 ainda existe o aplicativo wscript.exe

RUN ( "wscript.exe arquivo.vbs" )

Já o ftp.exe ..... lembrando que é perigoso porque deixa o arquivo com possíveis senhas à disposição do usuário, tanto em VBScript quanto deste modo:

RUN ( "ftp.exe < cmd.txt" )

Faz tempo que não uso nenhum dos dois, exceto o FTP.EXE, mas pra uso eventual, fora do aplicativo.

[rochinha]

Amiguinhos,

JoséQuintas
O Shell.Run irá executar o Cscript ou WScript.

Quanto a vulnerabilidade, no exemplo que passei o arquivo é gerado para cada envio de um .XML podendo ser excluído após o final do comando RUN.

Na verdade o arquivo acima é gerado pelo sistema que é executado pelo RUN() que por consequencia executa o FTP.EXE pelo ShellRun.