Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 357
  • Last Modified:

Configure an IIS virtual directory with delphi

I would like to configure an IIS virtual directory programmatically. I want to change the read,write and execute permissions of the directory but I want to do it with delphi. I tried using ADSI but I haven't managed to find a solution. If it is possible, I would like an example showing how a directory is chosen and then how the permissions are set.
0
goldy27
Asked:
goldy27
1 Solution
 
ziolkoCommented:
first of all You need: ActiveDs_TLB.pas then look at one of my previouse Qs: http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20138531.html

and some code that might be helpfull:

var web_server: OLEVariant;
    FEnum: IEnumVariant;
    EnumIt: OLEVariant;
    res: LongBool;
    srvIt: IWebServer;
begin
  FMachineName:=Value;
  FItems:=TServers.Create;
  web_server:=_GetObject('IIS://'+Value+'/W3SVC');
  FEnum:=((IUnknown(web_server) as IADsContainer)._NewEnum) as IEnumVariant;
  FEnum.Next(1,EnumIt,Cardinal(res));
  while res do
    begin
      if EnumIt.Class = 'IIsWebServer' then
        begin
          Root.Name - ID of WebSite
          Root.ServerComment - COMMENT
          Root.ADsPat - ADSIPATH
          OleVariant(_GetObject(root.AdsPath+'/ROOT')).Path - PATH
        end;
      FEnum.Next(1,EnumIt,Cardinal(res));
    end;
  VarClear(EnumIt);
  VarClear(web_server);

more about IIS ADSI objects: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/htm/reference.asp

ziolko.
0
 
goldy27Author Commented:
i don't want to enumerate anything. I want to set permissions to the virtual directory. But it's ok. I found a way.
0
 
ziolkoCommented:
I know, I just tried to show You where to look for what You need
ziolko
0
 
CleanupPingCommented:
goldy27:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0
 
snehanshuCommented:
Hi!
No comment has been added lately and this question is therefore classified abandoned.

If asker wishes to close the question, then refer to
http://www.experts-exchange.com/help/closing.jsp

Otherwise, I will leave a recommendation in the Cleanup topic area that this question is:

Answered by: ziolko

Please leave any comments here within the next seven days. It is assumed that any participant not responding to this request is no longer interested in its final disposition.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

...Snehanshu
EE Cleanup Volunteer
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now