A voir également:
- Une soulution d'execution de message
- ^^ Signification message ✓ - Forum Loisirs / Divertissements
- Recuperer message whatsapp - Guide
- Message d'absence outlook - Guide
- Message non envoyé appuyez pour réessayer - Forum Mobile
- Message d'absence thunderbird - Guide
1 réponse
bon je voi que personne connais de mon coté j'ai chercher et j'ai réaliser mon scripte mais le problème maintenant est qu'il faudrait activer le messenger mais sur le poste ou je veut l'envoyer donc le poste client voila mon scripte
ip=InputBox("Vers qui")
message = InputBox ("quoi ?")
Dim WS, start
Set WS = WScript.CreateObject("WScript.Shell")
start = WS.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\Currentcontrolset\Services\Messenger\start")
if start="0" then
WS.Popup "La Clé Messenger est désactivée"
WS.Popup "Nous allons la activer"
WS.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\Currentcontrolset\Services\Messenger\start", 1, "REG_DWORD"
end if
Set monshell = CreateObject( "WScript.shell")
monshell.Run "net send " & ip & " " & message
WS.Popup "Message envoyé"
ip=InputBox("Vers qui")
message = InputBox ("quoi ?")
Dim WS, start
Set WS = WScript.CreateObject("WScript.Shell")
start = WS.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\Currentcontrolset\Services\Messenger\start")
if start="0" then
WS.Popup "La Clé Messenger est désactivée"
WS.Popup "Nous allons la activer"
WS.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\Currentcontrolset\Services\Messenger\start", 1, "REG_DWORD"
end if
Set monshell = CreateObject( "WScript.shell")
monshell.Run "net send " & ip & " " & message
WS.Popup "Message envoyé"