एक स्क्रिप्ट फ़ाइल बनाएं जिसे InstallFonts.vbs कहा जाता है, मेरे मामले में मैंने इसे C: \ PortableApps \ InstallFonts में डाल दिया है। नीचे दिए गए कोड में "SomeUser" को उस व्यक्ति के उपयोगकर्ता नाम से बदल दें जिसे आप फोंट स्थापित करने में सक्षम होना चाहते हैं। फिर उनके डेस्कटॉप पर उपयुक्त "इंस्टॉल फ़ॉन्ट्स" फ़ोल्डर बनाएं।
Set ofso = CreateObject("Scripting.FileSystemObject")
'SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
SourceFolder = "C:\Users\SomeUser\Desktop\Install Fonts"
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set oSource = objShell.Namespace(SourceFolder)
Set oWinFonts = objShell.Namespace(FONTS)
' Lame VBscript needs 4 f*ing lines instead of "if (/\.ttf$/i) " ...
Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.ttf$"
FOR EACH FontFile IN oSource.Items()
IF rxTTF.Test(FontFile.Path) THEN
oWinFonts.CopyHere FontFile.Path
END IF
NEXT
अब उनके डेस्कटॉप पर एक शॉर्टकट बनाएं जो इस प्रकार है ...
C:\Windows\System32\runas.exe /user:Administrator /savecred "wscript C:\PortableApps\InstallFonts\InstallFonts.vbs"
ध्यान दें कि मैंने "व्यवस्थापक" का उपयोग किया है। मैंने इसे सक्षम किया और इसे एक पासवर्ड सौंपा। मुझे लगता है कि आप इसके लिए किसी भी व्यवस्थापक खाते का उपयोग कर सकते हैं। पहली बार जब आप शॉर्टकट चलाते हैं, तो आपको व्यवस्थापक पासवर्ड के लिए संकेत दिया जाएगा .. हर बार इसके बाद बस काम करेगा।
यदि यह आपको पासवर्ड के लिए संकेत नहीं देता है, तो cmd प्रॉम्प्ट से शॉर्टकट चलाएं, यह आपको तब संकेत देना चाहिए।
मैं आपसे वादा नहीं कर सकता कि यह कितना सुरक्षित है जैसे कि वे इसका उपयोग एलिवेटेड कोड चलाने के लिए कर सकते हैं। हालाँकि यह एक समाधान है।