Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.
object.Run(strCommand, [intWindowStyle],[bWaitOnReturn]) 'INSTALL CLIENTBASE PLUS Ver 3.04.03 USING VBScript Set objShell = WScript.CreateObject("WScript.Shell") spath = objShell.CurrentDirectory If fso.FileExists(spath & "\cbpupdate30403003.EXE") Then path = """" & spath & "\cbpupdate30403003.EXE" & """ /s" objShell.Run(path, 1 ,True) i = 0 'INSTALL CLIENTBASE PLUS Ver 3.04.03 Build 03 i = objShell.Run(path, 1 ,True) If (i = 0) Or (i = 3010) Then 'WRITE EXIT CODE [0-success/3010-success&requires reboot] TO EVENTLOG objShell.LogEvent vbLogSuccess, sLogHeader & "CLIENTBASE PLUS Ver 3.04.03 installation completed successfully." & VbCrLf & "Exit code: " & i Else MsgBox "The installation of CLIENTBASE PLUS returned an error: " & i & VbCrLf & _ "Please contact IT Support to report this error.", vbOKOnly objShell.LogEvent vbLogError, sLogHeader & "Installation returned failure code: " & VbCrLf & "Exit code: " & i End If Else WScript.Quit (1) End If set fso = Nothing set WSHShell = Nothing Wscript.Quit
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.