Posted by Lori Doubet on 28.May.04 at 10:15 AM using Lotus Notes
Category: Notes ClientRelease: 6.5Platform: iSeries 
 

Upgrade bat file and MSI vbs files for 5.x upgrade to 6.x.

_____________________________________________________


- Upgrade.bat

@Echo Off

md C:\Backup
copy C:\Lotus\Notes\*.ini C:\Backup
copy C:\Lotus\Notes\data\desktop*.dsk C:\Backup
copy C:\Lotus\Notes\data\names.nsf C:\Backup
copy C:\Lotus\Notes\data\bookmarks.nsf C:\Backup
copy C:\Lotus\Notes\data\*.id C:\Backup
copy C:\Lotus\Notes\data\user.dic C:\Backup > nul
Net Use Z: \\patriot\shared

z:\notes\notes651\setup.vbs

ping server's IP address -n 300 >nul
copy "C:\Lotus Notes 6.5.lnk" "c:\Documents and Settings\All Users\Desktop"
del "c:\Notes R5.lnk" /s

_____________________________________________________

- setup.vbs - VBS files called by bat file

Windows 2000 version:


set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /profile /user:domain\domain admin username ""\\server\LotusNewReleasefolder\setup.EXE"""
WScript.Sleep 1000
While WshShell.AppActivate("C:\Winnt\System32\runas.exe") = FALSE
wscript.sleep 1000
Wend
WshShell.AppActivate "C:\Winnt\System32\runas.exe"
WScript.Sleep 100
WshShell.SendKeys "bookmark"
Wscript.Sleep 100
WshShell.Sendkeys "{ENTER}"

Windows XP version:

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /profile /user:domain\domain admin username ""\\server\LotusNewReleasefolder\setup.EXE"""
WScript.Sleep 1000
While WshShell.AppActivate("C:\Windows\System32\runas.exe") = FALSE
wscript.sleep 1000
Wend
WshShell.AppActivate "C:\Windows\System32\runas.exe"
WScript.Sleep 100
WshShell.SendKeys "bookmark"
Wscript.Sleep 100
WshShell.Sendkeys "{ENTER}"

_____________________________________________________