Annonce

Bonjour et bienvenue sur l'espace support de Asrun Network !


ATTENTION : pour toute nouvelle inscription, si un message n'a pas été posté dans les 2 jours qui suivent, le compte sera automatiquement supprimé !

#1 2009-10-07 17:14:53

Freemaster
Responsable
Lieu : lamem
Inscription : 2006-08-16
Messages : 990
Site Web

script pour ajouter des ports au firewall windows

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

Pied de page des forums

Propulsé par FluxBB
Hébergement offert par Asrun Network