Create a virtual network named Scripted Network.

Visual Basic
Edit|Remove
On Error Resume Next

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