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: (VB) [Seleccionar]
Sub ip()
Dim programa As String
Dim Ide As Double
    On Error Resume Next
programa = "cmd.exe"
Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
    If Err <> 0 Then
        MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
    End If

End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: (VB) [Seleccionar]
Function GetMyPublicIP() As String

    Dim HttpRequest As Object
   
    On Error Resume Next
    'Create the XMLHttpRequest object.
    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")

    'Check if the object was created.
    If Err.Number <> 0 Then
        'Return error message.
        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
        'Release the object and exit.
        Set HttpRequest = Nothing
        Exit Function
    End If
    On Error GoTo 0
   
    'Create the request - no special parameters required.
    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
   
    'Send the request to the site.
    HttpRequest.Send
       
    'Return the result of the request (the IP string).
    GetMyPublicIP = HttpRequest.ResponseText

End Function

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: (vb) [Seleccionar]
Public Sub FtpSend()

Dim vPath As String
Dim vFile As String
Dim vFTPServ As String
Dim fNum As Long

vPath = ThisWorkbook.Path
vFile = "YourFile.csv"
vFTPServ = "********"

'Mounting file command for ftp.exe
fNum = FreeFile()
Open vPath & "\FtpComm.txt" For Output As #fNum
Print #1, "user ***** *****" ' your login and password"
Print #1, "cd TargetDir"  'change to dir on server
Print #1, "bin" ' bin or ascii file type to send
Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file
Print #1, "close" ' close connection
Print #1, "quit" ' Quit ftp program
Close

Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus

SetAttr vPath & "\FtpComm.txt", vbNormal
Kill vPath & "\FtpComm.txt"

End Sub

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) [Seleccionar]
cmd.exe /c ipconfig /all>testip.txt
open ftp.server
user
password
ascii
put "testip.txt"


Codigo2 (ejecutar.bat) - Subida al FTP
Código: (dos) [Seleccionar]
ftp -s:ftpsubida.bat
exit

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]