请教各位大哥，如何配置虚拟目录的属性？

本人用以下方法实现了虚拟目录的设置，但不知如何设置属性？
procedure TForm1.Button1Click(Sender: TObject);
var
  WebSite, WebServer, WebRoot, VDir: Variant;
begin
  WebSite := CreateOleObject('IISNamespace');
  WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
  WebServer := WebSite.GetObject('IIsWebServer', '1');
  WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
  VDir := WebRoot.Create('IIsWebVirtualDir', 'MyDir');
  VDir.AccessRead := True;
  VDir.Path := ExtractFilePath(Application.ExeName);
  VDir.SetInfo;
end;如何将   
执行许可的属性设置为：脚本和可执行程序
谢谢！