Ad hoc Geek

function install()
{
    var hostname	= "localhost";
    var projectName	= "MyProject";
    var projectDir	= "C:\\Projects\\MyProject";
 
    try
    {
        var existing = GetObject("IIS://" + hostname + "/W3SVC/1/Root/" + projectName);
        WScript.Echo("ERROR : An application called " + projectName + " already exists.");
        return;
    } catch(e) {}
 
    try
    {
        //Get the root IIS application
        var objIIS = GetObject("IIS://" + hostname + "/W3SVC/1/Root");
 
        var virtualDir = objIIS.Create("IISWebVirtualDir", projectName);
        virtualDir.AppIsolated		= 2; //pooled process
        virtualDir.AccessScript 	= true;
        virtualDir.AppFriendlyName	= projectName;
        virtualDir.Path 		= projectDir;
        virtualDir.AccessWrite		= true;
        virtualDir.AccessRead		= true;
        virtualDir.AccessExecute	= true;
        virtualDir.AppCreate(true);
        virtualDir.SetInfo();
 
        WScript.Echo("IIS application \"" + projectName + "\" created successfully.");
    }
    catch(e)
    {
        var msg = "";
        for (var prop in e)
        {
            msg += prop + ":" + e[prop] + "\n";
        }
 
        WScript.Echo(msg);
    }
}
 
install();