是否可以从浏览器运行vbscript文件(.vbs)

我有10个.vbs文件，并将它们合并到单个.vbs文件中，即main.vbs.vbs.now如果我双击main.vbs，我的脚本就开始运行。但是我正在寻找我可以从Web浏览器运行.VBS文件吗？因此，没有人需要转到main.vbs保留并双击它的目录。

我的main.vbs内容：

Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
oShell.CurrentDirectory = FSO.GetFile(Wscript.ScriptFullName).ParentFolder
oShell.run "A.VBS", 1, True
oShell.run "B.VBS", 1, True
oShell.run "C.VBS", 1, True
oShell.run "D.VBS", 1, True

是的，如果您使用Internet Exlorer，则可以保持IE安全设置低才能运行它，即使如此，您也可以提示确认。所有这些都取决于Windows的哪个版本和SP，哪些安全更新，哪个版本的IE以及哪个设置IE。

我建议您再看看为什么您会以这种方式启动本地脚本。您可以轻松地制作和分发一个快捷方式，该快捷方式启动您的脚本而不会麻烦设置和提示。

ik您需要一个用户界面，可以使用vbscript build-in，也可以使用.hta文件而不是.html或.asp文件，安全性不是这些文件的问题。

示例：test.html

<script type="text/vbscript" src="c:temptest.vbs"></script>

和test.vbs

Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set writefile = fso.OpenTextFile("c:tempoutput.txt", ForWriting, True)
writefile.write "test"
writefile.close

加载test.html时，我会收到两个提示

和最后一个带有.hta文件的示例，将其保存为EG test.hta，Alwyas使用IE时使用ActiveX或VBScript

<HTML>
<HEAD>
<SCRIPT language="VBScript">
<!--
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set writefile = fso.OpenTextFile("c:tempoutput.txt", ForWriting, True)
writefile.write "test"
writefile.close
'-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>

或

<HTML>
<HEAD>
<script type="text/vbscript">
  sub test
    const runminimized = 7
    const dont_wait_for_end = false
    Set wshShell = CreateObject("WScript.Shell")
    WshShell.Run "c:temptest.vbs",runminimized, dont_wait_for_end
  end sub
</script>
</HEAD>
<BODY>
  these are the instructions
  <button onclick="vbscript:test" >Run the script</button>
</BODY>
</HTML>

您可以公开一个经典的ASP页面，其中包含您的脚本文件，执行它们并将结果报告给浏览器。

ASP页面由IIS提供（根据版本，您可能需要配置ASP设置），并且可以从任何浏览器运行。

对于vbslover的目的，最好的方法是编程HTML应用程序（不需要Web服务器的额外复杂性，没有像普通客户端.html脚本中的安全性麻烦。当然，只需将一些HTML代码包裹在现有的VBScript代码周围是致命的，您就必须设计有用的GUI并将现有功能分配到合适的事件处理程序中。绝对不是可以通过在此处发布一系列问题来解决的项目 - 对您自己的一些仔细研究是必要的起点/前提。

相关内容

最新更新

热门标签：