comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Ayuda con VBA en excel

  • 0 Respuestas
  • 532 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Atomic

  • *
  • Underc0der
  • Mensajes: 15
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« en: Enero 28, 2016, 01:42:12 pm »
Buenos dias,

He estado tratando de hacer un excel que al momento de abrirlo capture la información del sistema mediante un shell y lo guarde en un txt en mis documentos, y que ya guardado ese txt lo suba a un servidor FTP o lo envie por correo.

Hasta el momento solo tengo el script VBA para generar el txt con el SYSTEMINFO pero no se como enviarlo via FTP o mail.

Entontre este script para el upload ftp pero no se como adaptarlo:

Código: Visual Basic
  1. Public Sub FtpSend()
  2.  
  3. Dim vPath As String
  4. Dim vFile As String
  5. Dim vFTPServ As String
  6. Dim fNum As Long
  7.  
  8. vPath = ThisWorkbook.Path
  9. vFile = "YourFile.csv"
  10. vFTPServ = "********"
  11.  
  12. 'Mounting file command for ftp.exe
  13. fNum = FreeFile()
  14. Open vPath & "\FtpComm.txt" For Output As #fNum
  15. Print #1, "user ***** *****" ' your login and password"
  16. Print #1, "cd TargetDir"  'change to dir on server
  17. Print #1, "bin" ' bin or ascii file type to send
  18. Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file
  19. Print #1, "close" ' close connection
  20. Print #1, "quit" ' Quit ftp program
  21. Close
  22.  
  23. Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus
  24.  
  25. SetAttr vPath & "\FtpComm.txt", vbNormal
  26. Kill vPath & "\FtpComm.txt"
  27.  
  28. End Sub
  29.  

Si alguien me pudiera orientar a adaptarlo, se los agradecería mucho. Gracias
« Última modificación: Febrero 06, 2016, 04:37:34 pm por EPSILON »

 

¿Te gustó el post? COMPARTILO!



[SOLUCIONADO] Ayuda urgente con Virus "Virus.Win32Sality"

Iniciado por Napsters

Respuestas: 6
Vistas: 3484
Último mensaje Junio 11, 2012, 03:38:18 am
por Satyricon
"ayuda con fruitywifi-karma" no puedo activar el modulo karma.

Iniciado por cristobal92

Respuestas: 4
Vistas: 1308
Último mensaje Agosto 02, 2016, 12:03:45 pm
por cristobal92
[JAVA] Ayuda Sockets en Java

Iniciado por FERNANDX

Respuestas: 1
Vistas: 554
Último mensaje Abril 25, 2018, 08:49:50 pm
por Mortal_Poison
[Ayuda] Crear .zip o .rar de un "archivo"

Iniciado por Zentraedi

Respuestas: 5
Vistas: 1479
Último mensaje Marzo 03, 2017, 02:15:20 pm
por Zentraedi
[SOLUCIONADO] Ayuda Contraseña "Sqlmap"

Iniciado por djtrueno

Respuestas: 1
Vistas: 1350
Último mensaje Enero 17, 2014, 06:07:37 pm
por ANTRAX