IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

modifier un élément du service local Windows


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 4
    Par défaut 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?
    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!

  2. #2
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 4
    Par défaut
    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

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 4
    Par défaut
    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!

  4. #4
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 4
    Par défaut
    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

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    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)

Discussions similaires

  1. Connexion a une base SQL dont le nom " Local (Windows N
    Par Mahmoud RAMMAL dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 10/02/2006, 09h45
  2. Réponses: 4
    Dernier message: 06/01/2006, 19h13
  3. réseaux local [windows XP]
    Par hutchuck dans le forum Windows XP
    Réponses: 8
    Dernier message: 19/12/2005, 09h24
  4. Plantage de service sous Windows 2003 server
    Par akasim73 dans le forum MFC
    Réponses: 2
    Dernier message: 10/11/2005, 15h49
  5. Déclaration d'un service sous windows
    Par Hakkou dans le forum Windows
    Réponses: 2
    Dernier message: 03/10/2004, 09h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo