Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992145 visiteurs

 2 visiteurs en ligne

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 4980 fois