Virtual Server Virtual Networks List All Virtual Networks
' List All Virtual Networks
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application") Set colNetworks = objVS.VirtualNetworks
For Each objNetwork in colNetworks Wscript.Echo "Bytes dropped: " & objNetwork.BytesDropped Wscript.Echo "Bytes received: " & objNetwork.BytesReceived Wscript.Echo "Bytes sent: " & objNetwork.BytesSent Wscript.Echo "File: " & objNetwork.File Wscript.Echo "Host adapter: " & objNetwork.HostAdapter Wscript.Echo "Name: " & objNetwork.Name Wscript.Echo "Notes: " & objNetwork.Notes Wscript.Echo "Packets dropped: " & objNetwork.PacketsDropped Wscript.Echo "Packets received: " & objNetwork.PacketsReceived Wscript.Echo "Packets sent: " & objNetwork.PacketsSent Wscript.Echo Next
|
VbsEdit includes all these samples!
Download version 3.4.1
Released Tuesday, January 06, 2009 -
The evaluation version never expires
Home
Buy Now
HtaEdit
Support
Video
What's new ?
Awards
|