Adding Fonts by VBScript via Group policy

Hello,

i am using a VBs script to install a Font on a windows 7 machine in the domain.
I will run this VBS by a group policy at the startup.
Nothing happen, when i run the VBS at the user login, a domain admin wil succeed and the fonts are installed, but other users won't succeed, and get an UAC popup to login with a user that got admin rights

How can i manage that al users of the domain got this vbs script working or fonts installed?
Or how can i mention a administrator login at the script?

VBScript :
Const FONTS = &H14&

 Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "<Serverlocation\file.ttf>"

Regards