संपादित करें
पीटर की टिप्पणी (उस के लिए धन्यवाद) के आधार पर, मैं अपना उत्तर संपादित करता हूं।
आप शायद या तो अधिकार जारी करते हैं - आपके पास अपने डेस्कटॉप पर अपनी स्क्रिप्ट निष्पादित करने के अधिकार नहीं हैं या आप स्क्रिप्टिंग पूरी तरह से अवरुद्ध है? आपसे अधिक जानकारी की आवश्यकता है - वह किस प्रकार की स्क्रिप्ट है? सबसे अच्छा स्रोत कोड प्रदान करना होगा + निर्देशिका (या निर्देशिका श्रृंखला) पर अधिकार क्या हैं जहां आप अपने कोड को निष्पादित करने का प्रयास करते हैं।
यह उस स्थिति में है जब आपको अपनी स्क्रिप्ट के अधिकारों को ऊँचा उठाने की आवश्यकता है जो अभी तक आपके मामले में नहीं है:
अपनी स्क्रिप्ट को चलाने के लिए आपके पास विशेषाधिकार होने चाहिए। आप या तो प्रशासक के रूप में अपना कमांड प्रॉम्प्ट शुरू कर सकते हैं
या
runas /noprofile /user:mymachine\administrator your_script.vbsअपने उपयोगकर्ता कमांड लाइन से उपयोग करें
या
अंत में आप UAC को सीधे अपनी स्क्रिप्ट में जोड़ सकते हैं:
यह Microsoft तकनीकी से स्रोत कोड है:
'---------------------------------------
'Elevate this script before invoking it.
'25.2.2011 FNL
'---------------------------------------
bElevate = False
if WScript.Arguments.Count > 0 Then If WScript.Arguments(WScript.Arguments.Count-1) <> "|" then bElevate = True
if bElevate Or WScript.Arguments.Count = 0 Then ElevateUAC
'******************
'Your script goes here
'******************
'-----------------------------------------
'Run this script under elevated privileges
'-----------------------------------------
Sub ElevateUAC
sParms = " |"
If WScript.Arguments.Count > 0 Then
For i = WScript.Arguments.Count-1 To 0 Step -1
sParms = " " & WScript.Arguments(i) & sParms
Next
End If
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "wscript.exe", WScript.ScriptFullName & sParms, , "runas", 1
WScript.Quit
End Sub
