MSI Dateien als Administrator von einer HTA installieren

Hallo,

ich habe ein kleines Problem und hoffe das mir jemand dabei helfen kann.
Ich habe mir eine HTA Datei erstellt womit ich msi Pakete auf dem Rechner Silent installieren kann.
Die Installation funktioniert reibungslos und eigentlich ist alles super, das einzige was mich noch stört ist dass jedes setup das gestartet wird eine uac Abfrage macht bevor es installiert wird.

Gibt es eine Möglichkeit beim start der HTA oder beim starten der Installation einmal eine uac Abfrage zu starten die dann für alle Setups gültig ist?

Hier einmal der Quellcode der HTA.

<html>
<head>
 <hta:application
 id="JeSv"  
 border="thin"  
 borderstyle="static"  
 caption="yes"  
 contextmenu="no"  
 innerborder="no"  
 maximizebutton="no"  
 minimizebutton="yes"  
 navigable="yes"  
 scroll="no"  
 selection="yes"  
 showintaskbar="yes"  
 singleinstance="yes"  
 sysmenu="yes"  
 version="0.5"  
 windowstate="normal"  
 >
<SCRIPT LANGUAGE="VBScript">  

Set objShell = CreateObject("WScript.Shell")  
    myCur = objShell.CurrentDirectory 

Sub Window_onLoad
    window.resizeTo 450,600
	Set objNetwork = CreateObject("WScript.Network")  
End Sub

Sub RunScript()
	'Dateinamen der Pakete  
'------------------------------  
		zip="7z1604.msi"  
		acr="AcroRead.msi"  
		ff="Firefox-51.0.1-de.msi"  
		pl="install_flash_player_24_plugin.msi"  
		ax="install_flash_player_24_active_x.msi"  
		j32="jre1.8.0_121.msi"  
		j64="jre1.8.0_12164.msi"  
		pdf="pdf24-creator-8.0.4.msi"  
'------------------------------  
	
		If CheckBox1.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  zip & " /qb",1,true  
		End If
	
		If CheckBox2.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  acr & " TRANSFORMS=" & myCur & "\AcroRead.mst /qb",1,true  
		End If
	
		If CheckBox3.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  ff & " /qb",1,true  
		End If
	
		If CheckBox4.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  pl & " TRANSFORMS=" & myCur & "\Plugin.mst /qb",1,true  
		End If
	
		If CheckBox5.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  ax & " TRANSFORMS=" & myCur & "\Active_X.mst /qb",1,true  
		End If
		
		If CheckBox6.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  j32 & " TRANSFORMS=" & myCur & "\Java.mst /qb",1,true  
		End If
	
		If CheckBox7.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  j64 & " TRANSFORMS=" & myCur & "\Java.mst /qb",1,true  
		End If
	
		If CheckBox8.Checked Then
			objShell.Run "msiexec /i " & myCur & "\" &  pdf & " TRANSFORMS=" & myCur & "\PDF24.mst /qb",1,true  
		End if
	'End If  
End Sub

</SCRIPT>
</head>
 <body bgcolor="#e6e6e6">  
<BR>
<p> <h3>Softwareinstaller<br><font size="1.5">Version: 0.17.02-Beta-1</font></h3></p><BR>  
Bitte wählen Sie die Programme die installiert werden sollen.
<hr>
<br>
<input type="checkbox" name="CheckBox1" id="CheckBox1" checked=true>7-Zip  
<BR>
<input type="checkbox" name="CheckBox2" id="CheckBox2" checked=true>Acrobat Reader DC  
<BR>
<input type="checkbox" name="CheckBox3" id="CheckBox3" checked=true>Mozilla Firefox  
<BR>
<input type="checkbox" name="CheckBox4" id="CheckBox4" checked=true>Adobe Flash Player für Internet Explorer  
<BR>
<input type="checkbox" name="CheckBox5" id="CheckBox5" checked=true>Adobe Flash Player für Firefox  
<BR>
<input type="checkbox" name="CheckBox6" id="CheckBox6" checked=true>Java 32-Bit  
<BR>
<input type="checkbox" name="CheckBox7" id="CheckBox7" checked=true>Java 64-Bit  
<BR>
<input type="checkbox" name="CheckBox8" id="CheckBox8" checked=true>PDF 24  
<BR>
<BR>
<input type="button" name="getValue" id="getValue" value="Installation Starten" onclick="RunScript">  
 </p>
</body>
</html>