Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 17
  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43

    Unico FTP per unire 6 server

    salve a tutti io ho questo script

    codice:
    <%@ Language=VBScript %>
    <%
    
    
    Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult
    Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put
    
    
    ftp_address          = "ftp.server.com"
    ftp_username         = "username"
    ftp_password         = "password"
    ftp_remote_directory = "subdirectory" 
    ftp_files_to_put     = "file.txt"     
    
    On Error Resume Next
    
    Set oScript = Server.CreateObject("WSCRIPT.SHELL")
    Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    
    Set objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"))
    
    objTextFile.WriteLine "lcd " & Server.MapPath(".")
    objTextFile.WriteLine "open " & ftp_address
    objTextFile.WriteLine ftp_username
    objTextFile.WriteLine ftp_password
    
    
    If ftp_remote_directory <> "" Then
       objTextFile.WriteLine "cd " & ftp_remote_directory
    End If
    
    objTextFile.WriteLine "prompt"
    
    
    If Instr(1, ftp_files_to_put, "*",1) Then
       objTextFile.WriteLine "mput " & ftp_files_to_put
    Else
       objTextFile.WriteLine "put " & ftp_files_to_put
    End If
    
    objTextFile.WriteLine "bye"
    
    objTextFile.Close
    Set objTextFile = Nothing
    
    
    strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
    strTempFile = "C:\" & oFileSys.GetTempName( )
    
    
    Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True)
    Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
    
    On Error Resume Next
    strCommandResult = Server.HTMLEncode( oFile.ReadAll )
    oFile.Close
    
    
    Call oFileSys.DeleteFile( strTempFile, True )
    Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
    Set oFileSys = Nothing
    Set objFSO = Nothing
    
    
    Response.Write( Replace( strCommandResult, vbCrLf, "
    ", 1, -1, 1) )
    %>
    vorrei far in modo che siccome ho 6 server e per vedere ogni volta che ho nel server devo aprire 6 ftp vorrei facilitarmi le cose unendo con una specie di raid i sei hard disk in modo che quando accedo al ftp del ip master di un server scelto da me vedrò tutti gli altri come slave in modo che riesco a vedere tutti e sei come se fosse uno

  2. #2
    scusa, ma cosa c'entra asp? quello script in fondo apre un client, e il client vede un server alla volta. forse con un client diverso puoi farlo...

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    e cosa posso usare per far si che quando apro vedo tutti e sei?

  4. #4
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,781
    quando accedi al server accedi ad un'unica partizione.

    devi agire lato macchina impostando il controller raid.


    altrimenti puoi esplorare le partizioni se imposti i permessi

  5. #5
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    il raid funziona solo se agisco sulla stessa macchina non su macchine diverse con diverso ip

  6. #6
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,781
    ovvio

    puoi impostare sei accessi differenti, magari in sei frame

    edit: quella specie di frittata "tutto in uno" non credo si possa fare causa violazione della sicurezza

  7. #7
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    mi potresti proporre un semi script giusto x capire più o meno? grazie cosi ci provo a elaborarlo

  8. #8
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,781
    in che senso? il tuo non funziona? (non ho letto)

    se funziona crea sei file ftp1.asp ftp2.asp ecc
    e li raccogli in un normale frameset html

  9. #9
    Utente di HTML.it
    Registrato dal
    Feb 2010
    Messaggi
    43
    vorrei capire il funzionamento del codice da inserire dentro...
    potresti farmi un esempio del codice?

  10. #10
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,781
    non ho capito quale parte di codice...

    il tuo script funziona? accedi?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.