//查找注册列表
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')
}