salve a tutti io ho questo script
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 unocodice:<%@ 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) ) %>

Rispondi quotando

