V_BSTR(&var) = SysAllocString(L"default.asp,index.asp,default.htm,index.htm");
V_VT(&var) = VT_BSTR;
iAds->Put(L"DefaultDoc", var);//设置默认启动文件
VariantClear(&var);
V_BSTR(&var) = SysAllocString(L"True");
V_VT(&var) = VT_BOOL;
iAds->Put(L"AccessScript", var); // 设置读取权限
iAds->Put(L"AccessRead",var);
iAds->Put(L"AccessWrite",var);
VariantClear(&var);
文章来源于领测软件测试网 https://www.ltesting.net/