Ajout d'applications dans le FW de WXP SP2 mais avec modification de l'étendue

Stéphane [MS]

03/06/2005 à 22:40

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une seule
ligne) :
=============================================== netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM 192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
===============================================
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center, j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

FRED

06/06/2005 à 08:28

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues saisies
d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== > netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center, j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

FRED

06/06/2005 à 09:30

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues saisies
d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center, j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Stéphane [MS]

06/06/2005 à 22:47

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues saisies
d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eBQcZmmaFHA.580@TK2MSFTNGP15.phx.gbl...

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" <nospam@nospam.com> a écrit dans le message de news:
OGqgEDmaFHA.796@TK2MSFTNGP09.phx.gbl...

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues saisies
d'exceptions!).

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: %23Y$qGyHaFHA.2788@TK2MSFTNGP12.phx.gbl...

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>
Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eP44elEaFHA.612@TK2MSFTNGP12.phx.gbl...

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Vous avez filtré cet utilisateur ! Consultez son message

FRED

07/06/2005 à 09:19

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est écrit
de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est écrit
de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: ue%235CktaFHA.2288@TK2MSFTNGP14.phx.gbl...

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eBQcZmmaFHA.580@TK2MSFTNGP15.phx.gbl...

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" <nospam@nospam.com> a écrit dans le message de news:
OGqgEDmaFHA.796@TK2MSFTNGP09.phx.gbl...

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: %23Y$qGyHaFHA.2788@TK2MSFTNGP12.phx.gbl...

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>
Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eP44elEaFHA.612@TK2MSFTNGP12.phx.gbl...

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est écrit
de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Stéphane [MS]

08/06/2005 à 07:55

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" a écrit dans le message de news:
%

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner
la ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%
Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
%23gIe5EzaFHA.2128@TK2MSFTNGP14.phx.gbl...

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner
la ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: ue%235CktaFHA.2288@TK2MSFTNGP14.phx.gbl...

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eBQcZmmaFHA.580@TK2MSFTNGP15.phx.gbl...

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" <nospam@nospam.com> a écrit dans le message de news:
OGqgEDmaFHA.796@TK2MSFTNGP09.phx.gbl...

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: %23Y$qGyHaFHA.2788@TK2MSFTNGP12.phx.gbl...

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>
Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eP44elEaFHA.612@TK2MSFTNGP12.phx.gbl...

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = Partage de Fichiers et d'Imprimantes
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" a écrit dans le message de news:
%

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner
la ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%
Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message de
news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en une
seule ligne) :
=============================================== >>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

FRED

08/06/2005 à 09:45

Bonjour,

Merci pour votre réponse.
Je me mets au travail!

FRED.

"Stéphane [MS]" a écrit dans le message de
news: eTw8n6%

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" a écrit dans le message de news:
%

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%
Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message
de news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en
une seule ligne) :
=============================================== >>>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Bonjour,

Merci pour votre réponse.
Je me mets au travail!

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: eTw8n6%23aFHA.1152@tk2msftngp13.phx.gbl...

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
%23gIe5EzaFHA.2128@TK2MSFTNGP14.phx.gbl...

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message de
news: ue%235CktaFHA.2288@TK2MSFTNGP14.phx.gbl...

Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eBQcZmmaFHA.580@TK2MSFTNGP15.phx.gbl...

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" <nospam@nospam.com> a écrit dans le message de news:
OGqgEDmaFHA.796@TK2MSFTNGP09.phx.gbl...

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" <spapp@online.microsoft.com> a écrit dans le message
de news: %23Y$qGyHaFHA.2788@TK2MSFTNGP12.phx.gbl...

Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en
une seule ligne) :
=============================================== >>>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>>
Cdlt
Stéphane

"FRED" <nospam@nospam.com> a écrit dans le message de news:
eP44elEaFHA.612@TK2MSFTNGP12.phx.gbl...

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

Merci pour votre réponse.
Je me mets au travail!

FRED.

"Stéphane [MS]" a écrit dans le message de
news: eTw8n6%

Bonjour,

La page suivante est juste à côté de celle précédemment indiquée :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Elle décrit le script pour ajouter des ports spécifiques.

Le partage de fichier suppose d'ouvrir :
TCP 139
TCP 445
UDP 137
UDP 138

Donc, en utilisant les constante :
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Les lignes suivantes :

port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 139

En boucle pour faire aussi :
port.Name = "Partage de Fichiers et d'Imprimantes"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 445

Etc.

Je vous recommande de ne pas les ouvrir sur l'ensemble du réseau, mais
uniquement des sous réseaux précis en utilisant les informations déjà
transmises.

Cdlt
Stéphane

"FRED" a écrit dans le message de news:
%

Bonjour,

Merci, effectivement cela fonctionnne (j'ai dû également positionner la
ligne "objApplication.Scope = 0" en commentaire pour que cela
fonctionne).
J'abuse encore mais il me reste un pettit problème:
Comment faire de même pour, par exemple le partage de fichier, qui est
écrit de la manière suivante:
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

Ainsi que pour un port particulier:
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5555
objPort.Name = "Test Port"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

Merci de votre aide,

FRED.

"Stéphane [MS]" a écrit dans le message de
news: ue%
Bonjour,

Si vous souhaitez absolument faire du VBScript, vous pouvez modifier la
ligne suivante :
objApplication.RemoteAddresses = "*"
en
objApplication.RemoteAddresses = "192.168.10.0/255.255.255.0
192.168.11.0/255.255.255.0"

Référence :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp

Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Re,

Il n'est pas possible de l'intégrer à mon script ?

FRED.

"FRED" a écrit dans le message de news:

Bonjour,

Merci beaucoup, j'essaie cela au plus tôt (enfin fini les longues
saisies d'exceptions!).

FRED.

"Stéphane [MS]" a écrit dans le message
de news: %23Y$
Bonjour,

Vous pouvez, également, utiliser la ligne de commande suivante (en
une seule ligne) :
=============================================== >>>>>> netsh firewall add allowedprogram "c:windowssystem32freecell.exe"
FreeCell ENABLE CUSTOM
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0
=============================================== >>>>>>
Cdlt
Stéphane

"FRED" a écrit dans le message de news:

Bonjour,

En déployant des postes sous WXP SP2, je tente d'automatiser le
paramétrage du Fire Wall.
Je fais un script (honteusement pompé sur le script center,
j'avoue...):

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Free Cell"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName =
"c:windowssystem32freecell.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Je souhaiterais toutefois également pouvoir automatiser l'ajout de
modification d'étendue.
Comment puisj-faire pour ajouter par exemple
192.168.10.0/255.255.255.0,192.168.11.0/255.255.255.0 pour cette
application ? est-ce possible, d'ailleur?

Merci et bon week end

FRED.

Ajout d'applications dans le FW de WXP SP2 mais avec modification de l'étendue

7 réponses

Veuillez sélectionner un problème