ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Virtual Networks - Scripting

Add a Network Adapter to a Virtual Machines
Attach a Virtual Network to a Virtual Network Adapter
Create a Virtual Network
Delete All Virtual Machine Network Adapters
Detach a Network Adapter from a Virtual Machine
Delete a Virtual Network
List All Virtual Networks
List Network Adapter Information for All Virtual Machines
List Virtual DHCP Server Information
Modify a Virtual Network Property
Modify Virtual Server DHCP Lease Times
Register a Virtual Network
Search for a Virtual Network
Unregister a Virtual Network

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.


Add a Network Adapter to a Virtual Machines


Adds a network adapter to a virtual machine named Windows 2000 Server. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
objVM.AddNetworkAdapter()

Attach a Virtual Network to a Virtual Network Adapter


Attaches a virtual network named Internal Network to a network adapter on a virtual machine named Windows 2000 Server. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")

Set objNetwork = objVS.FindVirtualNetwork("Internal Network")


Set colNetworkAdapters = objVM.NetworkAdapters
For Each objNetworkAdapter in colNetworkAdapters
    errReturn = objNetworkAdapter.AttachToVirtualNetwork(objNetwork)
Next

Create a Virtual Network


Create a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
errReturn = objVS.CreateVirtualNetwork _
    ("Scripted Network","C:\Virtual Machines")

Delete All Virtual Machine Network Adapters


Deletes all the network adapters for a virtual machine named Windows 2000 Server. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
Set colNetworkAdapters = objVM.NetworkAdapters
For Each objAdapter in colNetworkAdapters
    objVM.RemoveNetworkAdapter(objAdapter)
Next

Detach a Network Adapter from a Virtual Machine


Detaches all the network adapters found on a virtual machine named Windows 2000 Server. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")

Set colNetworkAdapters = objVM.NetworkAdapters
For Each objNetworkAdapter in colNetworkAdapters
    errReturn = objNetworkAdapter.DetachFromVirtualNetwork()
Next

Delete a Virtual Network


Deletes a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Scripted Network")
errReturn = objVS.DeleteVirtualNetwork(objNetwork)

List All Virtual Networks


Lists all the virtual networks on a computer.
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

List Network Adapter Information for All Virtual Machines


Lists network adapters for all the virtual machines on a computer. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
set colVMs = objVS.VirtualMachines

For Each objVM in colVMS
    Set colNetworkAdapters = objVM.NetworkAdapters
    For Each objAdapter in colNetworkAdapters
        Wscript.Echo "Virtual machine: " & objVM.Name
        Wscript.Echo "Network adapter ID: " & objAdapter.ID
        Wscript.Echo "Ethernet address: " & objAdapter.EthernetAddress
        Wscript.Echo "Is ethernet address dynamic: " & _
            objAdapter.IsEthernetAddressDynamic
        Wscript.Echo "Virtual machine: " & objAdapter.VirtualMachine
        Wscript.Echo "Virtual network: " & objAdapter.VirtualNetwork
        Wscript.Echo
    Next
Next

List Virtual DHCP Server Information


Lists Virtual DHCP Server information for a network named Internal Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Internal Network")

Set objDHCPServer = objNetwork.DHCPVirtualNetworkServer
Wscript.Echo "Default gateway address: " & objDHCPServer.DefaultGatewayAddress
Wscript.Echo "DNS servers: " & objDHCPServer.DNSServers
Wscript.Echo "Ending IP address: " & objDHCPServer.EndingIPAddress
Wscript.Echo "Is enabled: " & objDHCPServer.IsEnabled
Wscript.Echo "Lease rebinding time: " & objDHCPServer.LeaseRebindingTime
Wscript.Echo "Lease renewal time: " & objDHCPServer.LeaseRenewalTime
Wscript.Echo "Lease time: " & objDHCPServer.LeaseTime
Wscript.Echo "Network: " & objDHCPServer.Network
Wscript.Echo "Network mask: " & objDHCPServer.NetworkMask
Wscript.Echo "Server IP address: " & objDHCPServer.ServerIPAddress
Wscript.Echo "Starting IP address: " & objDHCPServer.StartingIPAddress
Wscript.Echo "WINS Server: " & objDHCPServer.WINSServers

Modify a Virtual Network Property


Modifies the Notes property for a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Scripted Network")

objNetwork.Notes = "This note was added via a script."

Modify Virtual Server DHCP Lease Times


Modifies the DHCP lease times for a virtual network named Internal Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Internal Network")

Set objDHCPServer = objNetwork.DHCPVirtualNetworkServer
errReturn = objDHCPServer.ConfigureDHCPLeaseTimes(129630,64830,97230)

Register a Virtual Network


Registers a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
errReturn = objVS.RegisterVirtualNetwork _
    ("Scripted Network","C:\Virtual Machines")

Search for a Virtual Network


Locates a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Scripted Network")

Unregister a Virtual Network


Unregisters a virtual network named Scripted Network. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objNetwork = objVS.FindVirtualNetwork("Scripted Network")
errReturn = objVS.UnregisterVirtualNetwork(objNetwork)