垃圾脚本

<script language="jscript">
//取得网络上的打印机
function getnetprinter()
{
  var obj=new ActiveXObject("WScript.Network");
  var netprinter=obj.EnumPrinterConnections(); 
  for(i=0;i<netprinter.Count();i+=2)
  {
    document.writeln(netprinter.Item(i)+"="+netprinter.Item(i+1));
  }
}
//取得磁盘信息 传入参数如：getdiskinfo('c')
function getdiskinfo(para)
{
  var fs=new ActiveXObject("scripting.filesystemobject");
  d=fs.GetDrive(para);
  s="卷标:" + d.VolumnName;
  s+="------" + "剩余空间:" + d.FreeSpace/1024/1024 + "M";
  s+="------" + "磁盘序列号:" + d.serialnumber;
  alert(s)
}
//取得系统目录
function getprocessnum()
{
    var pnsys=new ActiveXObject("WScript.shell");
    pn=pnsys.Environment("PROCESS");
    alert(pn("WINDIR"));
}
//启动计算器
function runcalc()
{
  var calc=new ActiveXObject("WScript.shell");
  calc.Run("calc");
}
//读取注册表中的值
function readreg()
{
  var myreadreg=new ActiveXObject("WScript.shell");
  try{
    alert(myreadreg.RegRead("HKEY_LOCAL_MACHINE//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//NeroCheck"));
  }
  catch(e)
  {
    alert("读取的值不存在！");
  }
}
//写注册表
function writereg()
{
  var mywritereg=new ActiveXObject("WScript.shell");
  try{
    mywritereg.RegWrite("HKEY_LOCAL_MACHINE//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//MyTest","c://mytest.exe");
    alert("写入成功！");
  }
  catch(e)
  {
    alert("写入路径不正确！");
  }
}
//删除注册表
function delreg()
{
  var mydelreg=new ActiveXObject("WScript.shell");
  if(confirm("是否真的删除？"))
  {
    try{
   mydelreg.RegDelete("HKEY_LOCAL_MACHINE//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//MyTest");
   alert("删除成功！");
 }
 catch(e)
 {
   alert("删除路径不正确");
 }
  }
}
//取得计算机名域名用户名
function netinfo()
{
  var mynetinfo=new ActiveXObject("WScript.network");
  alert("计算机名:"+mynetinfo.ComputerName+"域名:"+mynetinfo.UserDomain+"用户名:"+mynetinfo.UserName);
}
//返回系统中特殊目录的路径 (Fonts,AllUsersDesktop,Desktop,MyDocuments,Recent.....)
function getspecialfolder()
{
  var mygetfolder=new ActiveXObject("WScript.shell");
  if(mygetfolder.SpecialFolders("Fonts")!=null)
  {
    alert(mygetfolder.SpecialFolders("Fonts"));
  }
}
//取得文件信息  调用方式如：getfileinfo('E://MyPlace//TEST//myjs.htm')
function getfileinfo(para)
{
  var myfile=new ActiveXObject("scripting.filesystemobject");
  var fi=myfile.GetFile(para);
  alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed);
}
//取得客户端的信息
function clientInfo()
{
  strClientInfo="availHeight=   "+window.screen.availHeight+"/n"+
    "availWidth=   "+window.screen.availWidth+"/n"+
    "bufferDepth=   "+window.screen.bufferDepth+"/n"+
    "colorDepth=   "+window.screen.colorDepth+"/n"+
    "colorEnable=   "+window.navigator.cookieEnabled+"/n"+
    "cpuClass=   "+window.navigator.cpuClass+"/n"+
    "height=   "+window.screen.height+"/n"+
    "javaEnable=   "+window.navigator.javaEnabled()+"/n"+
    "platform=   "+window.navigator.platform+"/n"+
    "systemLanguage=   "+window.navigator.systemLanguage+"/n"+
    "userLanguage=   "+window.navigator.userLanguage+"/n"+
    "width=   "+window.screen.width;
  alert(strClientInfo); 
}
//Dilog Helper对象的使用
function changeColor()//Dilog Helper对象的使用之调用系统调色板
{
var sColor=dlgHelper.choosecolordlg();
sColor=sColor.toString(16);
if (sColor.length < 6) {
  var sTempString = "000000".substring(0,6-sColor.length);
  sColor = sTempString.concat(sColor);
}
alert(sColor);
mybody.style.backgroundColor=sColor;
}
function getFonts()//Dilog Helper对象的使用之取得系统支持的字体
{
  var strFonts="";
  for(var i=1;i<dlgHelper.fonts.count;i++)
  {
    strFonts=strFonts+dlgHelper.fonts(i)+"|";
  }
  alert(strFonts);
}
function getBlockFormat()//Dilog Helper对象的使用之取得系统中块的格式信息（如：标题1、标题2....）
{
  var strBlockFormat="";
  for(var i=1;i<dlgHelper.BlockFormats.count;i++)
  {
    strBlockFormat=strBlockFormat+dlgHelper.BlockFormats(i)+"|";
  }
  alert(strBlockFormat);
}

function createTxtLink()//给选中的文本创建链接
{
  var sText=document.selection.createRange();
  if(sText.text!="")
  {
    document.execCommand("CreateLink");
    if(sText.parentElement().tagName=="A")
    {
      sText.parentElement().innerText=sText.parentElement().href;
      document.execCommand("ForeColor",false,"#ffff00");
    }
  }
}
//以下为取得BlockFormats，填充Select（id为myselect）并根据选择不同的BlockFormat改变样式
//函数fillselect()和changeformat()
//对execCommand的一点说明：Executes a command over the given selection or text range
function fillselect()
{
  var item=document.createElement("OPTION")
  item.text="请选择";
  item.value="";
  myselect.add(item);
  for(var i=1;i<dlgHelper.BlockFormats.count;i++)
  {
    item=document.createElement("OPTION");
    item.text=dlgHelper.BlockFormats(i);
    item.value=dlgHelper.BlockFormats(i);
    myselect.add(item);
  }
}
function changeformat()
{
  var sSelect=myselect.options[myselect.selectedIndex].value;
  document.execCommand("FormatBlock",false,sSelect);
}
//取得驱动器类型，调用如：ShowDriveType('c:')
function ShowDriveType(drvpath)
{
  fs=new ActiveXObject("scripting.filesystemobject");
  disk=fs.GetDrive(drvpath);
  var whichtype="";
  switch(disk.DriveType)
  {
 case 0:
   whichtype="Unknown"
   break
 case 1:
   whichtype="Removable"
   break
 case 2:
   whichtype="Fixed"
   break
 case 3:
   whichtype="Network"
   break
 case 4:
   whichtype="CD-ROM"
   break
 case 5:
   whichtype="RAM Disk"
  }
  alert(whichtype);
  //显示磁盘的SerialNumber
  try{
 alert(disk.SerialNumber);
  }
  catch(e){
    alert(e.message);
  }
  alert(disk.VolumeName);//取得卷标
}

</script>
－－－－－－－－－－－－－－－－－－－－－－－－－
<OBJECT id=dlgHelper CLASSID="clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b" width="0px" height="0px"></OBJECT>

-------------------------------------------------------------------------

var mywritereg=new ActiveXObject("WScript.shell");
  try{
    mywritereg.RegWrite("HKEY_LOCAL_MACHINE//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//MyTest","c://mytest.exe");
    alert("写入成功！");
  }
  catch(e)
  {
    alert("写入路径不正确！");
  }
}
//删除注册表
function delreg()
{
  var mydelreg=new ActiveXObject("WScript.shell");
  if(confirm("是否真的删除？"))
  {
    try{
   mydelreg.RegDelete("HKEY_LOCAL_MACHINE//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//MyTest");
   alert("删除成功！");
 }
 catch(e)
 {
   alert("删除路径不正确");
 }
  }
}
//取得计算机名域名用户名
function netinfo()
{
  var mynetinfo=new ActiveXObject("WScript.network");
  alert("计算机名:"+mynetinfo.ComputerName+"域名:"+mynetinfo.UserDomain+"用户名:"+mynetinfo.UserName);
}
//返回系统中特殊目录的路径 (Fonts,AllUsersDesktop,Desktop,MyDocuments,Recent.....)
function getspecialfolder()
{
  var mygetfolder=new ActiveXObject("WScript.shell");
  if(mygetfolder.SpecialFolders("Fonts")!=null)
  {
    alert(mygetfolder.SpecialFolders("Fonts"));
  }
}
//取得文件信息  调用方式如：getfileinfo('E://MyPlace//TEST//myjs.htm')
function getfileinfo(para)
{
  var myfile=new ActiveXObject("scripting.filesystemobject");
  var fi=myfile.GetFile(para);
  alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed);
}
//取得客户端的信息
function clientInfo()
{
  strClientInfo="availHeight=   "+window.screen.availHeight+"/n"+
    "availWidth=   "+window.screen.availWidth+"/n"+
    "bufferDepth=   "+window.screen.bufferDepth+"/n"+