Вы можете получить доступ к метабазе IIS 5.1 в VBScript, и это позволит вам создать виртуальный каталог. Например, это должно создать виртуальный каталог с именем «TestDir», который указывает на папку C: \ inetpub \ wwwroot \ Test
strComputer = "localhost"
strVdirName = "TestDir"
strVdirPath = "C:\Inetpub\wwwroot\Test"
set objIIS = GetObject("IIS://" & strComputer & "/W3SVC/1")
set objWebSite = objIIS.GetObject("IISWebVirtualDir","Root")
set objVdir = objWebSite.Create("IISWebVirtualDir",strVdirName)
objVdir.AccessRead = True
objVdir.Path = strVdirPath
objVdir.AppCreate (True)
objVdir.SetInfo
WScript.Echo "Successfully created virtual directory: " & objVdir.Name