Description : Ce script VBS permet d'ouvrir un port dans le firewall d'XP SP2.
Script :
Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objPort = CreateObject("HNetCfg.FwOpenPort") objPort.Port = 9999 objPort.Name = "Test Port" objPort.Enabled = FALSE Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
Proposer un script
|
Notre avis :

Votre avis :

Réactions : 0
Votants : 42
Visites : 41919
|