Set objFile = Createobject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")

If WshSysEnv("VS80COMNTOOLS")<> "" Then 
	Set vcProj = CreateObject("VisualStudio.VCProjectEngine.8.0")
Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
	Set vcProj = CreateObject("VisualStudio.VCProjectEngine.7.1")
Else
	Wscript.Echo("Did not find any Visual Studio .net 2003 or 2005 on your machine")
	WScript.Quit(1)
End If
End If

'// check the arguments to be sure it's right
if (objArgs.Count() < 2) Then
   WScript.Echo("VC6 or 5 DSP Project File Conversion")
   WScript.Echo("Opens specified .dsp and converts to VC7.1 Format.")
   WScript.Echo("Will create project file with .vcproj extension")
   WScript.Echo("usage: <full path\project.dsp> <full path\project.vcproj>")
   WScript.Quit(1)
End If


WScript.Echo("Converting: "+ objArgs.Item(0))
'// If there is a file name of the .vcproj extension, do not convert
Set vcProject = vcProj.LoadProject(objArgs.Item(0))
If Not objFile.FileExists(vcProject.ProjectFile) Then
	'   // specify name and location of new project file
	vcProject.ProjectFile = objArgs.Item(1)
	
	'   // call the project engine to save this off. 
	'   // when no name is shown, it will create one with the .vcproj name
	vcProject.Save()
	WScript.Echo("New Project Name: "+vcProject.ProjectFile+"")
Else
   WScript.Echo("ERROR!: "+vcProject.ProjectFile+" already exists!")
End If