'*******************************************************
' File:    sendftp.vbs  
' Author:  (c) Alexander Kir
' Edition: (c) Alexander Kir
'***********************************************************
'Const EXE =
'***********************************************************
ErrorMessege="What is it:"_
+vbCrLf+"	It's a script program sending file or files via ftp"_
+vbCrLf+"	using ftp command"_
+vbCrLf+"Usage:"_
+vbCrLf+"sendftp.vbs <Server> <User> <Pwd> <Where> <From> <ttl> <LogFile>"_
+vbCrLf+"Where:"_
+vbCrLf+"	<Server>	- FTP server name, ex: 192.168.0.3"_
+vbCrLf+"	<User>		- User name, ex: User"_
+vbCrLf+"	<Pwd>		- Password, ex: fig tebe example..."_
+vbCrLf+"	<Where>	- A directory on FTP server to uploading files"_
+vbCrLf+"	<From>		- Any file to sending"_
+vbCrLf+"	<ttl>		- Time to live in seconds, ex 300 (5 minutes)"_
+vbCrLf+"	<LogFile>	- File for logging"_
+vbCrLf+""_
+vbCrLf+"Example: "_
+vbCrLf+"	sendftp.vbs <Server> <User> <Pwd> <Where> <From> <ttl> <LogFile>"_
+vbCrLf+""_
+vbCrLf+"						(c) Alexander Kir"

'look how many argumens passed!?

Set objArgs = WScript.Arguments 
If objArgs.Count < 5  Then 
	MsgBox ErrorMessege,vbOKOnly & vbCritical, "!"
	WScript.Quit  1     
End If

'ok All arguments passed 
dim Server, User, Pwd, Where, From ' LogFile
Server=objArgs( 0 )
strUser=objArgs( 1 )
strPwd=objArgs( 2 )
Where=objArgs( 3 )
From=objArgs( 4 )
ttl=CInt(objArgs( 5 ))

Dim LogFile

If objArgs.Count > 5  Then 
	LogFile=objArgs( 6 )
Else
	LogFile="" 'no logging
End If

'script procedure for writing log messages
Sub WriteLog(ByVal Message)
	If LogFile="" Then
		'no logging
		'just say it
		wscript.echo(FormatDateTime(Now) & " : " & Message)
	Else
		Dim FSObj, Log
		Set FSObj = CreateObject("Scripting.FileSystemObject")
		Log = ""
		On Error Resume Next
		Set Log = FSObj.OpenTextFile(LogFile,  8 , True)
		Log.WriteLine (FormatDateTime(Now) & " ; " & Message)
		Log.Close
		FSObj = ""
	End If
End Sub

'make ftpscript
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ftpscript 'need to make a uniq ftp script file
'ftpscript="ftp"+CStr(Year(Now()))+Right("0"+CStr(Month(Now())),2)+Right("0"+CStr(Day(Now())),2)+"_"+CStr(Random())+".ftp"
ftpscript="" & fso.GetTempName 
Set IniFile = fso.OpenTextFile(ftpscript,  2  ,  1 ) 'ForWriting=2
	IniFile.WriteLine "prompt"
	IniFile.WriteLine "open " & Server
	IniFile.WriteLine "" & strUser
	IniFile.WriteLine "" & strPwd
	IniFile.WriteLine "cd " & Where
	IniFile.WriteLine "mput " & From
	IniFile.WriteLine "close"
	IniFile.WriteLine "bye"
	IniFile.Close
IniFile = ""

WriteLog("Create " & ftpscript)

Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.Run "ftp -s:" & ftpscript,, True
Dim oExec
Set oExec = WshShell.Exec("ftp -s:" & ftpscript)
waitsecons= 0 

Do While (oExec.Status =  0 ) and (waitsecons<ttl) 'Wating less then 5 minutes
	'redirect input, output and err
	WScript.Sleep  100 
	waitsecons=waitsecons+ 0 . 1 
Loop

workdonewell= 1 
if oExec.Status =  0  Then
	workdonewell= 0 
	WriteLog("Task terminated in " & ttl &" seconds " & ftpscript)
	oExec.Terminate()
End If
If (fso.FileExists(ftpscript)) Then
   fso.DeleteFile(ftpscript)
End If
if workdonewell= 1  Then
	WriteLog("Work done " & ftpscript)
End If