En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218168 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

NetSend (SHELL)

NetSend ( SHELL )

Envoyer des messages de type NetSend sur un réseau local (WinNT/2000/XP)

Sub fNetSend()
    'S'assurer que le service "Affichage des Messages" soit démarré
    'Commande WinXP : "Net Start Messenger"
    Dim strMsg As String
    Dim strTo As String

    strMsg = InputBox("Veuillez saisir le message à envoyer : ", "Message", "café ?")

    strTo = Environ$("computername")
    Shell "net send " & strTo & " " & strMsg, vbMinimizedFocus

End Sub


Catégorie : Les mémos - Net
Page lue 6193 fois

Vous êtes ici :   Accueil » NetSend (SHELL)