Re: WTL 7.5 Wizard Manual Installation

From:

"aao" <aao@work.com>

Newsgroups:

microsoft.public.vc.atl

Date:

Tue, 24 Apr 2007 07:48:24 -0500

Message-ID:

<Obrik6mhHHA.4588@TK2MSFTNGP02.phx.gbl>

You might have bigger problem on you box. Installing the wizard is half the
problem. Visual studio wizards depend on Java script to work. The better
solution is to fix you computer or get appropriate rights on it.

"Meftah Tayeb" <SQLSRVX86@hotmail.com> wrote in message
news:OAPeRzMhHHA.3472@TK2MSFTNGP04.phx.gbl...

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)