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