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 :

Vitesse de connexion


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre chevronné
    Profil pro
    Développeur freelance
    Inscrit en
    Août 2006
    Messages
    453
    Détails du profil
    Informations personnelles :
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur freelance

    Informations forums :
    Inscription : Août 2006
    Messages : 453
    Par défaut Vitesse de connexion
    Bonjour,

    j'écris un script qui récupère des informations sur un parc de machine sous Windows 2000.
    Je n'arrive pas à récupérer la vitesse de connexion (10Mb/100Mb/1Gb) de ma carte réseau.

    voici les 2 manières que j'ai testé :

    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
     
    	Set WMI_ObjProps = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_Tcpip_NetworkInterface")
     
    	For Each ObjClsItem in WMI_ObjProps
    		LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Int(ObjClsItem.CurrentBandwidth/1000000) & " Mbits/s" & Chr(34)
    		If Err.number<>0 Then
    			LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Err.description & Chr(34)
    			Err.number = 0
    		End If
    	Next
     
    	Set WMI_ObjProps = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter")
    	For Each ObjClsItem in colAdapters
    		LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & ObjClsItem.MaxSpeed & Chr(34)
    		If Err.number<>0 Then
    			LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Err.description & Chr(34)
    			Err.number = 0
    		End If
    	Next
    Dans les 2 cas, il me renvoie
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    [MAX_SPEED],"Cet objet ne gère pas cette propriété ou cette méthode"
    Avez-vous déjà rencontré ce problème et surtout avez vous une solution ?

    Autres questions :
    Je souhaiterais aussi récupérer l'information "HalfDuplex", mais je ne trouves aucune solution.

    Dernière question
    Est-il possible de récupérer le champ description d'un fichier ? (Propriété d'un fichier -> Description)

    S'il vous faut plus d'informations, n'hésitez pas.
    Je vous en remercie par avance.

    Mosco.

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    bonjour,

    la classe Win32_PerfFormattedData_Tcpip_NetworkInterface" n'est pas supportée par win2000, donc ça c'est normal
    en revanche, la classe Win32_NetworkAdapter est dispo et la propriété MaxSpeed devrait être supportée à moins que la carte ait des caractéristiques incompatibles avec wmi

    pour ce qui est du mode de connexion, il faut rechercher des clés dans la base de registre
    un peu de lecture: http://web2.minasi.com/forum/topic.asp?TOPIC_ID=14462
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Membre chevronné
    Profil pro
    Développeur freelance
    Inscrit en
    Août 2006
    Messages
    453
    Détails du profil
    Informations personnelles :
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur freelance

    Informations forums :
    Inscription : Août 2006
    Messages : 453
    Par défaut
    Citation Envoyé par omen999 Voir le message
    la classe Win32_PerfFormattedData_Tcpip_NetworkInterface" n'est pas supportée par win2000, donc ça c'est normal
    Merci pour l'info

    Citation Envoyé par omen999 Voir le message
    la classe Win32_NetworkAdapter est dispo et la propriété MaxSpeed devrait être supportée à moins que la carte ait des caractéristiques incompatibles avec wmi
    Pourtant je récupère des infos de la classe Win32_NetworkAdapterConfiguration (Caption, Description, IPAddress, MACAddress, DHCPEnabled). Y a t il un lien ?

    Citation Envoyé par omen999 Voir le message
    pour ce qui est du mode de connexion, il faut rechercher des clés dans la base de registre
    un peu de lecture: http://web2.minasi.com/forum/topic.asp?TOPIC_ID=14462
    Ok, je vais y jeter un coup d'oeil.

    Merci,
    Mosco

  4. #4
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    Pourtant je récupère des infos de la classe Win32_NetworkAdapterConfiguration (Caption, Description, IPAddress, MACAddress, DHCPEnabled). Y a t il un lien ?
    si le driver de la carte ne fournit pas cette info, wmi ne va pas l'inventer
    je chercherais une version plus récente du driver mais bon pour win2000
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  5. #5
    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
    Set WMI_ObjProps = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_Tcpip_NetworkInterface")

    For Each ObjClsItem in WMI_ObjProps
    LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Int(ObjClsItem.CurrentBandwidth/1000000) & " Mbits/s" & Chr(34)
    If Err.number<>0 Then
    LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Err.description & Chr(34)
    Err.number = 0
    End If
    Next

    Set WMI_ObjProps = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter")
    For Each ObjClsItem in colAdapters
    LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & ObjClsItem.MaxSpeed & Chr(34)
    If Err.number<>0 Then
    LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Err.description & Chr(34)
    Err.number = 0
    End If
    Next
    Regarde ce qui est en rouge :
    Soit c un copier coller raté.
    Soit c'est peut être la cause de l'erreur.

  6. #6
    Membre chevronné
    Profil pro
    Développeur freelance
    Inscrit en
    Août 2006
    Messages
    453
    Détails du profil
    Informations personnelles :
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur freelance

    Informations forums :
    Inscription : Août 2006
    Messages : 453
    Par défaut
    Déjà il y avait une erreur dans mon script .
    Après correction :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    	Set WMI_ObjProps = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter")
    	For Each ObjClsItem in WMI_ObjProps
    		LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & ObjClsItem.MaxSpeed & Chr(34)
    		If Err.number<>0 Then
    			LogFile.WriteLine "[MAX_SPEED]," & Chr(34) & Err.description & Chr(34)
    			Err.number = 0
    		End If
    	Next
    voici le résultat obtenu :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    [MAX_SPEED],""
    [MAX_SPEED],""
    [MAX_SPEED],""
    [MAX_SPEED],""
    Comme vous pouvez le voir aucune valeur n'est renseigné, mais je n'ai plus d'erreur.

    Sinon quelqu'un a déjà pu récupérer ces infos sous 2000 ?

    Mosco.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Limiter sa vitesse de connexion Internet?
    Par Queb dans le forum Apple
    Réponses: 2
    Dernier message: 29/07/2007, 09h51
  2. Vitesse de connexion au réseau
    Par Coucou17 dans le forum Hardware
    Réponses: 5
    Dernier message: 17/06/2007, 12h35
  3. Test vitesse de connexion ethernet
    Par madislak dans le forum Hardware
    Réponses: 2
    Dernier message: 20/02/2007, 19h59
  4. Vitesse de connexion
    Par Arnaud F. dans le forum Dépannage et Assistance
    Réponses: 3
    Dernier message: 21/05/2006, 17h49
  5. Vitesse de connexion
    Par gymac dans le forum Développement
    Réponses: 2
    Dernier message: 31/03/2006, 18h23

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