Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft VBS shell.run poste distant

VBS shell.run poste distant

9 réponses
Avatar
Robby
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
F. Dunoyer
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



si c'est juste pour lancer ça tu peux te tourner vers les outils
sysinternals
psexec est exactement ce qu'il te faut

sysinternals c'est maintenant des outils microsoft

--
François Dunoyer
Quelques liens pour Windows : http://fds.mvps.org/AdressesInternets.htm
Site perso : http://fds.mvps.org
Blog : http://fds34.spaces.live.com/
Avatar
F. Dunoyer
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



D'un autre coté à écrire un script pour "toucher" au firewall, ce
serait plus judicieux d'utiliser l'objet HNetCfg.FwMgr

avec qq chose comme ça pour le xp

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

objPolicy.FirewallEnabled = TRUE


Pour un vista, un seven ou un 2008 ça donnerait qq chose comme ça

sub pFWActived
' Active le firewall dans tous les modes
Dim ofwPolicy2
dim iErreur

' Supporté par le systeme ??
On Error resume next
Set oFwPolicy2 = CreateObject("HNetCfg.FwPolicy2")
iErreur=err.number
On Error goto 0

if iErreur>0 then exit sub

oFwPolicy2.FirewallEnabled(NET_FW_PROFILE2_DOMAIN) = TRUE
oFwPolicy2.FirewallEnabled(NET_FW_PROFILE2_PRIVATE) = TRUE
oFwPolicy2.FirewallEnabled(NET_FW_PROFILE2_PUBLIC) = TRUE

' On fait le menage
Set oFwPolicy2 = nothing
end sub ' ------------------------- pFWActived
-------------------------

--
François Dunoyer
Des infos en Vrac : http://fds.mvps.org/ta/envrac.htm
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/
Avatar
F. Dunoyer
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



Et pour finir si tu es dans un domaine, je t'invite à mettre en place
la GPO qui correspond à ton besoin, ça simplifira de toutes façon
toutes les configs

--
François Dunoyer
Astuces pour Windows : http://fds.mvps.org/ta/
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/
Avatar
F. Dunoyer
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut
donner des pistes pour ne plus avoir de problemes... si tu n'es pas
dans un domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

--
François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/
Avatar
Robby
Merci, Francois pour toutes les reponses;
Mais au fait comment connaitre les differents objets ?
Je ne sais pas comment faire pour connaitre le nom d'un objet
(HNetCfg.FwMgr) ?
est-ce que ton script vbs fonctionne aussi pour un poste à distance ?
Robby.

"F. Dunoyer" ~.net> a écrit dans le message de
news:
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut
donner des pistes pour ne plus avoir de problemes... si tu n'es pas dans
un domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

--
François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/





Avatar
Robby
En fait j'aimerais appliquer l'objet et la commande sur la variable qui est
mon poste distant.
Merci d'avance,
Robby.

"Robby" a écrit dans le message de news:
e$
Merci, Francois pour toutes les reponses;
Mais au fait comment connaitre les differents objets ?
Je ne sais pas comment faire pour connaitre le nom d'un objet
(HNetCfg.FwMgr) ?
est-ce que ton script vbs fonctionne aussi pour un poste à distance ?
Robby.

"F. Dunoyer" ~.net> a écrit dans le message
de news:
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut
donner des pistes pour ne plus avoir de problemes... si tu n'es pas dans
un domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

--
François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/










Avatar
F. Dunoyer
Robby a écrit :
Merci, Francois pour toutes les reponses;
Mais au fait comment connaitre les differents objets ?
Je ne sais pas comment faire pour connaitre le nom d'un objet (HNetCfg.FwMgr)
?
est-ce que ton script vbs fonctionne aussi pour un poste à distance ?
Robby.

"F. Dunoyer" ~.net> a écrit dans le message de
news:
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut donner
des pistes pour ne plus avoir de problemes... si tu n'es pas dans un
domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

-- François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/








En ce qui me concerne, en cherchant pour moi et hier suite à ton
message, je n'ai pas trouvé comment le faire a distance en dehors :

- GPO si tu es en domaine
- Psexec ou equivalent (WMI) pour executer depuis un poste distant un
programme sur le poste local

mais je ne suis pas obligatoirement expert de ce domaine

et pour ce qui concerne tous les objets existants LOL
Il faut plonger dedans et essayer de surnager ;)
Le technet et le MSDN sont une bonne aide mais parfois ils donnent plus
envie de s'arracher les cheveux qu'autre chose

bon courage

--
François Dunoyer
Des infos en Vrac : http://fds.mvps.org/ta/envrac.htm
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/
Avatar
Marc Lognoul [MVP]
Bonjour,

Comme le signale François, PSEXEC est une solution directe et efficace pour
ce type de demande en particulier s'il ne faut éxécuter qu'une seule ligne
de command.
Une autre solution en WSH/VBS:
http://www.microsoft.com/technet/scriptcenter/guide/sas_wsh_wwgn.mspx?mfr=true

N'oubliez pas de paramétrer vos règles de firewall avant de l'activer et de
laisser passer les protocoles nécessaires à vos scripts (partage de
fichiers, WMI...).

---
Marc Lognoul [MCSE, MCTS, MVP]
Heureux celui qui a pu pénétrer les causes secrètes des choses
Happy is the one who could enter the secret causes of things

Blog EN: http://www.marc-antho-etc.net/blog/

"F. Dunoyer" ~.net> wrote in message
news:
Robby a écrit :
Merci, Francois pour toutes les reponses;
Mais au fait comment connaitre les differents objets ?
Je ne sais pas comment faire pour connaitre le nom d'un objet
(HNetCfg.FwMgr) ?
est-ce que ton script vbs fonctionne aussi pour un poste à distance ?
Robby.

"F. Dunoyer" ~.net> a écrit dans le message
de news:
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut
donner des pistes pour ne plus avoir de problemes... si tu n'es pas dans
un domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

-- François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/








En ce qui me concerne, en cherchant pour moi et hier suite à ton message,
je n'ai pas trouvé comment le faire a distance en dehors :

- GPO si tu es en domaine
- Psexec ou equivalent (WMI) pour executer depuis un poste distant un
programme sur le poste local

mais je ne suis pas obligatoirement expert de ce domaine

et pour ce qui concerne tous les objets existants LOL
Il faut plonger dedans et essayer de surnager ;)
Le technet et le MSDN sont une bonne aide mais parfois ils donnent plus
envie de s'arracher les cheveux qu'autre chose

bon courage

--
François Dunoyer
Des infos en Vrac : http://fds.mvps.org/ta/envrac.htm
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/




Avatar
Robby
Merci pour ton aide, mais quand j'utilise le lien avec le script donné, j'ai
lerreur :
(7, 1) Erreur d'exécution Microsoft VBScript: Un composant ActiveX ne peut
pas créer un objet.
sur la ligne 7 : Set objRemoteScript
Robby

"Marc Lognoul [MVP]" a écrit dans le message de news:

Bonjour,

Comme le signale François, PSEXEC est une solution directe et efficace
pour ce type de demande en particulier s'il ne faut éxécuter qu'une seule
ligne de command.
Une autre solution en WSH/VBS:
http://www.microsoft.com/technet/scriptcenter/guide/sas_wsh_wwgn.mspx?mfr=true

N'oubliez pas de paramétrer vos règles de firewall avant de l'activer et
de laisser passer les protocoles nécessaires à vos scripts (partage de
fichiers, WMI...).

---
Marc Lognoul [MCSE, MCTS, MVP]
Heureux celui qui a pu pénétrer les causes secrètes des choses
Happy is the one who could enter the secret causes of things

Blog EN: http://www.marc-antho-etc.net/blog/

"F. Dunoyer" ~.net> wrote in message
news:
Robby a écrit :
Merci, Francois pour toutes les reponses;
Mais au fait comment connaitre les differents objets ?
Je ne sais pas comment faire pour connaitre le nom d'un objet
(HNetCfg.FwMgr) ?
est-ce que ton script vbs fonctionne aussi pour un poste à distance ?
Robby.

"F. Dunoyer" ~.net> a écrit dans le
message de news:
Robby a écrit :
Bonjour,
A partir d'un script VBS, je lance cette
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run ("netsh firewall set opmode mode = enable")
En local ca fonctionne mais comment faire pour le lancer sur un poste
distant.

Merci d'avance,

Robby.



une derniere couche :) (qui ne repond pas directement) mais qui peut
donner des pistes pour ne plus avoir de problemes... si tu n'es pas
dans un domaine (et même si d'ailleurs c'est à lire)

http://technet.microsoft.com/en-us/library/cc737845(WS.10).aspx#BKMK_tools

-- François Dunoyer
Quelques textes qui m'ont séduit : http://fdunoyer.free.fr/textes.htm
Site perso : http://fds.mvps.org
Blog perso : http://fdunoyer.spaces.live.com/
Blog : http://fds34.spaces.live.com/








En ce qui me concerne, en cherchant pour moi et hier suite à ton message,
je n'ai pas trouvé comment le faire a distance en dehors :

- GPO si tu es en domaine
- Psexec ou equivalent (WMI) pour executer depuis un poste distant un
programme sur le poste local

mais je ne suis pas obligatoirement expert de ce domaine

et pour ce qui concerne tous les objets existants LOL
Il faut plonger dedans et essayer de surnager ;)
Le technet et le MSDN sont une bonne aide mais parfois ils donnent plus
envie de s'arracher les cheveux qu'autre chose

bon courage

--
François Dunoyer
Des infos en Vrac : http://fds.mvps.org/ta/envrac.htm
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/