高手,请问了!谢谢! 50分!

我在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, 可能是需要设置那个属性,帮助文件也没有找到, 请哪位大虾帮帮忙!谢谢谢谢!
 分不够了尽管说!