Vous n'êtes pas identifié(e).
par exemple une liste de ports pour le ftp passif :
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
dim i
for i=60000 to 60100
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = i
objPort.Name = "Port FTP passif "&i
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
next
ici les ports allant de 60000 à 60100 pour permettre 100 connexions ftp...
Hors ligne