如何解决VBScript-访问被拒绝
我的工作是,我不得不不时地将补丁应用到应用程序中。在应用补丁之前,我必须备份所有文件。这些文件在各个文件夹中大约有几十个。应用补丁后,我需要将所有文件恢复到补丁过程中的原始原因,其中一些文件会被我不想要的默认数据覆盖。
因此,如果我要手动执行此操作,则会非常耗时。所以我有两个脚本
-
第一个是备份修补程序之前的所有文件。我通过创建原始副本并添加扩展名(例如“ .P123”)来备份所有文件 例如:file1.txt-> file1.txt.P123 备份后,有2个文件,file1.txt和file1.txt.P123。该脚本效果很好。
-
第二个脚本是将文件还原为原始文件。该脚本不起作用。补丁之后。我只是删除了file1.txt,然后将file1.txt.P123重命名为file1.txt,但是在尝试删除文件的那一行我却获得了“权限被拒绝”。
故障排除步骤:
- 我以管理员身份在命令提示符下运行脚本。
- 我在cmd提示符下运行脚本, Runas / profile / user:mydomain \ locbtran“ cscript.exe C:\ Scripts \ Test.vbs”
- 我尝试将UAC修改为最低级别,但无济于事
如果不删除文件,只需在脚本中将“ file1.txt.P123”重命名为“ file1.txt”。我得到“文件已经存在”。
这是我的脚本代码,用于重命名文件:
Dim objFSO,arrBackupFiles
Dim strRenameFiles : strRenameFiles = WScript.Arguments.Item(0)
arrBackupFiles = Array(_
"F:\Installation\ab\file1.txt",_
"F:\Installation\cd\file2.pdf",_
"F:\Installation\ef\file3.csv" _
)
Set objFSO = CreateObject("Scripting.FileSystemObject")
For each sFile in arrBackupFiles
'Add new extension to existing file
xFile = sFile & "." & strRenameFiles
'Delete Original File
objFSO.DeleteFile sFile
'Rename the file
objFSO.MoveFile xFile,sFile
Next
对不起,您必须阅读我漫长而曲折的人生故事,但我只是想在解释中做到耳目一新。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。