Доброго времени суток.
Потребовалось подкорректировать инсталятор: добавить "устаревание" HttpHeaders.
Полазив по инету нашел ф-цию:
function ExpireDir(dir, period)
NUMBER nResult;
OBJECT objIISRoot;
begin
nResult = 0; // 0 == Pass, -1 == Failed...
try
set objIISRoot = CoGetObject(dir, "");
if IsObject( objIISRoot ) then
objIISRoot.HttpExpires = "D, "+period;
objIISRoot.SetInfo();
else
nResult = -1;
endif;
catch
nResult = -1;
endcatch;
return nResult;
end;
ну и соотвественно вызываю:
function SetFilesExpiration(hMSI)
STRING ImagesDir, CommonDir;
begin
ImagesDir = "IIS://Localhost/W3SVC/1/ROOT/Dir1/Dir2";
ExpireDir(ImagesDir, "604800");
ExpireDir(CommonDir, "604800");
end;
Однако проверка IsObject( objIISRoot ) возвращает false.
Подскажите что не так, как узнать причину.
Юзаем InstallShield 9.0.
