oFtp = NEWOBJECT("FTP_SERVICE", "ftp.prg") ? oFTP.OpenInternet("anonymous", "a@b.com","ftp.microsoft.com", "21") ? oFTP.Ftpcommand("SITE HELP", 2, 0, NULL) ? oFTP.getextendederrormsg () ? oFTP.Ftpcommand("SITE STATS", 2, 0, NULL) ? oFTP.getextendederrormsg ()