>************************************************************************ >* setup :: setIISAdmin >********************************* >*** Function: setIISAdmin Method. Set virtual with IISADMIN. >************************************************************************ >FUNCTION setIISAdmin >LPARAMETERS cProd,cFolder,cDomain,cSite >LOCAL loIIS,lcRootPath,loVirtual >lcRootPath="" >loIIS=GetObject("IIS://" + cDomain + "/W3SVC") >FOR EACH oSite IN loIIS > IF VAL(oSite.name)#0 > IF oSite.ServerComment == cSite > lcRootPath=oSite.ADsPath+"/ROOT" > ENDIF > ENDIF >ENDFOR >IF EMPTY(lcRootPath) > THIS.cError="Could not find IISAdmin Root" > RETURN >ELSE > loIIS=GetObject(lcRootPath) > * Create Script Dir > loVirtual=loIIS.CREATE("IIsWebVirtualDir",cProd) > IF TYPE("loVirtual")# "O" && possibly already exists > loVirtual = GETOBJECT(lcRootPath+"/"+cProd) > IF TYPE("loVirtual")# "O" > THIS.cError="Could not create executable virtual" > RETURN > ENDIF > ENDIF > lcAppRoot = loIIS.AppRoot+'/'+ cprod && for debug support > loVirtual.AppRoot = lcAppRoot && for debug support > loVirtual.AppFriendlyName = cProd > loVirtual.AppIsolated = 2 && 1 = High(unload), 2 = pooled(unload), 0 = inprocess > loVirtual.AccessRead=.T. > loVirtual.AccessExecute=.F. > loVirtual.AccessScript=.T. > loVirtual.AuthBasic=.T. > loVirtual.AuthNTLM=.T. > *loVirtual.AuthFlags = 4 > loVirtual.Path = IIF(EMPTY(cFolder),THIS.cAppStartPath,cFolder+"\")+cProd+[\wwwroot] > loVirtual.SetInfo() > > * Create Read Dir > loVirtual=loIIS.CREATE("IIsWebVirtualDir",cProd+"r") > IF TYPE("loVirtual")# "O" && possibly already exists > loVirtual = GETOBJECT(lcRootPath+"/"+cProd+"r") > IF TYPE("loVirtual")# "O" > THIS.cError="Could not create read virtual" > RETURN > ENDIF > ENDIF > loVirtual.PATH=IIF(EMPTY(cFolder),THIS.cAppStartPath,cFolder+"\")+cProd+"r" > loVirtual.AppCreate(.T.) > loVirtual.AppFriendlyName=cProd+"r" > loVirtual.AccessRead=.T. > loVirtual.AccessExecute=.F. > loVirtual.AuthBasic=.T. > loVirtual.AuthNTLM=.T. > loVirtual.SetInfo() > >ENDIF >RETURN >ENDFUNC >************************************************************************ >>Your latest download loaded with no problem and created the AVFPdemo2 virtual directories without any problem. Also the default screen came up as expected. Good job.