Connection Activity

[iLoveAU3]

my topic probably does not fit to any of autoit boards, however i would like to post it anyway.

SYSTEM WINDOW for CONNECTION PROPIERTIES

WYSLANO == Sent

ODEBRANO == Recieved

BAJTY == Bytes

image you see on the top has been captured on polish windows xp, this is why i have translated some words for you. (just in case)

Does anybody know were system store values for BYTES:SENT (4 908 065) and BYTES:RECIEVED (30 897 320) ?

[KaFu]

No, don't know where it's stored, but maybe I know how to obtain it ...

expandcollapse popup

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output &= "Computer: " & $strComputer  & @CRLF
$Output &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output &= "BytesReceivedPersec: " & $objItem.BytesReceivedPersec & @CRLF
      $Output &= "BytesSentPersec: " & $objItem.BytesSentPersec & @CRLF
      $Output &= "BytesTotalPersec: " & $objItem.BytesTotalPersec & @CRLF
      $Output &= "Caption: " & $objItem.Caption & @CRLF
      $Output &= "CurrentBandwidth: " & $objItem.CurrentBandwidth & @CRLF
      $Output &= "Description: " & $objItem.Description & @CRLF
      $Output &= "Frequency_Object: " & $objItem.Frequency_Object & @CRLF
      $Output &= "Frequency_PerfTime: " & $objItem.Frequency_PerfTime & @CRLF
      $Output &= "Frequency_Sys100NS: " & $objItem.Frequency_Sys100NS & @CRLF
      $Output &= "Name: " & $objItem.Name & @CRLF
      $Output &= "OutputQueueLength: " & $objItem.OutputQueueLength & @CRLF
      $Output &= "PacketsOutboundDiscarded: " & $objItem.PacketsOutboundDiscarded & @CRLF
      $Output &= "PacketsOutboundErrors: " & $objItem.PacketsOutboundErrors & @CRLF
      $Output &= "PacketsPersec: " & $objItem.PacketsPersec & @CRLF
      $Output &= "PacketsReceivedDiscarded: " & $objItem.PacketsReceivedDiscarded & @CRLF
      $Output &= "PacketsReceivedErrors: " & $objItem.PacketsReceivedErrors & @CRLF
      $Output &= "PacketsReceivedNonUnicastPersec: " & $objItem.PacketsReceivedNonUnicastPersec & @CRLF
      $Output &= "PacketsReceivedPersec: " & $objItem.PacketsReceivedPersec & @CRLF
      $Output &= "PacketsReceivedUnicastPersec: " & $objItem.PacketsReceivedUnicastPersec & @CRLF
      $Output &= "PacketsReceivedUnknown: " & $objItem.PacketsReceivedUnknown & @CRLF
      $Output &= "PacketsSentNonUnicastPersec: " & $objItem.PacketsSentNonUnicastPersec & @CRLF
      $Output &= "PacketsSentPersec: " & $objItem.PacketsSentPersec & @CRLF
      $Output &= "PacketsSentUnicastPersec: " & $objItem.PacketsSentUnicastPersec & @CRLF
      $Output &= "Timestamp_Object: " & $objItem.Timestamp_Object & @CRLF
      $Output &= "Timestamp_PerfTime: " & $objItem.Timestamp_PerfTime & @CRLF
      $Output &= "Timestamp_Sys100NS: " & $objItem.Timestamp_Sys100NS & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PerfRawData_Tcpip_NetworkInterface" )
Endif

Sent = PacketsSentPersec

Received = PacketsReceivedPersec

[iLoveAU3]

that's it!

thanks a lot