NewsArchive
04-22-2010, 01:23 AM
In my newest program, I have added Wupdate, and as I am on version .102 now,
it has been a succesfull idea.
On one location, the updates has stopped at version .95.
When I execute wupdate, it just claims that there is no newer version
available.
Code is (Arnor Baldwinson will recognize it!)
As you will find, WUPDATE.EXE is run Elevated.
Server 2008
What to look for?
Edvard Korsbæk
CheckForUpdates ROUTINE
Data
RC LONG
PP CString(2049)
pF CString(50)
MessageText CSTRING(255)
DownLoadMessage CSTRING(255)
Code
pF = 'wupdate.exe'
PP = VuCurrentPath()&'\'&clip(pf)
If Exists(PP)
!vurun(pp,1,0)
RC = ITU.ITRun(PP,true,'/C /S',,True)
IF RC = 1
DownLoadMessage = Translator.BTStr('There is a newer version
available. Do you want to update the programme now?')
CASE Message(DownLoadMessage,Translator.BTStr('Check for
updates'),Icon:Question,'Nej|Ja')
OF 2
Messagetext = Translator.BTStr('The program will be shut down
meanwhile we update the programme.')
Message(Messagetext,Translator.BTStr('Check for updates'))
RC = ITU.ITRun(PP,true,,,True)
CleanCloseDown()
END
ELSE
DownLoadMessage = Translator.BTStr('There are no updates available')
Message(DownLoadMessage)
END
Else
Message(Translator.BTStr('The upgrade program could not be found. Please
contact support.'),Translator.BTStr('Check for updates'))
End
it has been a succesfull idea.
On one location, the updates has stopped at version .95.
When I execute wupdate, it just claims that there is no newer version
available.
Code is (Arnor Baldwinson will recognize it!)
As you will find, WUPDATE.EXE is run Elevated.
Server 2008
What to look for?
Edvard Korsbæk
CheckForUpdates ROUTINE
Data
RC LONG
PP CString(2049)
pF CString(50)
MessageText CSTRING(255)
DownLoadMessage CSTRING(255)
Code
pF = 'wupdate.exe'
PP = VuCurrentPath()&'\'&clip(pf)
If Exists(PP)
!vurun(pp,1,0)
RC = ITU.ITRun(PP,true,'/C /S',,True)
IF RC = 1
DownLoadMessage = Translator.BTStr('There is a newer version
available. Do you want to update the programme now?')
CASE Message(DownLoadMessage,Translator.BTStr('Check for
updates'),Icon:Question,'Nej|Ja')
OF 2
Messagetext = Translator.BTStr('The program will be shut down
meanwhile we update the programme.')
Message(Messagetext,Translator.BTStr('Check for updates'))
RC = ITU.ITRun(PP,true,,,True)
CleanCloseDown()
END
ELSE
DownLoadMessage = Translator.BTStr('There are no updates available')
Message(DownLoadMessage)
END
Else
Message(Translator.BTStr('The upgrade program could not be found. Please
contact support.'),Translator.BTStr('Check for updates'))
End