VBS: Traffic von Netzwerkinterface auslesen?

Hallo!

Ich versuche gerade, mittels VBS auf das WMI Objekt Win32_PerfFormattedData_Tcpip_NetworkInterface zuzugreifen, um die Attribs BytesReceivedPersec und BytesSentPersec auszulesen (aktuellen Traffic auf bestimmtem Interface visualisieren).

Wenn ich mein VBScript ausführe, liefern selbige Attribute aber in 90% der Fälle "0" und manchmal einen Wert zurück. Bin mir ned ganz sicher, was ich hier falsch mache.. aber im WMI Explorer schauts genauso aus.

Code: VB

Const Flag1 = &h10
Const Flag2 = &h20

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Query = "SELECT BytesReceivedPersec, BytesSentPersec FROM Win32_PerfFormattedData_Tcpip_NetworkInterface WHERE Name = '3Com Gigabit LOM [3C940]'"

Set colItems = objWMIService.ExecQuery(Query,"WQL",Flag1+Flag2)

For Each objItems In colItems
  Wscript.echo "Bandwidth IN: " & objItems.BytesReceivedPersec & " B/s, Bandwidth OUT: " & objItems.BytesSentPersec & " B/s."
Next

Wie gesagt, manchmal kommen etwas eigenartige Werte raus, meistens nur "0". Gibt es einen besseren/vernünftigeren Weg, den aktuellen Traffic pro Sekunde von einem Netzwerkinterface mittels WMI auszulesen? Ohne dabei auf Rohdaten wie in Win32_PerfRawData_Tcpip_NetworkInterface zurückgreifen zu müssen?

Danke..

k, dann wird's daran liegen, habe XP, jo.. Hm, kennt irgendwer eine Alternative?

Bin leider völlig auf VBScript in diesem Fall limitiert, ja. Und am liebsten keine modernen Objekte, kann gut sein, daß der Code auch auf Win2000 noch laufen muß, alallalala

Habe ich mir auch schon überlegt, jo, bin nur deswegen davon zurückgeschreckt, weil es ungleich komplizierter zu sein scheint, als einfach ein paar Werte aus einem WMI Objekt auszulesen.. Müßte ich mir Mal genauer ansehen.