Discussion :

[ArHacKnIdE]

Bonjour à tous,

Voilà pour un projet je dois arriver à capturer le débit actuel de la carte réseau (wifi), pour cela j'utilise WMI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set wmobj = GetObject("WinMgmts:{impersonationLevel=impersonate}")
 
 
 
 
 Set test = wmobj.ExecQuery("Select * from Win32_NetworkAdapter")
For Each valeur In test
 
 MsgBox ("Bande passante actuelle     :     " & valeur.Speed)
Next

Je n'ai aucun résultat alors que lorsque je remplace Speed par Name, j'obtiens bien les noms de toutes les connexions reseaux...

Si qqun a la solution a mon problème, je serai ravie de la connaître

Merci de votre aide

[ArHacKnIdE]

J'ai continué à chercher d'ou pouvait prevenir ma panne mais c'est sans succès

Personne a t'il un fragment de réponse à mon problème ?

Merci

[ArHacKnIdE]

Je n'ai toujours rien trouvé...

Aucunes informations à me fournir ?

Merci =)

[omen999]

salut,
extrait de la doc :

Speed
Data type: uint64
Access type: Read-only

Estimate of the current bandwidth in bits per second. For endpoints which vary in bandwidth or for those where no accurate estimation can be made, this property should contain the nominal bandwidth. This property is inherited from CIM_NetworkAdapter.
Windows Server 2003, Windows XP, Windows 2000, and Windows NT 4.0: This property has not been implemented yet. It returns a NULL value by default.

[ArHacKnIdE]

Merci de ta réponse

En fait ça existe sur pas grand OS

N'y aurait t'il pas un moyen d'importer ceci sur XP ?

Merci

[DarkVader]

Peut-être avec Win32_PerfRawData_Tcpip_NetworkInterface

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    strcomputer = "."
 
    Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", &H30)
 
    For Each objItem In colItems
         Debug.Print objItem.Name, objItem.CurrentBandwidth
    Next

[ArHacKnIdE]

Merci je suis pas chez moi, je teste ça et je vous tiens au courant