Creare da codice una Virtual Directory su IIS

Procedure Create_IIS_VirtualDir(VirtualDirectoryName : String;PhisicalPath : String =  'c:\';AccessRead : Boolean = True;EnableDirBrowsing : Boolean =  False);

Var
IIS, IIS_WServer, Root,  NewDir: Variant;

Begin
 If not  DirectoryExists(PhisicalPath) then
 If not  ForceDirectories(PhisicalPath) then Exit;
 IIS :=  CreateOleObject('IISNamespace');
 IIS :=  IIS.GetObject('IIsWebService', 'localhost/w3svc');
 IIS_WServer :=  IIS.GetObject('IIsWebServer', '1');
 Root :=  IIS_WServer.GetObject('IIsWebVirtualDir', 'Root');
 NewDir :=  Root.Create('IIsWebVirtualDir', VirtualDirectoryName);

// setting web dir  property
 NewDir.AccessRead :=  AccessRead;
 NewDir.EnableDirBrowsing :=  EnableDirBrowsing;
 NewDir.Path :=  PhisicalPath;
 NewDir.SetInfo;
End;

Tramite questa procedura è possibile creare dinamicamente virtual directory da codice. Ciò può risultare utile nel caso si debba scrivere un programma di installazione per la propria applicazione Web oppure creare delle procedure remote.

E’ inoltre possibile impostare in modo semplice moltissimi parametri e gestire IIS in modo semplice utilizzando I metodi descritti da ms in questo link