プログラムの公開方法

以下のようなテキストを、コメントや予約語などの部分だけ文字色を変えて表示したい

fs    = new ActiveXObject('Scripting.FileSystemObject')
shell = new ActiveXObject('WScript.Shell')

// テキストファイル入出力
Read  = function(path, swCreate, swUnicode){
 if(!fs.FileExists(path) && !swCreate){return ''}
 var rs=fs.OpenTextFile(path,1,swCreate,swUnicode), str=rs.AtEndOfStream?'':rs.ReadAll()
 rs.Close()
 return str
}
Write = function(path,str,swUnicode,sw追記){
 with(fs.OpenTextFile(path,sw追記?8:2,true,swUnicode)){Write(str); Close()}
}
RAS = function(path){return Read(path).split('\r\n')}