function CreateVirtualDirectory() 

	OBJECT objIIS_Root, objVirtDir;  
	string param;
	NUMBER ret;
begin 
set objIIS_Root = CoGetObject("IIS://localhost/W3SVC/1/Root", ""); 
if (IsObject(objIIS_Root)) then  
try 

 set objVirtDir = objIIS_Root.Create("IISWebVirtualDir", gszWebSiteName); 

if (IsObject(objVirtDir)) then 

objVirtDir.Path = VIRTUALDIRPATH; 
objVirtDir.AccessRead = TRUE; 
objVirtDir.AccessScript = TRUE;    
objVirtDir.SetInfo();  
objVirtDir.AppCreate(TRUE);
objVirtDir.SetInfo(); 
objVirtDir.EnableDefaultDoc = TRUE;
objVirtDir.DefaultDoc ="Default.aspx";
objVirtDir.AuthAnonymous = FALSE;
objVirtDir.AuthNTLM = 1;     
objVirtDir.SetInfo();
endif; 
catch 
endcatch; 
end;