FTP en ASP Classic

[GowaP]

Voici un exemple de script en PowerShell qui accède au FTP. Pour le FTP d'un AS400, l'astuce est d'ajouter le « %2f » qui permet de basculer en « Site NameFmt 1 » automatiquement.

Quelqu'un pourrait me convertir ce code en « ASP Classic » ?

$ftpPath = "ftp://SvrAS400/%2fPARTAGE/"
$ftpUser = "utilisateur"
$ftpPass = "motdepasse"
 
$WebClient = New-Object System.Net.WebClient
$WebClient.Credentials = New-Object System.Net.NetworkCredential($ftpUser,$ftpPass)
$WebClient.BaseAddress = $ftpPath
 
$Request = [Net.FtpWebRequest]::Create($ftpPath)
$Request.Credentials = $webclient.Credentials
$Request.Method = [System.Net.WebRequestMethods+FTP]::ListDirectory
$Request.UseBinary = $False
$Request.KeepAlive = $False
 
$Response = $Request.GetResponse()
$ResponseStream = $Response.GetResponseStream()
 
$StreamReader = New-Object System.IO.Streamreader $ResponseStream
$DirListing = (($streamReader.ReadToEnd()) -split [Environment]::NewLine)
$StreamReader.Close()
 
$Response.Close()
$DirListing