lancer en mode administrateur

Bonjour,
.
j'ai un fichier batch que je souhaiterai lancer en mode administrateur .
Après des recherches sur le NET j'ai trouvé ceci qui, malheureusement, ne fonctionne pas.

Code:

---

1 2 3

Set oShell = CreateObject("Shell.Application") oShell.ShellExecute "cmd.exe", , , "runas", 1 "D:\fichiers_batch\sauvegarde.bat"

---

Une idée d'où se trouve mon erreur ?

merci

https://ss64.com/vb/shellexecute.html
C'est du vbs

Code:

---

1 2	Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "E:\demo\batchScript.cmd", "", "", "runas", 1

---

Merci pour la réponse, cela m'a permis de réfléchir :-) et aussi d'avancer.
C'est ce que je souhaitais.