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 :

Obtenir le nom de la connection réseau


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut Obtenir le nom de la connection réseau
    Bonjour, pouriez vous me dire comment obtenir le(s) nom(s) de la (des) connection(s) réseau ?

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Essaye ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    strComputer = "."
    Set objWMIService = GetObject _
        ("winmgmts:\\" & strComputer & "\root\microsoft\homenet")
    Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")
    For Each objItem in colItems
        Wscript.Echo "GUID: " & objItem.GUID
        Wscript.Echo "Is LAN Connection: " & objItem.IsLANConnection
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Phone Book Path: " & objItem.PhoneBookPath
    Next

  3. #3
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    Salut cedi

    Ca m'affiche bien le nom de ma connaction réseau, mais je verai cette aprém sur mon pc si ca affiche toutes le connections.

  4. #4
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Salut,

    tu as un lien sympa ici :

    http://www.activxperts.com/activmoni...tworking/home/

    A++

  5. #5
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    Donc voici une petite modif:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    strComputer = "."
    Set objWMIService = GetObject _
        ("winmgmts:\\" & strComputer & "\root\microsoft\homenet")
    Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")
    For Each objItem in colItems
        vrNomConnection = vrNomConnection & vbCrLf & objItem.Name
    Next
     
    Wscript.Echo vrNomConnection
    Maitenant, je voudrai que le script créer un menu avec les noms des connaction donc un menu pour choisir la connection.

    C'est pour ajouter a un script qui étein ou demarre une connection.

  6. #6
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Citation Envoyé par RadPAT Voir le message
    Salut,

    tu as un lien sympa ici :

    http://www.activxperts.com/activmoni...tworking/home/

    A++


    Mon code est tirée de cette page


    Maitenant, je voudrai que le script créer un menu avec les noms des connaction donc un menu pour choisir la connection.

    C'est pour ajouter a un script qui étein ou demarre une connection.
    A ma connaissance une connexion réseau ne se démarre pas et ne s'éteins pas. Va faloir que tu m'explique ce que tu entends par la :
    - Activer/désactiver la connexion ?
    - Afficher l'état de la connection ?
    - Se connecter/se déconnecter sur un site ?

  7. #7
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    Activer/désactiver la connexion bien entendu

    regarde:
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    ' http://astase.com/forums/viewtopic.php?id=3094
     
     
    Const ssfCONTROLS = 3
     
    '"Connexion au réseau local" pour une connexion réseau classique RJ45 ou "Connexion réseau sans fil" pour la connexion Wifi
    sConnectionName = "Connexion au réseau local"
    sConnectionDir = "Connexions réseau"                        'Pour Windows XP
    'sConnectionDir = "Connexions réseau et accès à distance"   'Pour Windows 2000
     
    sEnableVerb = "&Activer"
    sDisableVerb = "&Désactiver"
     
    set shellApp = createobject("shell.application")
    set oControlPanel = shellApp.Namespace(ssfCONTROLS)
     
    set oNetConnections = nothing
    for each folderitem in oControlPanel.items
      if folderitem.name  = sConnectionDir then
        set oNetConnections = folderitem.getfolder: exit for
      end if
    next
     
    if oNetConnections is nothing then
      msgbox "Ne peut trouver le dossier '"+sConnectionDir+"'"
      wscript.quit
    end if
     
    set oLanConnection = nothing
    for each folderitem in oNetConnections.items
      if lcase(folderitem.name)  = lcase(sConnectionName) then
        set oLanConnection = folderitem: exit for
      end if
    next
     
    if oLanConnection is nothing then
      msgbox "Impossible de trouver la connection :  '" & sConnectionName & "'"
      wscript.quit
    end if
     
    bEnabled = true
    set oEnableVerb = nothing
    set oDisableVerb = nothing
    s = "Verbs: " & vbcrlf
    for each verb in oLanConnection.verbs
      s = s & vbcrlf & verb.name
      if verb.name = sEnableVerb then
        set oEnableVerb = verb 
        bEnabled = false
      end if
      if verb.name = sDisableVerb then
        set oDisableVerb = verb 
      end if
    next
     
    'debugging displays left just in case...
    '
    'MsgBox s ': wscript.quit
    'MsgBox "Enabled: " & bEnabled ': wscript.quit
     
    'not sure why, but invokeverb always seemed to work
    'for enable but not disable. 
    '
    'saving a reference to the appropriate verb object
    'and calling the DoIt method always seems to work.
    '
    if bEnabled then
    '  oLanConnection.invokeverb sDisableVerb
      oDisableVerb.DoIt
    else
    '  oLanConnection.invokeverb sEnableVerb
      oEnableVerb.DoIt
    end if
     
    'adjust the sleep duration below as needed...
    '
    'if you let the oLanConnection go out of scope
    'and be destroyed too soon, the action of the verb
    'may not take...
    '
    wscript.sleep 1000

  8. #8
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    Citation Envoyé par ced600 Voir le message
    Essaye ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    strComputer = "."
    Set objWMIService = GetObject _
        ("winmgmts:\\" & strComputer & "\root\microsoft\homenet")
    Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection")
    For Each objItem in colItems
        Wscript.Echo "GUID: " & objItem.GUID
        Wscript.Echo "Is LAN Connection: " & objItem.IsLANConnection
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Phone Book Path: " & objItem.PhoneBookPath
    Next
    En fait c'est pas bon, ca liste toutes les connection inscrite dans la base de registre même les connection qui n'existe plu, n'y a t il pas moyen de lister les connection autrement ?

    Ou alor y aurait-il un moyen de tester l'existance d'une connection ?

Discussions similaires

  1. Réponses: 1
    Dernier message: 13/10/2010, 20h37
  2. Réponses: 9
    Dernier message: 17/01/2007, 21h06
  3. Comment obtenir la liste des noms des ordinateurs du réseau ?
    Par da_latifa dans le forum Web & réseau
    Réponses: 2
    Dernier message: 17/08/2005, 11h58
  4. Comment obtenir le nom complet d'un lecteur réseau ?
    Par Speed41 dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 26/08/2004, 07h55
  5. Comment obtenir le nom d'un pc sur un réseau?
    Par Depteam1 dans le forum MFC
    Réponses: 2
    Dernier message: 19/02/2004, 10h17

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