1. #1
    Futur Membre du Club
    Femme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    juillet 2017
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : juillet 2017
    Messages : 8
    Points : 8
    Points
    8

    Par défaut Script msgbox sur pc distant

    Bonjour à tous,

    Je souhaiterai savoir si il est possible d'envoyer une msgbox sur un pc en local dans un même domaine un peu comme le msg.exe pour faire apparaitre un pop up sur l’écran d'une personne.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    x = msgbox("Message",0+48+0,"Utilisateur")
    En vous remerciant

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 120
    Points : 8 182
    Points
    8 182

    Par défaut

    Salut

    A mon avis non.
    Par contre il est possible d'installer un petit script dans un dossier partagé qui sera lancé en tâche de fond sur chaque ordinateur du domaine (chose que j'avais fait à mon pro il y a quelque années).

    L'idée:
    Ce script lira un fichier.txt tous les x Mn ou Sc:
    Dans ce fichier.txt, un drapeau d'identification de chaque ordinateur, et le message d'information que le script affichera par son MsgBox, a chaque lecture par un des ordinateurs, le script réécrit le fichier.txt en ayant enlevé son identifiant, dans le cas d'un message envoyé pour plusieurs ordinateur du domaine.

    Exemple de Fichier.txt:
    Ordi1, Ordi2, Ordi9, Ordi12,
    Ce soir je paye un coup pour ma promotion.
    Je compte sur vous.
    Mr Legas SYMPATHIQUE.
    La première ligne pour le(s) ordinateur(s) concerné(s), la/les lignes suivante le message à afficher.

    Le script est lut par l'identifiant Ordi9, il réécrit le fichier.txt comme cela:
    Ordi1, Ordi2, Ordi12,
    Ce soir je paye un coup pour ma promotion.
    Je compte sur vous.
    Mr Legas SYMPATHIQUE.
    Lorsque le dernier ordinateur a lut le message, le script vérifie si la première ligne est vide, si oui, enregistre le fichier.txt vidé du message.

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    août 2009
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2009
    Messages : 75
    Points : 30
    Points
    30

    Par défaut

    salut,
    je vais peut être dire une bêtise, mais avec net send ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim x
    Dim y
     
    set oShell = createobject("wscript.shell")
     
    x = InputBox("Enter IP Adress","Net Send Messenger.")
     
    y = InputBox("Enter Messege","Net Send Messenger.")
     
    oshell.run "net send "& (x) &" "& (y) &""

  4. #4
    Futur Membre du Club
    Femme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    juillet 2017
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : juillet 2017
    Messages : 8
    Points : 8
    Points
    8

    Par défaut

    Citation Envoyé par ProgElecT Voir le message
    Salut

    A mon avis non.
    Par contre il est possible d'installer un petit script dans un dossier partagé qui sera lancé en tâche de fond sur chaque ordinateur du domaine (chose que j'avais fait à mon pro il y a quelque années).

    L'idée:
    Ce script lira un fichier.txt tous les x Mn ou Sc:
    Dans ce fichier.txt, un drapeau d'identification de chaque ordinateur, et le message d'information que le script affichera par son MsgBox, a chaque lecture par un des ordinateurs, le script réécrit le fichier.txt en ayant enlevé son identifiant, dans le cas d'un message envoyé pour plusieurs ordinateur du domaine.

    Exemple de Fichier.txt:
    La première ligne pour le(s) ordinateur(s) concerné(s), la/les lignes suivante le message à afficher.

    Le script est lut par l'identifiant Ordi9, il réécrit le fichier.txt comme cela:

    Lorsque le dernier ordinateur a lut le message, le script vérifie si la première ligne est vide, si oui, enregistre le fichier.txt vidé du message.

    Merci de ta réponse,

    Mais en faite je voudrais que cela puisse envoyer un pop up à une selection d'ordinateur. Le script batch
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    cls
    @echo off
     
    for /f %%i in (Test.txt) do msg /server:%%i * /v "Message"
    
    REM pause
    me convenait parfaitement mais j'ai un soucis de droits avec les utilisateurs. Il faudrait qu'ils soient admin du domaine pour l’exécuter ce qui hors de question.
    Du coup, ta solution ne me correspond pas vraiment ^^"

  5. #5
    Futur Membre du Club
    Femme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    juillet 2017
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : juillet 2017
    Messages : 8
    Points : 8
    Points
    8

    Par défaut

    Citation Envoyé par NeriXs Voir le message
    salut,
    je vais peut être dire une bêtise, mais avec net send ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim x
    Dim y
     
    set oShell = createobject("wscript.shell")
     
    x = InputBox("Enter IP Adress","Net Send Messenger.")
     
    y = InputBox("Enter Messege","Net Send Messenger.")
     
    oshell.run "net send "& (x) &" "& (y) &""

    Net send n'est plus disponible sur les pc windows 7 ? Je pense pas que cela va fonctionner.
    Ca coûte rien d'essayer quand même

  6. #6
    Futur Membre du Club
    Femme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    juillet 2017
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : juillet 2017
    Messages : 8
    Points : 8
    Points
    8

    Par défaut

    J'ai trouvé une solution, je suis revenue à un script batch et j'ai utilisé Psexec pour exécuter le script comme je le voulais

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 27/11/2007, 14h37
  2. Exécuter un script batch sur un pc distant
    Par koKoTis dans le forum Scripts/Batch
    Réponses: 21
    Dernier message: 22/07/2007, 19h05
  3. lancer un script sur poste distant
    Par lakcil dans le forum VBScript
    Réponses: 1
    Dernier message: 08/06/2007, 14h36
  4. Réponses: 3
    Dernier message: 01/03/2007, 10h18
  5. Return code d'un script sur serveur distant
    Par Koobor dans le forum Linux
    Réponses: 2
    Dernier message: 10/11/2005, 09h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo