Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft vitesse de connexion telephonique

vitesse de connexion telephonique

4 réponses
Avatar
sgroulx
Bonjour
Dernière petit question pour finir mon script vb.
J'aurais besoin de savoir la vitesse de branchement ma connexion
téléphonique,(celle qui donne lorsque l'on passe la sourie pardessus la
connexion)
en dos ou en vbscript.
Encore merci a tous ceux qui on répondu tous mes question
Sébas
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Stéphane [MS]
Bonjour,

Est-ce que dans Win32_NetworkAdapter, les propriétés MaxSpeed ou Speed
s'appliquent ?

Cdlt
Stéphane

"sgroulx" a écrit dans le message de news:
%
Bonjour
Dernière petit question pour finir mon script vb.
J'aurais besoin de savoir la vitesse de branchement ma connexion
téléphonique,(celle qui donne lorsque l'on passe la sourie pardessus la
connexion)
en dos ou en vbscript.
Encore merci a tous ceux qui on répondu tous mes question
Sébas




Avatar
sgroulx
bonjour
je ne sais pas si sa repond a mes besoin mais j'ai voulu lessayé quand même.
mais je nais pas réussi avec les 2 méthode trouver plus bas
je ne suis pas habituer avec le WMI
pourrait tu m'aider un peux


######
# 1 #
#####
dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:localhostrootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapter",,48)
For Each objItem in colItems
If Not IsNull(objItem.MaxSpeed)then
msgbox objItem.MaxSpeed
End if
next#
######
# fin 1 #
######

######
# 2 #
#####

Set NetworkSet = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
For each NetworkAdapter in NetworkSet
If Not IsNull NetworkAdapter.speed then
MsgBox NetworkAdapter.speed
End if
next
######
# fin2 #
#####

merci
Sébas

"Stéphane [MS]" a écrit dans le message de
news:
Bonjour,

Est-ce que dans Win32_NetworkAdapter, les propriétés MaxSpeed ou Speed
s'appliquent ?

Cdlt
Stéphane

"sgroulx" a écrit dans le message de news:
%
Bonjour
Dernière petit question pour finir mon script vb.
J'aurais besoin de savoir la vitesse de branchement ma connexion
téléphonique,(celle qui donne lorsque l'on passe la sourie pardessus la
connexion)
en dos ou en vbscript.
Encore merci a tous ceux qui on répondu tous mes question
Sébas







Avatar
Jérôme Cornier [MS]
Bonjour,

Je n'ai pas réussi avec la class Win32_NetworkAdapter car la propriété
MaxSpeed ne me retourne aucune valeur. (?)
Par contre j'ai la bande passante avec la class
Win32_PerfRawData_Tcpip_NetworkInterface.

Pour obtenir un exemple tel que celui ci-dessous, il y a l'outil
Scriptomatic (v2.0) qui fournit du code tout fait pour chaque class :
http://www.microsoft.com/downloads/details.aspx?FamilyID dfc342-648b-4119-b7eb-783b0f7d1178&DisplayLang=en

_________________________________________________________
On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("JCORNIER01")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:" & strComputer &
"rootCIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "BytesReceivedPersec: " & objItem.BytesReceivedPersec
WScript.Echo "BytesSentPersec: " & objItem.BytesSentPersec
WScript.Echo "BytesTotalPersec: " & objItem.BytesTotalPersec
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "CurrentBandwidth: " & objItem.CurrentBandwidth
WScript.Echo "Description: " & objItem.Description
WScript.Echo "Frequency_Object: " & objItem.Frequency_Object
WScript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime
WScript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS
WScript.Echo "Name: " & objItem.Name
WScript.Echo "OutputQueueLength: " & objItem.OutputQueueLength
WScript.Echo "PacketsOutboundDiscarded: " &
objItem.PacketsOutboundDiscarded
WScript.Echo "PacketsOutboundErrors: " & objItem.PacketsOutboundErrors
WScript.Echo "PacketsPersec: " & objItem.PacketsPersec
WScript.Echo "PacketsReceivedDiscarded: " &
objItem.PacketsReceivedDiscarded
WScript.Echo "PacketsReceivedErrors: " & objItem.PacketsReceivedErrors
WScript.Echo "PacketsReceivedNonUnicastPersec: " &
objItem.PacketsReceivedNonUnicastPersec
WScript.Echo "PacketsReceivedPersec: " & objItem.PacketsReceivedPersec
WScript.Echo "PacketsReceivedUnicastPersec: " &
objItem.PacketsReceivedUnicastPersec
WScript.Echo "PacketsReceivedUnknown: " &
objItem.PacketsReceivedUnknown
WScript.Echo "PacketsSentNonUnicastPersec: " &
objItem.PacketsSentNonUnicastPersec
WScript.Echo "PacketsSentPersec: " & objItem.PacketsSentPersec
WScript.Echo "PacketsSentUnicastPersec: " &
objItem.PacketsSentUnicastPersec
WScript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
WScript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
WScript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
WScript.Echo
Next
Next
_________________________________________________________

--
Cordialement,
_________________________________________________________
Jérôme Cornier
Microsoft Services France

"sgroulx" a écrit dans le message de news:
%
bonjour
je ne sais pas si sa repond a mes besoin mais j'ai voulu lessayé quand
même.
mais je nais pas réussi avec les 2 méthode trouver plus bas
je ne suis pas habituer avec le WMI
pourrait tu m'aider un peux


######
# 1 #
#####
dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:localhostrootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapter",,48)
For Each objItem in colItems
If Not IsNull(objItem.MaxSpeed)then
msgbox objItem.MaxSpeed
End if
next#
######
# fin 1 #
######

######
# 2 #
#####

Set NetworkSet =
GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
For each NetworkAdapter in NetworkSet
If Not IsNull NetworkAdapter.speed then
MsgBox NetworkAdapter.speed
End if
next
######
# fin2 #
#####

merci
Sébas

"Stéphane [MS]" a écrit dans le message de
news:
Bonjour,

Est-ce que dans Win32_NetworkAdapter, les propriétés MaxSpeed ou Speed
s'appliquent ?

Cdlt
Stéphane

"sgroulx" a écrit dans le message de news:
%
Bonjour
Dernière petit question pour finir mon script vb.
J'aurais besoin de savoir la vitesse de branchement ma connexion
téléphonique,(celle qui donne lorsque l'on passe la sourie pardessus la
connexion)
en dos ou en vbscript.
Encore merci a tous ceux qui on répondu tous mes question
Sébas











Avatar
sgroulx
MERCI !!!!!!!!!!!!!!!!!!!!!!!:):)

c'est objItem.CurrentBandwidth qui donne la vitesse du lien.
un gros gros gros merci a tous
Sébas un gars heureux


"Jérôme Cornier [MS]" a écrit dans le
message de news:ez%
Bonjour,

Je n'ai pas réussi avec la class Win32_NetworkAdapter car la propriété
MaxSpeed ne me retourne aucune valeur. (?)
Par contre j'ai la bande passante avec la class
Win32_PerfRawData_Tcpip_NetworkInterface.

Pour obtenir un exemple tel que celui ci-dessous, il y a l'outil
Scriptomatic (v2.0) qui fournit du code tout fait pour chaque class :

http://www.microsoft.com/downloads/details.aspx?FamilyID dfc342-648b-4119-b7eb-783b0f7d1178&DisplayLang=en


_________________________________________________________
On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("JCORNIER01")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:" & strComputer &
"rootCIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "BytesReceivedPersec: " & objItem.BytesReceivedPersec
WScript.Echo "BytesSentPersec: " & objItem.BytesSentPersec
WScript.Echo "BytesTotalPersec: " & objItem.BytesTotalPersec
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "CurrentBandwidth: " & objItem.CurrentBandwidth
WScript.Echo "Description: " & objItem.Description
WScript.Echo "Frequency_Object: " & objItem.Frequency_Object
WScript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime
WScript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS
WScript.Echo "Name: " & objItem.Name
WScript.Echo "OutputQueueLength: " & objItem.OutputQueueLength
WScript.Echo "PacketsOutboundDiscarded: " &
objItem.PacketsOutboundDiscarded
WScript.Echo "PacketsOutboundErrors: " &
objItem.PacketsOutboundErrors

WScript.Echo "PacketsPersec: " & objItem.PacketsPersec
WScript.Echo "PacketsReceivedDiscarded: " &
objItem.PacketsReceivedDiscarded
WScript.Echo "PacketsReceivedErrors: " &
objItem.PacketsReceivedErrors

WScript.Echo "PacketsReceivedNonUnicastPersec: " &
objItem.PacketsReceivedNonUnicastPersec
WScript.Echo "PacketsReceivedPersec: " &
objItem.PacketsReceivedPersec

WScript.Echo "PacketsReceivedUnicastPersec: " &
objItem.PacketsReceivedUnicastPersec
WScript.Echo "PacketsReceivedUnknown: " &
objItem.PacketsReceivedUnknown
WScript.Echo "PacketsSentNonUnicastPersec: " &
objItem.PacketsSentNonUnicastPersec
WScript.Echo "PacketsSentPersec: " & objItem.PacketsSentPersec
WScript.Echo "PacketsSentUnicastPersec: " &
objItem.PacketsSentUnicastPersec
WScript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
WScript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
WScript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
WScript.Echo
Next
Next
_________________________________________________________

--
Cordialement,
_________________________________________________________
Jérôme Cornier
Microsoft Services France

"sgroulx" a écrit dans le message de news:
%
bonjour
je ne sais pas si sa repond a mes besoin mais j'ai voulu lessayé quand
même.
mais je nais pas réussi avec les 2 méthode trouver plus bas
je ne suis pas habituer avec le WMI
pourrait tu m'aider un peux


######
# 1 #
#####
dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:localhostrootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapter",,48)
For Each objItem in colItems
If Not IsNull(objItem.MaxSpeed)then
msgbox objItem.MaxSpeed
End if
next#
######
# fin 1 #
######

######
# 2 #
#####

Set NetworkSet > > GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
For each NetworkAdapter in NetworkSet
If Not IsNull NetworkAdapter.speed then
MsgBox NetworkAdapter.speed
End if
next
######
# fin2 #
#####

merci
Sébas

"Stéphane [MS]" a écrit dans le message de
news:
Bonjour,

Est-ce que dans Win32_NetworkAdapter, les propriétés MaxSpeed ou Speed
s'appliquent ?

Cdlt
Stéphane

"sgroulx" a écrit dans le message de news:
%
Bonjour
Dernière petit question pour finir mon script vb.
J'aurais besoin de savoir la vitesse de branchement ma connexion
téléphonique,(celle qui donne lorsque l'on passe la sourie pardessus
la




connexion)
en dos ou en vbscript.
Encore merci a tous ceux qui on répondu tous mes question
Sébas