Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Temas - Atomic

Páginas: [1]
1
Dudas y pedidos generales / [VBA] Ayuda con macro en Excel
« en: Febrero 05, 2016, 02:04:39 pm »
Buen día,

Tengo la siguientes dudas, espero y alguien me pueda ayudar.

Tengo una macro que genera un archivo txt en mis documentos, pero ¿como le puedo hacer para que el nombre del txt siempre sea diferente al generar el archivo? Esto con la finalidad de la sobrescritura del mismo, ya sea que se guarde con el hostname de nombre del txt.

Código: Visual Basic
  1. Sub ip()
  2. Dim programa As String
  3. Dim Ide As Double
  4.     On Error Resume Next
  5. programa = "cmd.exe"
  6. Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
  7.     If Err <> 0 Then
  8.         MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
  9.     End If
  10.  
  11. End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: Visual Basic
  1. Function GetMyPublicIP() As String
  2.  
  3.     Dim HttpRequest As Object
  4.    
  5.     On Error Resume Next
  6.     'Create the XMLHttpRequest object.
  7.    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
  8.  
  9.     'Check if the object was created.
  10.    If Err.Number <> 0 Then
  11.         'Return error message.
  12.        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
  13.         'Release the object and exit.
  14.        Set HttpRequest = Nothing
  15.         Exit Function
  16.     End If
  17.     On Error GoTo 0
  18.    
  19.     'Create the request - no special parameters required.
  20.    HttpRequest.Open "GET", "[url]http://myip.dnsomatic.com[/url]", False
  21.    
  22.     'Send the request to the site.
  23.    HttpRequest.Send
  24.        
  25.     'Return the result of the request (the IP string).
  26.    GetMyPublicIP = HttpRequest.ResponseText
  27.  
  28. End Function
  29.  

Saludos y gracias de antemano.

2
Dudas y pedidos generales / Ayuda con VBA en excel
« 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

3
Dudas y pedidos generales / [SOLUCIONADO] Ayuda con Batch
« en: Septiembre 14, 2015, 01:05:34 pm »
Buenos días,

Necesito apoyo con este script en Batch.

Lo que busco es tener un batch que al ejecutarlo por medio de usb se pueda correr un ipconfig /all y genere un archivo .txt y a la vez lo suba por FTP.

Este es el codigo1(ftpsubida.bat)- Genera un archivo txt con el ipconfig /all
Código: DOS
  1. cmd.exe /c ipconfig /all>testip.txt
  2. open ftp.server
  3. user
  4. password
  5. ascii
  6. put "testip.txt"
  7.  


Codigo2 (ejecutar.bat) - Subida al FTP
Código: DOS
  1. ftp -s:ftpsubida.bat
  2.  
 
El detalle esta en cuando se sube el archivo ftp no contiene nada de información.

Sabran alguna solución a esto?

Gracias de antemano.

Páginas: [1]