Hi all,<\/p>\n
How do you upgrade a BackupAssist installation? Well, up until now, the answer has been: manually.<\/p>\n
But one of our Aussie helpdesk team, Aaron, has done a great job in writing a VB script that will download the latest BackupAssist installation to a temp directory, uninstall the old version and install the new version – thereby performing an automated upgrade.<\/p>\n
We’ve tested this on a variety of machines – SBS 2003, Vista, XP, Server 2008, and SBS 2008 – and it has worked for us. Now it’s time to turn it over to the community and get some feedback on this.<\/p>\n
To run the script – save the text below to a vbs file – say BAUpgrader.vbs – and then run it from the command prompt:<\/p>\n
cscript BAUpgrader.vbs<\/p>\n
Make sure you’re running the command prompt as the Administrator user, with elevated rights if you have UAC turned on.<\/p>\n
If you have any feedback, please post a comment below. We have not yet tested it with management software like Kaseya – but if you’d like to give it a go (in a non-production environment!) please feel free.<\/p>\n
Also note that this is a BETA script, so the usual disclaimers apply.<\/p>\n
—- BEGIN SCRIPT BELOW – FOR ALL INSTALLATIONS APART FROM SERVER CORE AND HYPER-V SERVER —-
\n—- Note: this script is subject the same EULA as BackupAssist —-<\/p>\n
sTarget = “C:\\temp”<\/p>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
\nIf Not objFSO.FolderExists(sTarget) Then
\nobjFSO.CreateFolder(“c:\\temp”)
\nEnd If<\/p>\n
strFileURL = “http:\/\/www.backupassist.com\/downloads\/releases\/latest\/BackupAssistV5.msi”
\nstrHDLocation = “c:\\temp\\BackupAssistV5.msi”<\/p>\n
Set objXMLHTTP = CreateObject(“MSXML2.XMLHTTP”)<\/p>\n
objXMLHTTP.open “GET”, strFileURL, false
\nobjXMLHTTP.send()<\/p>\n
If objXMLHTTP.Status = 200 Then<\/p>\n
WScript.StdOut.Write “Downloading the latest version of BackupAssist…” & VbCrLf & VbCrLf
\nSet objADOStream = CreateObject(“ADODB.Stream”)
\nobjADOStream.Open
\nobjADOStream.Type = 1 ‘adTypeBinary<\/p>\n
objADOStream.Write objXMLHTTP.ResponseBody
\nobjADOStream.Position = 0<\/p>\n
Set objFSO = Createobject(“Scripting.FileSystemObject”)
\nIf objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
\nSet objFSO = Nothing<\/p>\n
objADOStream.SaveToFile strHDLocation
\nobjADOStream.Close
\nWScript.StdOut.Write “Download complete” & VbCrLf & VbCrLf
\nSet objADOStream = Nothing
\nEnd if<\/p>\n
Dim installer
\nSet installer = CreateObject(“WindowsInstaller.Installer”)
\nstrTempProdCode = “”
\nFor Each strProductCode In installer.Products<\/p>\n
If installer.ProductInfo(strProductCode, “InstalledProductName”) = “BackupAssist v5” Then<\/p>\n
strTempProdCode = strProductCode
\nEnd If<\/p>\n
Next<\/p>\n
set fso = Wscript.CreateObject(“Scripting.FileSystemObject”)<\/p>\n
If Not strTempProdCode = “” Then<\/p>\n
If fso.FileExists(“C:\\Temp\\BackupAssistV5.msi”) Then<\/p>\n
Dim objShell
\nstrTemp = strTempProdCode & ” \/passive”
\nSet objShell = CreateObject(“WScript.Shell”)
\nobjShell.Run “%comspec% \/c msiexec \/x ” & strTemp _
\n& “& msiexec \/package c:\\temp\\BackupAssistV5.msi \/passive”
\nWScript.StdOut.Write”Automated update was successful”
\nWScript.Quit<\/p>\n
Else WScript.StdOut.Write”The BackupAssist update did not download. The automated update was unsuccessful”<\/p>\n
End If<\/p>\n
Else
\nWScript.StdOut.Write “BackupAssist is not currently installed on this machine!”& VbCrLf &”Automatic updating not available!” & VbCrLf & VbCrLf<\/p>\n
End If<\/p>\n","protected":false},"excerpt":{"rendered":"