Este método funciona no Windows Server 2003 IIS 6.0:
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "\root\microsoftiisv2")
Set objWebService = objWMIService.ExecQuery _
("Select * From IISWebService")
arrBindings = Array(0)
Set arrBindings(0) = _
objWMIService.Get("ServerBinding").SpawnInstance_()
arrBindings(0).IP = "192.168.1.1"
arrBindings(0).Port = "80"
arrBindings(0).Hostname = "www.example.com"
For Each objItem in objWebService
objItem.CreateNewSite "Test Site", arrBindings, _
"c:\inetpub\wwwroot\testsite"
Next
Este é o link para o Repositório de scripts do Microsoft TechNet relacionado a ou Gerenciando sites da Web no Internet Information Server 6.0 .
Outro artigo do TechNet útil explica como criar um AppPool programaticamente.
Aqui está um método alternativo, que também funciona no Windows Server 2000 (IIS 5.0). Escreva um arquivo .vbs:
IISWebName = "Name of the Web"
IISWebPath = "D:\Websites\MyWeb"
IISWebHeader = "http://www.example.com"
IISIPAddress = "10.0.0.10"
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run "iisweb.vbs /create """ & IISWebPath & """ """ & IISWebName & """ /b 80 /i """ & IISIPAddress & """" /d """ & IISWebHeader & """"
Se você quiser adicionar diretórios virtuais, poderá fazê-lo desta maneira:
oShell2.Run "iisvdir.vbs /create """ & IISWebName & """ pfengine ""D:\Common\engine"""