Shell et net send

mierkool Messages postés 61 Date d'inscription mardi 16 mars 2004 Statut Membre Dernière intervention 9 septembre 2009 - 13 sept. 2006 à 09:22
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 13 sept. 2006 à 12:28
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

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
13 sept. 2006 à 09:32
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
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
13 sept. 2006 à 10:13
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
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
13 sept. 2006 à 12:28
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
0
Rejoignez-nous