Discussion :

[ar0ray]

Bonjour, suite à quelques recherches google, je suis tombé sur ce forum. J'ai donc décidé de m'inscrire...J'ai fait le bon choix?
Bon, maintenant, passons au choses sérieuse!

J'ai déjà des bases en programmation, mes j'ai jamais vraiment touché au VBS.
Donc voila, j'ai un projet, mes j'ai besoin d'aide.
Vous connaissez surment la commande ms-dos qui permet d'envoyer des message en réseau local! Non? Maintenant oui: net send !
Je veut l'exploiter afin de crée un petit logiciel qui permettrais d'envoyer et de recevoir les messages mais pas dans le ms-dos!

Pour pouvoir envoyer et recevoir des messages, cependant, l'Affichage des messages du Services Windows ( services.msc ) doit être actif. (Automatique)

Donc my first question:

Comment mettre l'Affichages des messages à automatique avec un code VBS?

Bon, merci beaucoup pour vos éventuelles réponses!
ar0ray

Peace!

[ar0ray]

De plus, je crois avoir trouvé le registre pour démarrer l'Affichage des messages:

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger]
"Start"=dword:00000002

Peace

[ar0ray]

Donc voila ou je suis rendu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
x = MsgBox("Prêt pour le lancer? ?",4+64,"RéseauMessenger") ' Lancement du logiciel
 
strComputer = "."
     Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colServiceList = objWMIService.ExecQuery _
  ("Select * from Win32_Service where name = 'Messenger'") ' De 3 à 9 servent à rendre
  For Each objService in colServiceList                    ' l'Afiichages des messages
 errReturnCode = objService.Change( , , , , "Automatic")  ' disponible.
 
Next 
 
Set  WshShell = WScript.CreateObject("WScript.Shell")
    Return = WshShell.Run("net start messenger" , 0, true) ' Démmarre messenger
   pseudo=inputBox("Tapez votre pseudo","RéseauMessenger") ' Le client choisi sont pseudo
   Mess= "Merci de choisir RéseauMessenger" 
  msgbox " Merci de choisir RéseauMessenger, " & pseudo &  " .Cliquer sur OK pour continuer!"

Maintenant, il faut que le pseudo se rajoute, la commande ms-dos est: net name "pseudo" /add. Vous avez une idée pour rajouter le pseudo?

Peace!

[ar0ray]

Personne? En clair, je veut que le script prenne le pseudo tapé, et le mettre dans une commande ms-dos (net name "pseudo" /add)

Peace

[SfJ5Rpw8]

Et qu'as tu fais ?
peu-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim stpseudo
stpseudo= "toto"
Return = WshShell.Run("net name """ & stpseudo& """ /add" , 0, true)