WTL 7.5 Wizard Manual Installation

Hi, (All Developers)
Please Help Me:
JScript is no Working Correctly in my Windows (XP SP2)
Ho to Install WTL 7.5 Wizard (For Visual C++8.0) Manualy.

This JScript Install the Wizard:
// Windows Template Library - WTL version 7.5
// Copyright (C) Microsoft Corporation. All rights reserved.
//
// This file is a part of the Windows Template Library.
// The use and distribution terms for this software are covered by the
// Microsoft Permissive License (Ms-PL) which can be found in the file
// Ms-PL.txt at the root of this distribution.

// Setup program for the WTL App Wizard for VC++ 8.0 (Whidbey)

main();

function main()
{
 var bDebug = false;
 var Args = WScript.Arguments;
 if(Args.length > 0 && Args(0) == "/debug")
  bDebug = true;

 // Create shell object
 var WSShell = WScript.CreateObject("WScript.Shell");
 // Create file system object
 var FileSys = WScript.CreateObject("Scripting.FileSystemObject");

 var strValue = FileSys.GetAbsolutePathName(".");
 if(strValue == null || strValue == "")
  strValue = ".";

 var strSourceFolder = FileSys.BuildPath(strValue, "Files");
 if(bDebug)
  WScript.Echo("Source: " + strSourceFolder);

 if(!FileSys.FolderExists(strSourceFolder))
 {
  WScript.Echo("ERROR: Cannot find Wizard folder (should be: " +
strSourceFolder + ")");
  return;
 }

 try
 {
  var strVC8Key =
"HKLM\\Software\\Microsoft\\VisualStudio\\8.0\\Setup\\VC\\ProductDir";
  strValue = WSShell.RegRead(strVC8Key);
 }
 catch(e)
 {
  try
  {
   var strVC8Key_x64 =
"HKLM\\Software\\Wow6432Node\\Microsoft\\VisualStudio\\8.0\\Setup\\VC\\ProductDir";
   strValue = WSShell.RegRead(strVC8Key_x64);
  }
  catch(e)
  {
   WScript.Echo("ERROR: Cannot find where Visual Studio 8.0 is installed.");
   return;
  }
 }

 var strDestFolder = FileSys.BuildPath(strValue, "vcprojects");
 if(bDebug)
  WScript.Echo("Destination: " + strDestFolder);
 if(!FileSys.FolderExists(strDestFolder))
 {
  WScript.Echo("ERROR: Cannot find destination folder (should be: " +
strDestFolder + ")");
  return;
 }

 // Copy files
 try
 {
  var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.ico");
  var strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.ico");
  FileSys.CopyFile(strSrc, strDest);

  strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsdir");
  strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.vsdir");
  FileSys.CopyFile(strSrc, strDest);
 }
 catch(e)
 {
  var strError = "no info";
  if(e.description.length != 0)
   strError = e.description;
  WScript.Echo("ERROR: Cannot copy file (" + strError + ")");
  return;
 }

 // Read and write WTLAppWiz.vsz, add engine version and replace path when
found
 try
 {
  var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsz");
  var strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.vsz");

  var ForReading = 1;
  var fileSrc = FileSys.OpenTextFile(strSrc, ForReading);
  if(fileSrc == null)
  {
   WScript.Echo("ERROR: Cannot open source file " + strSrc);
   return;
  }

  var ForWriting = 2;
  var fileDest = FileSys.OpenTextFile(strDest, ForWriting, true);
  if(fileDest == null)
  {
   WScript.Echo("ERROR: Cannot open destination file" + strDest);
   return;
  }

  while(!fileSrc.AtEndOfStream)
  {
   var strLine = fileSrc.ReadLine();
   if(strLine.indexOf("Wizard=VsWizard.VsWizardEngine") != -1)
    strLine += ".8.0";
   else if(strLine.indexOf("WIZARD_VERSION") != -1)
    strLine = "Param=\"WIZARD_VERSION = 8.0\"";
   else if(strLine.indexOf("ABSOLUTE_PATH") != -1)
    strLine = "Param=\"ABSOLUTE_PATH = " + strSourceFolder + "\"";
   fileDest.WriteLine(strLine);
  }

  fileSrc.Close();
  fileDest.Close();
 }
 catch(e)
 {
  var strError = "no info";
  if(e.description.length != 0)
   strError = e.description;
  WScript.Echo("ERROR: Cannot read and write WTLAppWiz.vsz (" + strError +
")");
  return;
 }

 // Create WTL folder
 var strDestWTLFolder = "";
 try
 {
  strDestWTLFolder = FileSys.BuildPath(strDestFolder, "WTL");
  if(!FileSys.FolderExists(strDestWTLFolder))
   FileSys.CreateFolder(strDestWTLFolder);
  if(bDebug)
   WScript.Echo("WTL Folder: " + strDestWTLFolder);
 }
 catch(e)
 {
  var strError = "no info";
  if(e.description.length != 0)
   strError = e.description;
  WScript.Echo("ERROR: Cannot create WTL folder (" + strError + ")");
  return;
 }

 // Read and write additional WTLAppWiz.vsdir, add path to the wizard
location
 try
 {
  var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsdir");
  var strDest = FileSys.BuildPath(strDestWTLFolder, "WTLAppWiz.vsdir");

  var ForReading = 1;
  var fileSrc = FileSys.OpenTextFile(strSrc, ForReading);
  if(fileSrc == null)
  {
   WScript.Echo("ERROR: Cannot open source file " + strSrc);
   return;
  }

  var ForWriting = 2;
  var fileDest = FileSys.OpenTextFile(strDest, ForWriting, true);
  if(fileDest == null)
  {
   WScript.Echo("ERROR: Cannot open destination file" + strDest);
   return;
  }

  while(!fileSrc.AtEndOfStream)
  {
   var strLine = fileSrc.ReadLine();
   if(strLine.indexOf("WTLAppWiz.vsz|") != -1)
    strLine = "..\\" + strLine;
   fileDest.WriteLine(strLine);
  }

  fileSrc.Close();
  fileDest.Close();
 }
 catch(e)
 {
  var strError = "no info";
  if(e.description.length != 0)
   strError = e.description;
  WScript.Echo("ERROR: Cannot read and write WTL\\WTLAppWiz.vsdir (" +
strError + ")");
  return;
 }

 WScript.Echo("App Wizard successfully installed!");
}

Please Convert this JScript to a VBScript and Send to Me In My MailBox:
tayeb.meftah@gmail.com

Thanks you, (All Developers)