MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
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
|Check folder every for files and print them||5||39|
|Excel 2016 loop through||6||43|
|How to make shortcut to ftp site open in windows explorer not IE||3||35|
|Logon script fails||23||45|