js检查客户端注册列表、打开应用、写入文件

 

  //查找注册列表
 function readRegedittext(s){
   var obj,sNic;
  try
  {
   obj = new ActiveXObject("WScript.Shell");
  }catch(e){
   alert('此功能需要浏览器支持，请设置“工具”→“Internet选项”→“安全”→“自定义级别”→“Activex控件和插件”→“对未标记为可安全执行的Activex控件和插件初始化并执行”设置为启动或提示');
   return 'false';
  }
  try{
   sNic = obj.RegRead(s);
   return sNic;
  }catch(e)
  {
   return '';
  }
 }
 //查看进程中
function FindProcesstext(strProcess) {
 　var locator = new ActiveXObject ("WbemScripting.SWbemLocator");
 　var service = locator.ConnectServer("."); // 本机
 　var properties = service.ExecQuery("SELECT * FROM Win32_Process");
    var eProc = new Enumerator(properties);
    var bRet = false;
    for( ;!eProc.atEnd();eProc.moveNext()){
　　  var p = eProc.item().Name;
        if(p.toUpperCase() == strProcess.toUpperCase()){
            bRet = true;
            break;
        }
　 }
    return bRet;
}
//打开文件
 function runtext(path){
  var executableFullPath=path;
  try
  {
   var shellActiveXObject=new ActiveXObject("WScript.Shell");
   if(!shellActiveXObject){
    alert('CouldnotgetreferencetoWScript.Shell');
    return;
   }
   shellActiveXObject.Run(executableFullPath);
   shellActiveXObject=null;
  }catch(errorObject){
   alert('打开失败_Error:/n'+errorObject.message);
  }
}

 //写入text到文件
 function writertext(lianxiren)
 {   
 var fso,tf;
 fso = new ActiveXObject("Scripting.FileSystemObject");
 var f = fso.GetSpecialFolder(2) + \\a.txt;
 tf = fso.CreateTextFile(f,2, false);
 tf.WriteLine("123="+lianxiren) ;
 tf.Close();
 }
 //打开程序
 function opentext(text,hklm,exe){
   var path = readRegedittext(hklm);
   if(path == 'false'){
    return false;
   }
   if(path == ''){
    alert('您还没安装此程序')
   }else{
     path += '\\'+exe;
     if(FindProcesstext(exe)){
       writertext(text);
     }else{
      writertext(text);
      runtext("\""+path);
     }
   }
 }
 function liaotian(account){
  opentext(account,‘HKLM\\SOFTWARE\\Microsoft\\MediaPlayer\\Installation Directory’,'wmplayer.exe')
 }