Gene6 FTP Server

'==========================================================================
'
' NAME: LogInOut.vbs v1.2
'
'Version history:
'v.1.2 - added autorefresh to html code generated.
'v.1.1 - added possibility to send HTML file to remote HTTP server thru ftp protocol
'v.1.0 - just did it
'
' AUTHOR: tatuk
' DATE : 02/27/2005
'
' COMMENT:
'This program puts information of ftp connections in HTML file to HTTP
'server (local to Gene6 Server or remote).
'You could call resulting HTML file usin something like this:
'
' http://myserver.com/LogInOut/who.html
'
'HTML file includes username, time of connection established, type of command sent to
'ftp server and name of file uploaded/downloaded (file names could be excluded
'for security reasons), connection speed.
'
'HTTP server could be local to Gene6 FTP Server (same computer or shared resource
'accessible by LAN) as well as remote.
'In case of remote HTTP server there should be possible to establish ftp connection
'between HTTP server and Gene6 FTP Server. All settings for ftp connection must be provided.
'
'Connection info updates every 5 minutes as well as users log on/out by re-creating HTML file.
'Users browsers are autorefreshing every 120 sec.
'==========================================================================
Const sName = "Certplus FTP Server"
Const HTMLFile = "Who.html"
'
'Do you want to show file names are DLed/ULed by clients in generated HTML file?
'Overwise, it will show only "Uploading" or "Downloading"
Const toLogFileNames = True
'
'If you use remote HTTP server, set it TRUE
'Overwise set it False
Const toRemoteHTTP = True
'
'If you have HTTP server locally with FTP server, change path to WWWROOT.
'Overwise leave it intact.
'
Const LocalPath = "C:\Inetpub\wwwroot\"
'
'Here're definitions for remote HTTP server.
'You will copy HTML file there using standard ftp.com utility
'If you set toRemoteHTTP = False, leave intact all settings below
'
'Name of file with ftp commands
Const CommandFile = "FTPpara.txt"
'If you have problems to copy to remote site, let's log ftp connection to remote server
'to check it up later.
'If you are OK with FTPing, set it False
Const toLog = False
'Where to log ftp connection
Const LogFile = "FTPLog.log"
'If you don't have command file for ftp connection yet (or you changed ftp account), set it True
'If you already did it, to save resources set it False
Const toCreateCommandFile = True
'Parameters of command file for ftp connection:
'Remote FTP site name
Const HTTPSiteName = "myserver.com"
'Username
Const FTPUserName = "u35813561"
'Password
Const Password = "password"
'Remote folder on FTP server
Const RemotePath = "/LogInOut/"