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

我试图上传一个HTML页面上的文件，为此我需要运行桌面上保存的vbascript。但当我执行代码时，它会请求管理员权限，并得到错误为“拒绝访问”。因此，有没有办法运行这个文件没有，但它不应该打破任何政策，因为我不想创造任何安全问题

提前感谢：）

以下是如何

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）

在post中的代码中。

下面是如何操作的

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）

---

在post中的代码中。

我也尝试了：Shell“wscript.exe”&strFile&&strUploadFile，但接收“未找到文件”时出错。我也尝试了：Shell“wscript.exe”&strFile&&strUploadFile，但接收“未找到文件”时出错。我尝试了此代码，但得到的错误与“未找到文件”相同。你在你的电脑上测试过这段代码了吗？它对你有用吗？@kiranmamalwad我指出了一些明显的错误，把它作为一个答案发布了出来，因为注释在文本长度和格式上是有限的。我想那个链接会对你有所帮助。我试过这个代码，但得到的错误是“找不到文件”。你在你的电脑上测试过这段代码了吗？它对你有用吗？@kiranmamalwad我指出了一些明显的错误，把它作为一个答案发布了出来，因为注释在文本长度和格式上是有限的。我想那个链接会对你有帮助。

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