由于访问限制，无法运行 vbscript 文件

Question

我正在尝试在 HTML 页面上上传一个文件，为此我需要运行保存在我桌面上的 vbascript。但是，当我执行代码时，它会要求管理员权限并收到“拒绝访问”错误。那么有没有什么方法可以运行这个文件，但它不应该违反任何政策，因为我不想造成任何安全问题。

提前谢谢:)

Sub uploadFiles()

Dim ie As Object
Dim strFile As Variant
Dim strUploadFile As Variant
Dim objShell As Variant


 Set ie = CreateObject("InternetExplorer.Application")
 ie.navigate "https://www.pdftoexcelconverter.net/"
 ie.Visible = True

Application.Wait DateAdd("s", 5, Now)
strFile = "C:\Users\kiranm\Desktop\2019\FileUpload.vbs"  
strUploadFile = "C:\Users\kiranm\Desktop\2019\fl0005.pdf" 

Dim R_Shl As Double


Set objShell = CreateObject("WScript.Shell")
   objShell.Run Chr(34) & strFile & Chr(34) & strUploadFile & Chr(34)


ie.document.getElementsByName("Filedata")(0).Click
Application.Wait DateAdd("s", 2, Now)


End Sub

Answer 1

方法如下
Chr(34) & strFile & Chr(34) & strUploadFile & Chr(34)
真的看起来像（这是来自你的代码）："C:\Users\kiranm\Desktop\2019\FileUpload.vbs"C:\Users\kiranm\Desktop\2019\fl0005.pdf" 如您所见，没有足够的双引号和空格。

这就是方法
"wscript.exe" & strFile & " " & strUploadFile
看起来像（这是来自您的评论）
wscript.exeC:\Users\kiranm\Desktop\2019\FileUpload.vbs C:\Users\kiranm\Desktop\2019\fl0005.pdf

所以，我会尝试使用这个版本：
Chr(34) & strFile & Chr(34) & " " & Chr(34) & strUploadFile & Chr(34)
在帖子中的代码中。