User-Backup-elevated-rights

 'Normally this and the User-Backup.vbs are placed on the desktop then ran so if you run it from another location, alter the file path
 Set objShell = CreateObject("Shell.Application")
 Set objNet = CreateObject("WScript.NetWork")
 userName=objNet.UserName
 objShell.ShellExecute "cscript", "C:\Users\" & userName & "\Desktop\User-Backup.vbs", "", "runas", 1
 Set objShell = nothing
 Set objNet = nothing