Shell et net send

Signaler
Messages postés
61
Date d'inscription
mardi 16 mars 2004
Statut
Membre
Dernière intervention
9 septembre 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Voila, j'ai voulu faire un netsendgui et envoyer un net send avec la fonction shell mais quand je le teste cela n'envoie rien.

voici mon code :

rep = shell ("c:\windows\system32\net send " & alias & " " & message & ")

merci d'avance

3 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonjour,
A la fin tu as ") le " est de trop.
Sinon voir http://www.vbfrance.com/recherche.aspx?r=net+send&tr=source&dotnet=2
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,

J'ai testé ceci (avec la modification remarquée par 941 Willi)

Et cela fonctionne
NB: Je suis sous W2K d'ou le WINNT a la place de WINDOWS

Dim Rep As Integer 
Dim Alias As String 
Dim Message As String 
'Ceci doit être le nom de la machine
Alias  = "dev08-inv" 
Message = "Test de NETSEND" 
Rep = Shell("c:\winnt\system32\net send " & Alias & " " & Message) 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut,
pourquoi mettre "dev08-inv"? NetSend ajoute automatiquement l'IP.

NB : certains (dont moi) désactive NetSend dans leurs services...

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp