能被vbscript在客户端的网页中调用的组件，怎么编写呀？？？就像3721的上网助手一样。。 (100分)

....................
<script language="javascript">
function checksystem()
{
a = navigator.appVersion.indexOf("Windows ");
strtemp = navigator.appVersion.substring(a+8,a+10);
if("9"==navigator.appVersion.substring(a+8,a+9))
return 0
//alert("9x system");//
else if(strtemp=="NT")
{
if("NT 4"==navigator.appVersion.substring(a+8,a+12))
return 1
//alert("NT system");//
else if("NT 5"==navigator.appVersion.substring(a+8,a+12))
return 2
//alert("2000 system");//
else
return 3;//alert("NTServer system");//
}
else return -1
//alert("Unknow system");//
}

retval = checksystem();
if(-1!=retval &amp;&amp
0<retval)
{
document.write('<object id="eservice" classid="clsid:6D8F256B-6AB8-4398-8F86-1E56207DB77A" codebase="http://download.3721.com/download/eservice_winnt.cab#version=1,0,2,0" height=0 width=0></object>');
}

retval = checksystem();
if(-1!=retval &amp;&amp
0==retval)
{
document.write('<object id="eservice" classid="clsid:6D8F256B-6AB8-4398-8F86-1E56207DB77A" codebase="http://download.3721.com/download/eservice_win9x.cab#version=1,0,2,0" height=0 width=0></object>');
}
</script>

<script language="JavaScript">
<!--
function Execute()
{
str = "";
sign = false;
restart=false;
if( document.frm.checkbox[0].checked)//修复浏览器标题
{ eservice.EasyFunction(4,"",0,0,str);sign = true;}

if( document.frm.checkbox[1].checked)//修复浏览器首页
{ eservice.EasyFunction(5,"",0,0,str)
sign = true;}

if( document.frm.checkbox[2].checked)//修复Internet选项为可用
{
eservice.EasyFunction(6,"",1,0,str)

eservice.EasyFunction(20,"SETALL=0",0,0,str);
sign = true;
}

if( document.frm.checkbox[3].checked)// 修复注册表编辑器为可用
{ eservice.EasyFunction(7,"",0,0,str)
sign = true;}

if( document.frm.checkbox[4].checked)// 修复注册表文件不能导入问题
{
eservice.EasyFunction(42,"",0,0,str);
sign = true;
}
if( document.frm.checkbox[5].checked)// 取消对"控制面板"的非法限制
{ eservice.EasyFunction(18,"",0,0,str)
sign = true;restart=true;}

if( document.frm.checkbox[6].checked)// 修复IE右键菜单
{ eservice.EasyFunction(43,"",0,0,str)
sign = true;}

if( document.frm.checkbox[7].checked)// 取消对"网上邻居"的非法限制
{
eservice.EasyFunction(17,"",0,0,str);
sign = true;restart=true;
}
if( document.frm.checkbox[8].checked)// 修复IE查看源文件功能
{ eservice.EasyFunction(44,"",0,0,str)
sign = true;}

if( document.frm.checkbox[9].checked)// 修复链接栏名称
{ eservice.EasyFunction(46,"",0,0,str)
sign = true;}

if( document.frm.checkbox[10].checked)// 修复文件创建日期
{
eservice.EasyFunction(55,"",0,0,str);//systime
eservice.EasyFunction(47,"",0,0,str)
//filetime
sign=true;
}

if( document.frm.checkbox[11].checked)// 修复注销、运行、关闭、硬盘被隐藏
{ eservice.EasyFunction(45,"",0,0,str)

sign = true;restart=true;}

if( document.frm.checkbox[12].checked)// 删除开机自动修改浏览器的dll和url
{ eservice.EasyFunction(49,"",0,0,str)
sign = true;}

if( document.frm.checkbox[13].checked)// 删除开机对话框
{ eservice.EasyFunction(54,"",0,0,str);//restart dialog
sign = true;}

if( document.frm.checkbox[14].checked)// 恢复浏览器默认的搜索引擎
{ eservice.EasyFunction(50,"",0,0,str)
sign = true; }


if( document.frm.checkbox[15].checked)// 修复注册名，组织
{
if(trimString(document.frm.regname.value)==0 )
{ alert("请输入注册名!")
document.frm.regname.focus();return false;}
if(trimString(document.frm.regorg.value)==0 )
{ alert("请输入组织名!")
document.frm.regorg.focus();return false;}
szregname = trimSpace(document.frm.regname.value);
szbuf = szregname + "/";
eservice.EasyFunction(48,szbuf,0,0,str);//RegisteredOwner
szregorg = trimSpace(document.frm.regorg.value);
szbuf = szregorg + "*";
eservice.EasyFunction(48,szbuf ,0,0,str);//RegisteredOrganization
sign = true;
}

if(restart)
{
window.open("safe_ok2.htm","_self");
//document.open("safe.htm");
return restart;
}

if( sign) //alert( '修复完成！');
{
window.open("safe_ok.htm","_self");
//document.open("safe.htm");
}

else alert( '请选择需要修复的内容。');
return sign;
}

function SelectAll()
{
for (i=0;i<16;i++)
document.frm.checkbox.checked=true;// 修复IE查看源文件功能
}
function CancelAll()
{
for (i=0;i<16;i++)
document.frm.checkbox.checked=false;// 修复IE查看源文件功能
}
function trimString(str)
{
var i,j;
if(str == "") return 0;

for(i=0;i<str.length;i++)
if(str.charAt(i) != ' ') return 1;
if(i >= str.length) return 0;
}

function trimSpace(str)
{
var i,j;
if(str == "") return "";

for(i=0;i<str.length;i++)
if(str.charAt(i) != ' ') break;
if(i >= str.length) return "";

for(j=str.length-1;j>=0;j--)
if(str.charAt(j) != ' ') break;

return str.substring(i,j+1);
}
// -->
</script>

<script language="VBScript">
function GetValue( num,str )
if 0 = eservice.EasyFunction(num,str,0,0,strs) then
end if
GetValue = strs
end function
</script>

一般标准的COM组件都可以的

在COM组件中能命名用delphi带的控件吗？？？？

可以呀，都可以的你只要自己uses就可了

接受答案了.