Shell 如何在windows脚本中删除作为管理员的文件夹？

我为我的应用程序开发了一个卸载程序windows脚本文件。 我试图从Programfiles（x86）中删除一个文件夹，但出现了此错误

Microsoft VBScript运行时错误“800A0046”前置任务被拒绝

我的代码如下

Dim shell, systempath

 set shell = WScript.CreateObject( "WScript.Shell" )

 systempath = shell.ExpandEnvironmentStrings("%SystemRoot%")

 shell.Run Chr(34) & systempath & "\system32\msiexec.exe" & Chr(34) & "  /x{ProductCode}"

 For Each f In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Program Files (x86)\XXXXX").SubFolders
    If LCase(f.Name) <> "dev" Then
        f.Delete
        If Err Then
           WScript.Echo "Error deleting:" & Name & " - " & Err.Description
        Else
           WScript.Echo "Deleted:" & Name
        End If
        On Error GoTo 0
    End If
 Next
 WScript.Quit 

Dim外壳，系统路径
set shell=WScript.CreateObject（“WScript.shell”）
systempath=shell.ExpandEnvironmentString（“%SystemRoot%”）
shell.runchr（34）和systempath&“\system32\msiexec.exe”&Chr（34）和“/x{ProductCode}”
对于CreateObject（“Scripting.FileSystemObject”）.GetFolder（“C:\Program Files（x86）\XXXXX”）.子文件夹中的每个f
如果LCase（f.Name）“dev”，则
f、 删除
如果有错误，那么
WScript.Echo“删除时出错：”&Name&“-”&Err.Description
其他的
WScript.Echo“已删除：”&名称
如果结束
错误转到0
如果结束
下一个
WScript.Quit

错误行是“f.Delete”。当我在管理员帐户上运行此代码时没有问题。但不是管理员，我得到了权限被拒绝错误。

---

如何解决此问题？

您可能需要运行卸载程序…此处没有足够的信息来解决您的问题。在哪条线上出错？很明显，这并不是全部代码，因为这里有一个错误处理程序，但没有关闭VBScript错误处理，因为下一步错误恢复。很抱歉，我的信息不完整。错误为“f.Delete”。当我在管理员帐户上运行此代码时没有问题。但不是管理员，我收到了“权限被拒绝”错误。我如何为此而在周围工作？