Discussion :

[Natiii08B]

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

[ProgElecT]

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.

[Invité]

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) &""

[Natiii08B]

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 ^^"

[Natiii08B]

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

[Natiii08B]

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