Ouvrir ou fermer un port

Question

Bonjour,

Je débute en VB et je voudrais trouver un code qui permet d'ouvrir des port du firewall windows en pouvant choisir UDP ou TCP pour l'instant j'ai ceci mais il m'affiche un message d'erreur .

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 9999
objPort.Protocol = NET_FW_IP_PROTOCOL_UDP
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

errReturn = colPorts.Add(objPort)

merci d'y jeter un coup d'oeil

Mayzz · Answer

Bojour,

Peut on savoir de quel language il sagit ?  Vous êtes ici : Thèmes / VB.NET et VB 2005 / Réseaux & Internet / Protocoles / Ouvrir ou fermer un port

Le code que tu as posté c'est du vbScript, essaye de préciser si tu développe en VBA, VBS, VB6, ou VB.NET, Merci. 

Aussi, préciser la nature de ton message d'erreur à une grande importance pour la compréhesion du bug de ton code.

Mayzz.
                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

dimz01 · Answer

ha oui désolé je travail en vbs

dimz01 · Answer

En cherchant encore un peu j'ai trouvé ceci :

Set Firewall = CreateObject("HNetCfg.FwMgr")
 Set Policy = Firewall.LocalPolicy.CurrentProfile
 Set Port = CreateObject("HNetCfg.FwOpenPort")
 
 Port.Port = 3389
 Port.Name = "Remote Desktop"
 Port.Protocol = NET_FW_IP_PROTOCOL_TCP
 Port.Enabled = TRUE
 
 set Ports = Policy.GloballyOpenPorts
 addedPorts = Ports.Add(Port)
WScript.Echo "Ports configured."

Mais j'ai toujours une erreur a la ligne 5 qui me dit "Permission Denied"

Mayzz · Answer

Si tu es sous XP alors il faut avoir des droits d'aministateur, sous Vista je ne saurais dire car c'est les programmes aux même qui doivent être exécutés en mode administrateur, comme la il sagit d'un script, c'est peut être l'interpreteur qu'il faut passer en admin ?

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

dimz01 · Answer

Je suis admin sur la machine et il m'affiche tout de même ce message :s mais au final j'ai trouvé une autre manière de faire, j'autorise directement le programme de Bureau à distance dans le Firewall je n'ai pas encore eu l'occasion d'essayer mais normalement ça devrait marcher.

Merci quand même de t'être pencher sur le sujet ;)

Ouvrir ou fermer un port

5 réponses

Votre réponse

Discussions similaires