Gathering network statistics under Virtual Server

Just a short post today - I recently went searching for some sample scripts for gathering information about the Virtual Server virtual networks - and did not find many - so I thought I would put this simple sample up:

Set vs = CreateObject("VirtualServer.Application")

For Each vn in vs.VirtualNetworks
Wscript.Echo
Wscript.Echo "Virtual Network: " & vn.name
Wscript.Echo "Packets sent: " & vn.packetsSent
Wscript.Echo "Packets received: " & vn.packetsReceived
Wscript.Echo
Next

This script will iterate over all the virtual networks on an instance of Virtual Server and let you know the name, packets sent and packets received for each network.

Cheers,
Ben