************************************************************************ * 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.