trimordiah
20 déc. 2008 à 17:21
si c'est possible: voilà la solution de Sasuke83, ça marche je l'ai testé
Bonjour à tous wink
Comme vous le savez tous, le parefeu/firewall de windows xp pro permet d'ouvrir des ports seulement 1 par 1.
Et donc impossibilité d'ouvrir une grande plage de ports
Par exemple ouvrir les ports du 5000 au 51000 par exemple.
Ce qui peut poser des problèmes pour ceux qui veulent mettre en place un serveur FTP en passif...
-------------------------------
Voici un petit scrip VB, qui permet d'ouvrir la plage de port que l'on souhaite, grâce à un simple double click.
Pour l'utiliser:
1) il vous suffis de faire un copier/coller du code ci dessous dans un document texte.
2) remplacer les valeurs '50000' et '51000' par les valeurs que vous souhaitez.
Ici le code ouvrira les ports du 50000 au 51000
3) enregistrer, renommer l'extension du fichier texte (.txt) en .vbs
4) Double cliquez sur le fichier (rien ne se passe c'est normal)
5) Allez voir vos ports ouvert dans le firewall d'xp 'Enjoy' smile
------------------- Le code -------------------------------------------
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
dim i
for i=50000 to 51000
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = i
objPort.Name = "Test Port "&i
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
next
----------------------------------------------------------------------
(sans les "-") lol
Note, pour fermer les ports plutot que de les ouvrirs, il vous suffis de remplacer "TRUE" par "FALSE"
Voilà wink