elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda vbscript: envío de archivos ftps		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda vbscript: envío de archivos ftps  (Leído 5,812 veces)
rdmm

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Ayuda vbscript: envío de archivos ftps
« en: 8 Enero 2015, 09:57 am »
Hola,
tengo un script hecho para mandar archivos por ftp y me funciona perfectamente.

Es este:

Código:
Código:
'****************FTP Upload
'Upload a file/folder to an FTP server


Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))
'Path to file or folder to upload
path = "C:\archivos\archivoftp_"&strDate&".csv"

FTPUpload1


Sub FTPUpload1
if Time()>TimeValue("04:00:00") and Time()<TimeValue("04:45:00")Then
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))

On Error Resume Next

'Copy Options: 16 = Yes to All
Const copyType = 16

'FTP Wait Time in ms
waitTime = 80000
 
FTPUser = "user"
FTPPass = "pass"
FTPHost = "ftphost"
FTPDir = "/archivos"

strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)

'Make new folder on FTP site
'objFTP.NewFolder "FTP Backup"


'Upload single file       
If objFSO.FileExists(path) Then

Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = oShell.NameSpace(strParent)

Set objItem = objFolder.ParseName(objFile.Name)

Wscript.Echo "Uploading file " & objItem.Name & " to " & strFTP
 objFTP.CopyHere objItem, copyType


End If


'Upload all files in folder
If objFSO.FolderExists(path) Then

'Code below can be used to upload entire folder
Set objFolder = oShell.NameSpace(path)

Wscript.Echo "Uploading folder " & path & " to " & strFTP
objFTP.CopyHere objFolder.Items, copyType

End If


If Err.Number <> 0 Then
Wscript.Echo "Error: " & Err.Description
End If

'Wait for upload
WScript.Sleep waitTime
End if
End Sub
Ahora necesito hacerlo para mandar archivos por ftps tcp/990 pero todavía no lo he conseguido, a ver si recibo una ayudita!

Qué tengo que cambiar de este script para poder subir por ftps tcp/990 ?
gracias
En línea
BlackM4ster


Desconectado Desconectado

Mensajes: 499


Error, el teclado no funciona. Pulse F1 para continuar


Ver Perfil WWW
Re: Ayuda vbscript: envío de archivos ftps
« Respuesta #1 en: 8 Enero 2015, 12:00 pm »
Código
  1. strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir

Ahí haces una petición ftp usando el puerto estándar

Código
  1. strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & ":990" &  FTPDir

Ahí especificas un puerto


Al final el estándar es:
Código:
servicio://usuario:pass@maquina.dominio:puerto/directorio/fichero.extension
« Última modificación: 8 Enero 2015, 12:03 pm por BlackM4ster » En línea
- Pásate por mi web -
https://codeisc.com
rdmm

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: Ayuda vbscript: envío de archivos ftps
« Respuesta #2 en: 8 Enero 2015, 15:08 pm »
Hola,
en primer lugar muchas gracias por tu ayuda pero no me funciona lo que me has puesto.


He probado también con:
strFTP = "ftps://" & FTPUser & ":" & FTPPass & "@" & FTPHost & ":990" &  FTPDir

POniendo ftps en vez de fpt pero tampoco ha funcionado.
En línea
BlackM4ster


Desconectado Desconectado

Mensajes: 499


Error, el teclado no funciona. Pulse F1 para continuar


Ver Perfil WWW
Re: Ayuda vbscript: envío de archivos ftps
« Respuesta #3 en: 8 Enero 2015, 19:00 pm »
Entonces quizas deberias buscar otro código que haga la peticion de otra forma, ya que por petición de navegador creo que es esa la unica forma de cambiar el puerto. A ver si alguien sabe
En línea
- Pásate por mi web -
https://codeisc.com
rdmm

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: Ayuda vbscript: envío de archivos ftps
« Respuesta #4 en: 9 Enero 2015, 08:26 am »
Gracias. A ver si alguien más me puede ayudar. Saludos.
En línea
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: Ayuda vbscript: envío de archivos ftps
« Respuesta #5 en: 9 Enero 2015, 14:33 pm »
HOLA!!!

Te dejo una funcion mia con winsocks virtuales ;)

No me culpen por usar magia negra en VBS  >:D

Código
  1. 'FTP
  2.     Dim FTPData
  3.     Dim FTPCOMPLETE
  4.     Dim W1
  5.     Dim W2
  6. '/FTP
  7.  
  8.  
  9. Set W1 = WScript.CreateObject("MSWINSOCK.Winsock", "W1_")
  10. Set W2 = WScript.CreateObject("MSWINSOCK.Winsock", "W2_")
  11. Call FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
  12. Set W1 = Nothing
  13. Set W2 = Nothing
  14.  
  15. Function FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
  16.     W1.RemoteHost = FTPServer
  17.     W1.RemotePort = FTPPort
  18.     W1.Connect
  19.     If WaitResponse Then Exit Function
  20.     If FTPCODE <> 220 Then Exit Function
  21.         FTPData = ""
  22.         W1.SendData "USER " & FTPUser & vbCrLf
  23.         If WaitResponse Then Exit Function
  24.     If FTPCODE <> 331 Then Exit Function
  25.         FTPData = ""
  26.         W1.SendData "PASS " & FTPPass & vbCrLf
  27.         If WaitResponse Then Exit Function
  28.     If FTPCODE <> 230 Then Exit Function
  29.         FTPData = ""
  30.         W1.SendData "PASV" & vbCrLf
  31.         If WaitResponse Then Exit Function
  32.     If FTPCODE <> 227 Then Exit Function
  33.         Dim Aux
  34.         Aux = Split(FTPData, ",")
  35.         FTPDataPort = (Aux(UBound(Aux) - 1) * 256) + Left(Aux(UBound(Aux)), InStr(Aux(UBound(Aux)), ")") - 1)
  36.         FTPDataIP = Trim(Replace(Right(Aux(0), 3), "(", vbNullString)) & "." & Aux(1) & "." & Aux(2) & "." & Aux(3)
  37.         FTPData = ""
  38.         W1.SendData "STOR " & SFile & vbCrLf
  39.         W2.RemotePort = FTPDataPort: W2.RemoteHost = FTPDataIP
  40.         W2.Connect
  41.         WaitResponse
  42.     If Not (FTPCODE = "125" Or FTPCODE = "150") Then Exit Function
  43.         FTPUpload = SPath & "\" SFile
  44. End Function
  45.  
  46. Function Upload(FilePath)
  47.     Dim UPFile
  48.     Dim FileLen
  49.     Dim TotalSent
  50.     Dim a
  51.     Set a = WScript.CreateObject("ADODB.Stream")
  52.     a.open
  53.     a.Type = 1
  54.     a.LoadFromFile (FilePath)
  55.     UPFile = a.Read()
  56.     FTPCOMPLETE = False
  57.     W2.SendData UPFile
  58.     EsperaSubida = 0
  59.     Do
  60.         WScript.Sleep 1000
  61.         EsperaSubida = EsperaSubida + 1
  62.         If SendIsComplete = 1 Then Upload = True: Exit Function
  63.         If EsperaSubida > 300 Then Exit Function
  64.     Loop
  65. End Function
  66.  
  67. Sub W1_DataArrival(ByVal bytesTotal)
  68.     W1.GetData FTPData, 8
  69. End Sub
  70.  
  71. Function SendIsComplete()
  72.     SendIsComplete = FTPCOMPLETE
  73. End Function
  74.  
  75. Sub w2_SendComplete()
  76.     FTPCOMPLETE = 1
  77. End Sub
  78.  
  79. Function WaitResponse()
  80.     Espera = 0
  81.     Do
  82.         WScript.Sleep 1000
  83.         Espera = Espera + 1
  84.         If Espera > 10 Then WaitResponse = 1: Exit Function
  85.         If FTPCODE <> 0 Then Exit Function
  86.     Loop
  87. End Function
  88.  
  89. Function FTPCODE()
  90.     If Len(FTPData) > 3 Then FTPCODE = Left(FTPData, 3) Else FTPCODE = 0
  91. End Function

GRACIAS POR LEER!!!
« Última modificación: 9 Enero 2015, 17:31 pm por 79137913 » En línea
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[VBScript] Buscador de Archivos y Carpetas BY 3D1
Scripting 		EddyW 0 5,944 Último mensaje 24 Junio 2009, 00:32 am
por EddyW
Ayuda creacion de apliacion, envio de archivos atravez de winsock
Programación Visual Basic 		sircam666 1 1,781 Último mensaje 15 Julio 2009, 06:47 am
por BlackZeroX
AYUDA - Hacer Operaciones a Archivos Contenidos en Un *.TXT ( VBScript )
Scripting 		robo_z 2 4,600 Último mensaje 12 Enero 2010, 06:35 am
por robo_z
SFTP y FTPS : Diferencias entre SFTP y FTPS para la transferencia segura de ...
Noticias 		wolfbcn 1 4,255 Último mensaje 12 Mayo 2011, 14:56 pm
por [u]nsigned
Ayuda renombrar archivos con VBScript
Scripting 		guillehampp 3 3,752 Último mensaje 28 Enero 2015, 17:10 pm
por Flamer
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines