请教一个IIS的问题!焦急等待中,谢谢! (20分)

我在Delphi中创建IIS虚拟目录, 代码如下
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'JawinTest');
VDir.AccessRead := True;
VDir.AccessWrite:= True;
VDir.Path := 'C:/jawin';
VDir.SetInfo;

这样虽然可以创建虚拟目录, 但是还要打开IIS信息服务,把属性里面的"创建"点击一下,
我不是很懂IIS, 可能是需要设置那个属性,帮助文件也没有找到, 请哪位大虾帮帮忙!谢谢谢谢!
分不够了尽管说!

如果要打开应用程序执行许可

在最后加上　VDir.AppCreate(True);
实际上像你那样已经创建了一个虚拟目录，并且可以使用了
至于里面的创建，只是创建应用程序执行定义

VbScript的代码很容易转换为Delphi的
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref60/htm/prog_wmi_tut_03_03.asp

非常感谢您 LiChaoHui , 问题解决了! 再次感谢!

接下来的问题：
VDir.AppCreate(True);
执行完毕之后，[应用程序名]为空，怎样设置上去呀？请帮忙告知！