'------------------------------------------------------------------
'Install Script for QTI's WebUpdate for Remote Backup Client
' Copyright (c) 2001 Quantum Tech, Inc.
'
' This script contains information necessary for the Client
' Check For Updates function. This script MUST be modified
' every time you want to issue an update to your RBS Client
' software. 
'
' Change the Version Number to reflect the most current version
' number available for download from your web site.
'
' Change the Root URL to point to the location of the WebUpdate
' files on your web site.
'
' NOTE: MAKE NO OTHER CHANGES TO THIS SCRIPT! 
' IF YOU DO, IT WILL STOP WORKING!
'---------------------------------------------------------------------
Dim WshShell
Dim VersionNumer
Dim UpdateURL
'---------------------------------------------------------------------
' THE MOST CURRENT VERSION NUMBER. This is the version number
' of the Client Installer that is currently available for download
' from your web site. Enclose the version number in double quotes (")
'
' EXAMPLE: VersionNumber = "8.2.2016"	

  VersionNumber = "8.4.0052"

'---------------------------------------------------------------------
' THE ROOT URL FOR THE LOCATION OF YOUR WEBUPDATE FILES. 
' DO NOT include a trailing forward-slash (/)
' Enclose the root URL in double quotes (")
'
' EXAMPLE: UpdateURL = "http://myserver.com/OnlineInstaller"	

  UpdateURL = "http://remote-backup.com/upg84/clientupdate"

'----------------------------------------------------------------------

Set WshShell = Wscript.CreateObject("Wscript.Shell")
CurrVersionNumber = WshShell.RegRead("HKLM\Software\WebUpdate\RemoteBackup\CurrentVersion")
LatestVersionNumber=VersionNumber

nResult = CurrVersionNumber < LatestVersionNumber
If nResult  = True Then	
   WshShell.RegWrite "HKLM\Software\WebUpdate\UpdateType",1,"REG_DWORD"	
   WshShell.RegWrite "HKLM\Software\WebUpdate\UpdateValue", UpdateURL + "/RBSClientUpdate.rrf"
End If