Windows에서 연결된 네트워크 속도를 프로그래밍 방식으로 감지합니다.

Question

NIC에서 만든 이더넷 연결을 어떻게 검색합니까? 즉, NIC는 기가비트 이더넷 장치이지만 자동 감지 기능이므로 기가비트 속도 또는 고속 이더넷 속도로 연결될 수 있습니다.

어떤 속도로 연결되어 있는지 어떻게 알 수 있습니까?

WMI의 Win32_NetworkAdapter, CIM_NetworkAdapter, 심지어 wmic NET get Name,Speed을 사용해 보았지만 모두 속도에서 공백으로 표시됩니다.

저는 Windows XP Pro SP3을 사용하고 있습니다. 그러나 Windows Server 2003 (Standard & 엔터프라이즈), Windows Server 2008 및 Windows Server 2008 R2에서도 사용할 수있는 솔루션을 원합니다.

Answer 1

'mystifeid'코드 명 신비한 사람은이 사이트에 세 번째 게시물이 퍼즐을 해결 : 나는 Win7에와 대한 수의사을거야

Dim strQuery, strQuery2, objLocator, objWMI, objItem, objItem2, colItems, colItems2, resultString, nicName 
strQuery = "SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkInterface" 
strQuery2 = "SELECT * FROM Win32_NetworkAdapter" 
Set objLocator = CreateObject("WbemScripting.SWbemLocator") 
Set objWMI = objLocator.ConnectServer(".", "root\CIMV2") 
objWMI.Security_.ImpersonationLevel = 3 
Set colItems2 = objWMI.ExecQuery(strQuery2, "WQL", 0) 
Set colItems = objWMI.ExecQuery(strQuery, "WQL", 0) 
resultString = "" 
For Each objItem2 In colItems2 
If objItem2.NetConnectionStatus = 2 Then 
    nicName = Mid(objItem2.Name, 1, 5) 
    resultString = resultString & "Adapter Name : " & objItem2.Name & VbCrLf 
    resultString = resultString & "MAC Address : " & objItem2.MACAddress & VbCrLf 
    For Each objItem In colItems 
    If Mid(objItem.Name, 1, 5) = nicName Then 
    resultString = resultString & "CurrentBandwidth : " & objItem.CurrentBandwidth & VbCrLf 
    End If 
    Next 
End If 
Next 
Set objLocator = Nothing 
Set objWMI = Nothing 
Set colItems = Nothing 
Set colItems2 = Nothing 
WScript.Echo resultString 

PS- : http://social.msdn.microsoft.com/Forums/uk-UA/scripting/thread/e3936dff-7395-4a6a-ab35-aa1aab0bcd71

는 여기에 자신의 사랑 코드입니다 곧 Win2008하고 모두 알려주십시오.