VBScript

Get the FTP Server System Type (SYST)

Demonstrates the Chilkat Ftp2.Syst method, which sends SYST and returns the server's operating-system type reply. It takes no arguments.

Background: The SYST reply (for example UNIX Type: L8 or Windows_NT) hints at how the server formats things like legacy directory listings, which historically varied by platform. Chilkat uses it internally to parse such listings; you rarely need to call it directly, but it is useful for diagnostics or when adapting to an unusual server.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the Ftp2.Syst method, which sends SYST and returns the server's operating-system
'  type reply.  It takes no arguments.

set ftp = CreateObject("Chilkat.Ftp2")

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password = "myPassword"

'  Connect and log in (Connect performs both).
success = ftp.Connect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

'  Chilkat can use the SYST reply when interpreting legacy directory listings.
systemType = ftp.Syst()
If (ftp.LastMethodSuccess = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Server system type: " & systemType)

success = ftp.Disconnect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If


outFile.Close