Нет способа остановить запрос, если у вас включено UAC и сценарию требуется повышение прав для выполнения какой-либо задачи.
Вы можете заставить запустить скрипт с повышенными правами, выполнив что-то вроде следующего:
Dim proc As New ProcessStartInfo
With proc
.FileName = "C:\Windows\regedit.exe" 'replace with your script name
If Environment.OSVersion.Version.Major >= 6 Then ' Windows Vista or higher
.Verb = "runas"
Else
' No need to prompt to run as admin
End If
Process.Start(proc)
End With
Ваш единственный вариант - отключить UAC