The ADSI container object Create method creates a new object in a container.
Set NewObj = Object.Create(KeyType, Name)
<%
Dim WebServiceObj, ServerObj
' Get the web service object, which contains servers
Set WebServiceObj = GetObject("IIS://LocalHost/W3SVC")
' Create a new web server object in the container
Set ServerObj = WebServiceObj.Create("IIsWebServer", "3")
' Add code to configure server and create Root virtual directory
%>
GetObject, Delete, CopyHere, MoveHere