Discussion :

[MoscoBlade]

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.

[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

[MoscoBlade]

la classe Win32_PerfFormattedData_Tcpip_NetworkInterface" n'est pas supportée par win2000, donc ça c'est normal

Merci pour l'info

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 ?

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

[omen999]

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

[ced600]

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.

[MoscoBlade]

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.