var fso = new ActiveXObject("Scripting.FileSystemObject") 
var svcPath = "IIS://localhost/W3SVC/1" 
var svcRoot = GetObject(svcPath) 
var webRoot = svcRoot.GetObject("IIsWebVirtualDir", "Root") 

try
{
    var objVDir1 = webRoot.Create("IIsWebVirtualDir", "dbnetoffice") 
    objVDir1.Path = fso.GetAbsolutePathName(".")
    objVDir1.AppCreate(2) 
    objVDir1.AppFriendlyName = "DotNetDemo"
    objVDir1.SetInfo()
}
catch(ex) 
{
//    WScript.Echo(ex.description + "(" + ex.number + ")" )
}

var o = new ActiveXObject("WScript.NetWork") 
var wshShell = new ActiveXObject("WScript.Shell")
wshShell.Run("iexplore.exe http://" + o.ComputerName + "/DotNetDemo/default.aspx")