Vitesse de connexion

Version imprimable

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:

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:

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 ? :D

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.

19/01/2009, 15h40
omen999

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
19/01/2009, 17h34
MoscoBlade

Citation:

Envoyé par omen999

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

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

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
19/01/2009, 18h08
omen999

Citation:

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 :aie:
19/01/2009, 19h22
ced600

Citation:

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.

Déjà il y avait une erreur dans mon script ;).
Après correction :
Code:

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:

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.

20/01/2009, 10h26
omen999

c'est un problème fréquent
même sous xp, la propriété maxspeed peut rester vide
(c'est le cas de la machine devant laquelle je suis)
tu peux tester le code déposé dans les contribs:
http://www.developpez.net/forums/d35...tion-total-pc/

c'est très certainement un problème de driver de la carte :aie:
21/01/2009, 10h20
MoscoBlade

Citation:

Envoyé par omen999

c'est un problème fréquent
même sous xp, la propriété maxspeed peut rester vide
(c'est le cas de la machine devant laquelle je suis)

Cela me rassure de ne pas être le seul :aie:.

Citation:

Envoyé par omen999

tu peux tester le code déposé dans les contribs:
http://www.developpez.net/forums/d35...tion-total-pc/

c'est très certainement un problème de driver de la carte :aie:

Déjà testé, et cela ne marche pas mieux.

Merci pour vos réponses.
Je le passe quand même en résolu.

Mosco.