Ouvrir ou fermer un port

Signaler
Messages postés
4
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
-
Messages postés
4
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
-
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

5 réponses

Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
31
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. <
Messages postés
4
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009

ha oui désolé je travail en vbs
Messages postés
4
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009

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"
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
31
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. <
Messages postés
4
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009

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 ;)