vbscript - 删除所有用户配置文件的桌面内容

Question

我是 vbscript 的新手，我的任务是删除 C:\Users 下所有用户配置文件的所有文件夹和文件，我不是管理员，但负责团队的 vbscript，我没有管理员权限来删除用户配置文件，多个人们将在所有班次中登录到同一个桌面，因此将创建多个用户配置文件，应删除所有用户配置文件在桌面上 30 天前的文件夹和文件。

我在管理员提升权限的帮助下尝试了从谷歌的不同来源找到的以下脚本尝试运行脚本，但它仍然拒绝所有用户配置文件文件夹的权限。

On Error Resume Next
Dim objFSo, objFolder, objSubFolder, objFile,StrD,colSubFolders
Set objFSo = CreateObject("Scripting.FileSystemObject")
Set wshNetwork = CreateObject("WScript.Shell")

Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubFolders = objFolder.SubFolders
For Each objSubFolder in colSubFolders
strD = objSubFolder
If (objFSo.FolderExists(objSubFolder)=True) Then
wshNetwork.Run "CMD /L TAKEOWN /F """ & strD & """ /R/D Y",1,True
For Each objFile In objFSo.GetFolder(strD).Files
If objFile.DateLastModified < (Now() - 30) Then
    objFSo.DeleteFile objFile.Path,True
End If
Next

逻辑不起作用，它在第二个循环中抛出 Permission Denied 800A0046，For Each objFile In objFSo.GetFolder(strD).Files它不会遍历用户配置文件下的任何文件，请你帮我编写脚本，这是从桌面上删除所有用户配置文件的文件夹和文件的最佳方法

标签： vbscript