如何在Windows脚本中删除管理员文件夹？

Question

我为我的应用程序开发了一个卸载程序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 

错误行是“f.Delete”。当我在管理员帐户上运行此代码时没有问题。但是没有管理员我得到了权限被拒绝错误。 我该如何解决这个问题？