cleanup.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@855 d0543943-73ff-0310-b7d9-9358b9ac24b2

w32/vsnet/GetLibs.vbs

@@ -37,12 +37,12 @@ FreeswitchDir=Showpath(ScriptDir & "..\..")
 UtilsDir=Showpath(ScriptDir & "Tools")
 If objArgs.Count >=1 Then
 	If objArgs(0) <> "Version" Then
-		GetTarGZObjects UtilsDir
+		GetCompressionTools UtilsDir
 		GetVCBuild
 		Wscript.echo "Detected VCBuild: " & VCBuild
 	End If
 Else
-	GetTarGZObjects UtilsDir
+	GetCompressionTools UtilsDir
 End If
 
 ' **************
@@ -219,10 +219,10 @@ WScript.Echo "Complete"
 '  ******************
 Sub BuildLibs_aprutil(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "apr-util") Then 
-		WgetUnTarGz "ftp://ftp.wayne.edu/apache/apr/apr-util-1.2.2.tar.gz", LibDestDir
+		WgetUnCompress "ftp://ftp.wayne.edu/apache/apr/apr-util-1.2.2.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "apr-util-1.2.2") Then
 			Wscript.echo "Unable to get apr-util from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "apr-util-1.2.2.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "apr-util-1.2.2.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "apr-util-1.2.2", "apr-util"
 		FSO.CopyFile Utilsdir & "apr\xml.vcproj", LibDestDir & "apr-util\xml\expat\lib\", True
@@ -259,10 +259,10 @@ End Sub
 
 Sub BuildLibs_apriconv(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "apr-iconv") Then 
-		WgetUnTarGz "ftp://ftp.wayne.edu/apache/apr/apr-iconv-1.1.1.tar.gz", LibDestDir
+		WgetUnCompress "ftp://ftp.wayne.edu/apache/apr/apr-iconv-1.1.1.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "apr-iconv-1.1.1") Then
 			Wscript.echo "Unable to get apr-iconv from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "apr-iconv-1.1.1.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "apr-iconv-1.1.1.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "apr-iconv-1.1.1", "apr-iconv"
 		FSO.CopyFile Utilsdir & "apr\apriconv.vcproj", LibDestDir & "apr-iconv\", True
@@ -285,10 +285,10 @@ End Sub
 
 Sub BuildLibs_apr(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "apr") Then 
-		WgetUnTarGz "ftp://ftp.wayne.edu/apache/apr/apr-1.2.2.tar.gz", LibDestDir
+		WgetUnCompress "ftp://ftp.wayne.edu/apache/apr/apr-1.2.2.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "apr-1.2.2") Then
 			Wscript.echo "Unable to get apr from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "apr-1.2.2.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "apr-1.2.2.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "apr-1.2.2", "apr"
 		FSO.CopyFile Utilsdir & "apr\apr.vcproj", LibDestDir & "apr\", True
@@ -312,10 +312,10 @@ End Sub
 
 Sub BuildLibs_exosip(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "libeXosip2") Then 
-		WgetUnTarGz "http://www.antisip.com/download/libeXosip2-2.2.2.tar.gz", LibDestDir
+		WgetUnCompress "http://www.antisip.com/download/libeXosip2-2.2.2.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "libeXosip2-2.2.2") Then
 			Wscript.echo "Unable to get eXosip from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "libeXosip2-2.2.2.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "libeXosip2-2.2.2.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "libeXosip2-2.2.2", "libeXosip2"
 		FindReplaceInFile LibDestDir & "libeXosip2\platform\vsnet\eXosip.vcproj", "WIN32;", "_CRT_SECURE_NO_DEPRECATE;_CRT_NONSTDC_NO_DEPRECATE;WIN32;"
@@ -338,10 +338,10 @@ End Sub
 
 Sub BuildLibs_libosip2(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "osip") Then
-		WgetUnTarGz "http://www.antisip.com/download/libosip2-2.2.2.tar.gz", LibDestDir
+		WgetUnCompress "http://www.antisip.com/download/libosip2-2.2.2.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "libosip2-2.2.2") Then
 			Wscript.echo "Unable to get osip from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "libosip2-2.2.2.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "libosip2-2.2.2.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "libosip2-2.2.2", "osip"
 		FindReplaceInFile LibDestDir & "osip\platform\vsnet\osipparser2.vcproj", "WIN32;", "_CRT_SECURE_NO_DEPRECATE;_CRT_NONSTDC_NO_DEPRECATE;WIN32;"
@@ -385,10 +385,10 @@ End Sub
 
 Sub BuildLibs_sqlite(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "sqlite") Then 
-		WgetUnZip "http://www.sqlite.org/sqlite-source-3_2_7.zip", LibDestDir 
+		WgetUnCompress "http://www.sqlite.org/sqlite-source-3_2_7.zip", LibDestDir 
 		If Not FSO.FolderExists(LibDestDir & "sqlite-source-3_2_7") Then
 			Wscript.echo "Unable to get SQLite from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "sqlite-source-3_2_7.zip", LibDestDir
+			WgetUnCompress LibsBase & "sqlite-source-3_2_7.zip", LibDestDir
 		End If
 		RenameFolder LibDestDir & "sqlite-source-3_2_7", "sqlite"
 		FSO.CopyFile Utilsdir & "sqlite.vcproj", LibDestDir & "sqlite\", True
@@ -412,10 +412,10 @@ End Sub
 
 Sub BuildLibs_iksemel(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "iksemel") Then 
-		WgetUnTarGz "http://jabberstudio.2nw.net/iksemel/iksemel-1.2.tar.gz", LibDestDir 
+		WgetUnCompress "http://jabberstudio.2nw.net/iksemel/iksemel-1.2.tar.gz", LibDestDir 
 		If Not FSO.FolderExists(LibDestDir & "iksemel-1.2") Then
 			Wscript.echo "Unable to get iksemel from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "iksemel-1.2.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "iksemel-1.2.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "iksemel-1.2", "iksemel"
 		FSO.CopyFile Utilsdir & "iksemel\iksemel.vcproj", LibDestDir & "iksemel\", True
@@ -456,7 +456,7 @@ End Sub
 
 Sub BuildLibs_portaudio(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "PortAudio") Then 
-		WgetUnZip LibsBase & "portaudio_v18_1.zip", LibDestDir
+		WgetUnCompress LibsBase & "portaudio_v18_1.zip", LibDestDir
 		RenameFolder LibDestDir & "portaudio_v18_1", "PortAudio"
 	End If 
 	If FSO.FolderExists(LibDestDir & "PortAudio") Then 
@@ -477,10 +477,10 @@ End Sub
 
 Sub BuildLibs_libxml2(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "libxml2") Then 
-		WgetUnTarGz "http://xmlsoft.org/sources/libxml2-sources-2.6.23.tar.gz", LibDestDir 
+		WgetUnCompress "http://xmlsoft.org/sources/libxml2-sources-2.6.23.tar.gz", LibDestDir 
 		If Not FSO.FolderExists(LibDestDir & "libxml2-2.6.23") Then
 			Wscript.echo "Unable to get libxml2 from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "libxml2-sources-2.6.23.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "libxml2-sources-2.6.23.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "libxml2-2.6.23", "libxml2"
 	End If
@@ -536,10 +536,10 @@ End Sub
 
 Sub BuildLibs_SpeexCodec(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "speex") Then 
-		WgetUnTarGz "http://downloads.us.xiph.org/releases/speex/speex-1.1.11.1.tar.gz", LibDestDir
+		WgetUnCompress "http://downloads.us.xiph.org/releases/speex/speex-1.1.11.1.tar.gz", LibDestDir
 		If Not FSO.FolderExists(LibDestDir & "speex-1.1.11.1") Then
 			Wscript.echo "Unable to get libspeex from default download location, Trying backup location:"
-			WgetUnTarGz LibsBase & "speex-1.1.11.1.tar.gz", LibDestDir
+			WgetUnCompress LibsBase & "speex-1.1.11.1.tar.gz", LibDestDir
 		End If
 		RenameFolder LibDestDir & "speex-1.1.11.1", "speex"
 		FSO.CopyFile Utilsdir & "libspeex.vcproj", LibDestDir & "speex\win32\libspeex\", True
@@ -562,7 +562,7 @@ End Sub
 
 Sub BuildLibs_libsndfile(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "libsndfile") Then 
-		WgetUnTarGz LibsBase & "libsndfile-1.0.12.tar.gz", LibDestDir
+		WgetUnCompress LibsBase & "libsndfile-1.0.12.tar.gz", LibDestDir
 		RenameFolder LibDestDir & "libsndfile-1.0.12", "libsndfile"
 		FSO.CopyFile Utilsdir & "libsndfile.vcproj", LibDestDir & "libsndfile\Win32\", True
 	End If 
@@ -584,7 +584,7 @@ End Sub
 
 Sub BuildLibs_howl(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "howl") Then 
-		WgetUnTarGz LibsBase & "howl-1.0.0.tar.gz", LibDestDir
+		WgetUnCompress LibsBase & "howl-1.0.0.tar.gz", LibDestDir
 		RenameFolder LibDestDir & "howl-1.0.0", "howl"
 		FSO.CopyFile Utilsdir & "howl\libhowl.vcproj", LibDestDir & "howl\src\lib\howl\Win32\", True
 		FSO.CopyFile Utilsdir & "howl\libmDNSResponder.vcproj", LibDestDir & "howl\src\lib\mDNSResponder\Win32\", True
@@ -613,7 +613,7 @@ End Sub
 
 Sub BuildLibs_libresample(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "libresample") Then 
-		WgetUnZip LibsBase & "libresample-0.1.3.zip", LibDestDir
+		WgetUnCompress LibsBase & "libresample-0.1.3.zip", LibDestDir
 		RenameFolder LibDestDir & "libresample-0.1.3", "libresample"
 	End If 
 	If FSO.FolderExists(LibDestDir & "libresample") Then 
@@ -634,7 +634,7 @@ End Sub
 
 Sub BuildLibs_pcre(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "pcre") Then 
-		WgetUnTarGz LibsBase & "pcre-6.4.tar.gz", LibDestDir
+		WgetUnCompress LibsBase & "pcre-6.4.tar.gz", LibDestDir
 		RenameFolder LibDestDir & "pcre-6.4", "pcre"
 		If Not FSO.FolderExists(LibDestDir & "pcre\win32") Then
 			FSO.CreateFolder(LibDestDir & "pcre\win32")
@@ -664,7 +664,7 @@ End Sub
 
 Sub BuildLibs_curl(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "curl") Then 
-		WgetUnTarGz LibsBase & "curl-7.15.2.tar.gz", LibDestDir
+		WgetUnCompress LibsBase & "curl-7.15.2.tar.gz", LibDestDir
 		RenameFolder LibDestDir & "curl-7.15.2", "curl"
 		FSO.CopyFile Utilsdir & "curl\curllib.vcproj", LibDestDir & "curl\lib\", True
 	End If 
@@ -686,7 +686,7 @@ End Sub
 
 Sub	BuildLibs_ldap(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "openldap") Then 
-		WgetUnTarGz LibsBase & "openldap-2.3.19.tar.gz", LibDestDir
+		WgetUnCompress LibsBase & "openldap-2.3.19.tar.gz", LibDestDir
 		RenameFolder LibDestDir & "openldap-2.3.19", "openldap"
 		FSO.CopyFile Utilsdir & "openldap\lber_types.h", LibDestDir & "openldap\include\", True
 		FSO.CopyFile Utilsdir & "openldap\ldap_config.h", LibDestDir & "openldap\include\", True
@@ -717,10 +717,10 @@ End Sub
 
 Sub BuildLibs_SpiderMonkey(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "js") Then 
-		WgetUnZip LibsBase & "js20051231.zip", LibDestDir
+		WgetUnCompress LibsBase & "js20051231.zip", LibDestDir
 		RenameFolder LibDestDir & "js20051231", "js"
-		WgetUnZip LibsBase & "nspr-4.6.1.winnt5.debug.zip", LibDestDir & "js"
+		WgetUnCompress LibsBase & "nspr-4.6.1.winnt5.debug.zip", LibDestDir & "js"
-		WgetUnZip LibsBase & "nspr-4.6.1.winnt5.release.zip", LibDestDir & "js"
+		WgetUnCompress LibsBase & "nspr-4.6.1.winnt5.release.zip", LibDestDir & "js"
 		FSO.CreateFolder LibDestDir & "js\nspr\"
 		FSO.CopyFolder LibDestDir & "js\nspr-4.6.1.winnt5.debug\nspr-4.6.1\*", LibDestDir & "js\nspr\",true
 	End If 
@@ -774,7 +774,7 @@ Sub CreateSwitchVersion()
 		VERSION=strFromProc
 	Loop While Not OExec.StdOut.atEndOfStream
 	If VERSION = "" Then
-		WgetUnZip ToolsBase & "svnversion.zip", UtilsDir 
+		WgetUnCompress ToolsBase & "svnversion.zip", UtilsDir 
 		Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat")
 		Do
 			strFromProc = OExec.StdOut.ReadLine()
@@ -798,27 +798,6 @@ Sub CreateSwitchVersion()
 	End If
 End Sub
 
-Sub UpgradeViaDevEnv(ProjectFile)
-	Set oExec = WshShell.Exec(quote & DevEnv & quote & " " & quote & ProjectFile & quote & " /Upgrade ")
-	Do While oExec.Status <> 1
-	WScript.Sleep 100
-	Loop
-End Sub
-
-Sub BuildViaDevEnv(ProjectFile, BuildType)
-	Wscript.echo "Building : " & ProjectFile & " Config type: " & BuildType
-	BuildCmd=quote & DevEnv & quote & " " & quote & ProjectFile & quote & " /Build " & BuildType
-	Set MyFile = fso.CreateTextFile(UtilsDir & "tmpBuild.Bat", True)
-	MyFile.WriteLine("@" & BuildCmd)
-	MyFile.Close
-
-	Set oExec = WshShell.Exec(UtilsDir & "tmpBuild.Bat")
-	Do
-		strFromProc = OExec.StdOut.ReadLine()
-		WScript.Echo  strFromProc
-	Loop While Not OExec.StdOut.atEndOfStream
-End Sub
-
 Sub BuildViaVCBuild(ProjectFile, BuildType)
 	Wscript.echo "Building : " & ProjectFile & " Config type: " & BuildType
 	BuildCmd=quote & VCBuild & quote & " /nologo /nocolor " & quote & ProjectFile & quote & " " & quote & BuildType & quote
@@ -873,52 +852,11 @@ Sub GetVCBuild()
 	End If
 End Sub
 
-Sub GetDevEnv()
-	If WshSysEnv("VS80COMNTOOLS")<> "" Then 
-		vcver = "8"
-		DevEnv=Showpath(WshSysEnv("VS80COMNTOOLS")&"..\IDE\") & "devenv"
-	Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
-		vcver = "7"
-		DevEnv=Showpath(WshSysEnv("VS71COMNTOOLS")&"..\IDE\") & "devenv"
-	Else
-		Wscript.Echo("Did not find any Visual Studio .net 2003 or 2005 on your machine")
-		WScript.Quit(1)
-	End If
-	End If
-End Sub
-
-
 Sub RenameFolder(FolderName, NewFolderName)
 	Set Folder=FSO.GetFolder(FolderName)
 	Folder.Name = NewFolderName
 End Sub
 
-Sub Upgrade(OldFileName, NewFileName)
-	If WshSysEnv("VS80COMNTOOLS")<> "" Then 
-		Wscript.echo "8.0"
-		Set vcProj = CreateObject("VisualStudio.VCProjectEngine.8.0")
-		
-	Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
-		Wscript.echo "7.1"
-		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
-		
-	Set vcProject = vcProj.LoadProject(OldFileName)
-	If Not FSO.FileExists(vcProject.ProjectFile) Then
-		'   // specify name and location of new project file
-		vcProject.ProjectFile = NewFileName
-	'   // call the project engine to save this off. 
-	'   // when no name is shown, it will create one with the .vcproj name
-	vcProject.Save()
-	End If
-'	WScript.Echo("New Project Name: "+vcProject.ProjectFile+"")
-'On Error GoTo 0
-End Sub
-
 Sub Unix2dos(FileName)
 	Const OpenAsASCII = 0  ' Opens the file as ASCII (TristateFalse) 
 	Const OpenAsUnicode = -1  ' Opens the file as Unicode (TristateTrue) 
@@ -955,16 +893,7 @@ Sub FindReplaceInFile(FileName, sFind, sReplace)
 	fNewFile.Close
 End Sub
 
-Sub WgetUnTarGZ(URL, DestFolder)
+Sub WgetUnCompress(URL, DestFolder)
-	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
-	StartPos = InstrRev(URL, "/", -1, 1)   
-	strlength = Len(URL)
-	filename=Right(URL,strlength-StartPos)
-	Wget URL, DestFolder
-	UnTarGZ Destfolder & filename, DestFolder
-End Sub
-
-Sub WgetUnZip(URL, DestFolder)
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
 	StartPos = InstrRev(URL, "/", -1, 1) 
 	strlength = Len(URL)
@@ -972,92 +901,47 @@ Sub WgetUnZip(URL, DestFolder)
 	NameEnd = InstrRev(filename, ".",-1, 1)
 	filestrlength = Len(filename)
 	filebase = Left(filename,NameEnd)
+	fileext = Right(filename, Len(filename) - NameEnd)
 	Wget URL, DestFolder
-	UnZip Destfolder & filename, DestFolder & filebase
+	If fileext = "zip" Then
+		UnCompress Destfolder & filename, DestFolder & filebase
+	Else
+		UnCompress Destfolder & filename, DestFolder	
+	End If
 End Sub
 
-Sub GetTarGZObjects(DestFolder)
+Sub GetCompressionTools(DestFolder)
 	Dim oExec
-
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
-
 	If Not FSO.FileExists(DestFolder & "7za.exe") Then 
 		Wget ToolsBase & "7za.exe", DestFolder
 	End If	
-
-'	If Not FSO.FileExists(DestFolder & "XTar.dll") Then 
-'		Wget ToolsBase & "XTar.dll", DestFolder
-'	End If
-
-'	If Not FSO.FileExists(DestFolder & "XGZip.dll") Then 
-'		Wget ToolsBase & "XGZip.dll", DestFolder
-'	End If
-	
-'	If Not FSO.FileExists(DestFolder & "XZip.dll") Then 
-'		Wget ToolsBase & "XZip.dll", DestFolder
-'	End If
-	
-'	WshShell.Run "regsvr32 /s " & DestFolder & "XTar.dll", 6, True
-	
-'	WshShell.Run "regsvr32 /s " & DestFolder & "XGZip.dll", 6, True
-
-	'WshShell.Run "regsvr32 /s " & DestFolder & "XZip.dll", 6, True
-	
 End Sub
 
-Sub UnTarGZ(TGZfile, DestFolder)
+Sub UnCompress(Archive, DestFolder)
-	wscript.echo("Extracting: " & TGZfile)
+	wscript.echo("Extracting: " & Archive)
-'	Set objTAR = WScript.CreateObject("XStandard.TAR")
-'	Set objGZip = WScript.CreateObject("XStandard.GZip")
-'	objGZip.Decompress TGZfile, Destfolder
-'	objTAR.UnPack Left(TGZfile, Len(TGZfile)-3), Destfolder
-	
-'	Set objTAR = Nothing
-'	Set objGZip = Nothing
-'	WScript.Sleep(500)
 	Set MyFile = fso.CreateTextFile(UtilsDir & "tmpcmd.Bat", True)
-	MyFile.WriteLine("@" & UtilsDir & "7za.exe x " & TGZfile & " -y -o" & DestFolder)
+	MyFile.WriteLine("@" & UtilsDir & "7za.exe x " & Archive & " -y -o" & DestFolder)
 	MyFile.Close
 	Set oExec = WshShell.Exec(UtilsDir & "tmpcmd.Bat")
 	Do
 		WScript.Echo OExec.StdOut.ReadLine()
 	Loop While Not OExec.StdOut.atEndOfStream
-	If FSO.FileExists(Left(TGZfile, Len(TGZfile)-3)) Then  
+	If FSO.FileExists(Left(Archive, Len(Archive)-3)) Then  
 		Set MyFile = fso.CreateTextFile(UtilsDir & "tmpcmd.Bat", True)
-		MyFile.WriteLine("@" & UtilsDir & "7za.exe x " & Left(TGZfile, Len(TGZfile)-3) & " -y -o" & DestFolder)
+		MyFile.WriteLine("@" & UtilsDir & "7za.exe x " & Left(Archive, Len(Archive)-3) & " -y -o" & DestFolder)
 		MyFile.Close
 		Set oExec = WshShell.Exec(UtilsDir & "tmpcmd.Bat")
 		Do
 			WScript.Echo OExec.StdOut.ReadLine()
 		Loop While Not OExec.StdOut.atEndOfStream
 		WScript.Sleep(500)
-		FSO.DeleteFile Left(TGZfile, Len(TGZfile)-3) ,true 
+		FSO.DeleteFile Left(Archive, Len(Archive)-3) ,true 
 	End If
 	WScript.Sleep(500)
 End Sub
 
-
-Sub UnZip(Zipfile, DestFolder)
-'	Dim objZip
-'	Set objZip = WScript.CreateObject("XStandard.Zip")
-'	wscript.echo("Extracting: " & Zipfile)
-'	objZip.UnPack Zipfile, DestFolder
-'	Set objZip = Nothing
-'	WScript.Sleep(500)
-	Set MyFile = fso.CreateTextFile(UtilsDir & "tmpcmd.Bat", True)
-	MyFile.WriteLine("@" & UtilsDir & "7za.exe x " & Zipfile & " -y -o" & DestFolder)
-	MyFile.Close
-
-	Set oExec = WshShell.Exec(UtilsDir & "tmpcmd.Bat")
-	Do
-		WScript.Echo OExec.StdOut.ReadLine()
-	Loop While Not OExec.StdOut.atEndOfStream
-	WScript.Sleep(500)
-End Sub
-
-
 Sub Wget(URL, DestFolder)
-
 	StartPos = InstrRev(URL, "/", -1, 1)   
 	strlength = Len(URL)
 	filename=Right(URL,strlength-StartPos)
@@ -1074,15 +958,9 @@ Sub Wget(URL, DestFolder)
 	oStream.type = adTypeBinary
 	oStream.open
 	oStream.write xml.responseBody
-	
-	' Do not overwrite an existing file
-	'oStream.savetofile DestFolder & filename, adSaveCreateNotExist
-	
-	' Use this form to overwrite a file if it already exists
 	oStream.savetofile DestFolder & filename, adSaveCreateOverWrite
 	
 	oStream.close
-	
 End Sub
 
 Function Showpath(folderspec)