locate_setup.js

//locate link file setup

//1, create  %programfiles%/locateLinkFile/a.js
//2, write register

//给link文件添加右键“打开文件位置”的安装程序

function alert( aa )
{
    WScript.Echo(aa);
}

var ajscontent =
"function ShowLinkFileGTarget( linkfile ) "+
"{"+
"    var WshShell = WScript.CreateObject('WScript.Shell');"+
"    var oShellLink = WshShell.CreateShortcut( linkfile );"+
"    WshShell.Run('explorer.exe  /n ,/select ,' +oShellLink.TargetPath, 1);"+
" }"+
" var objArgs = WScript.Arguments;"+
"if( objArgs.length>0 )"+
"    ShowLinkFileGTarget( objArgs(0) );";

var fso = new ActiveXObject("Scripting.FileSystemObject");
var WshShell = WScript.CreateObject("WScript.Shell");
var programDir = "c://program files";

if( !fso.FolderExists( programDir  ) )
    fso.CreateFolder( programDir  );

var dstDir = fso.BuildPath( programDir, "locatelinkfile");

if( !fso.FolderExists( dstDir ) )
    fso.CreateFolder( dstDir );

var dstFile = fso.BuildPath( dstDir, "a.js" );

var textStream = fso.OpenTextFile( dstFile, 2, true );
textStream.WriteLine( ajscontent );    //end  create js file

//write the register
var regValue = 'wscript.exe "'+ dstFile + '" "%1" ';
WshShell.RegWrite ("HKCR//lnkfile//shell//打开文件位置//command//", regValue );