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.
goldy27Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Storage Software

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.