modifier un élément du service local Windows

Version imprimable

03/07/2009, 13h47
ar0ray

modifier un élément du service local Windows

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?:ccool:
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!:D
03/07/2009, 14h46
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;)

Donc voila ou je suis rendu:

Code:

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!

05/07/2009, 04h05
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

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

Code:

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