Question

我有一个VBScript文件。当它在电脑上它工作正常。我想把它放在一个php网站上，点击按钮即可执行它。但我还没有成功。我有一个VBScript文件。当它在电脑上它工作正常。我想把它放在一个php网站上，点击按钮即可执行它。但我没有成功。

以下是代码：

Const ForReading = 1
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\AppServ\www\abcd\testFile.txt", ForReading)
TheFile =   f.ReadAll

myArray = Split(theFile,vbcrlf)

for i = 0 to Ubound(MyArray)
Next

txt=Space(1)

Set myShell = CreateObject("WScript.Shell")
    myShell.run "cmd"
    WScript.Sleep 100

    myShell.SendKeys"telnet 192.168.1.1"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1500

    myShell.SendKeys"myname"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1500


    myShell.SendKeys"mypassword"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1500

    myShell.SendKeys"sudo -i"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1000

    myShell.SendKeys"su - zimbra"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1000  

    myShell.SendKeys"zmprov ma " & myArray(0) & " zimbraAccountStatus locked"
    myShell.SendKeys("{Enter}")
    WScript.Sleep 1000

提前致谢。

Answer 1

PHP无法执行vbscript。如果你想让php执行任何其他语言，你必须编写某种解析器/解释器来为你做这个...

但是在你的情况下，将脚本简单地翻译成php会更容易。 telnet客户端并不难实现。这里有一个简单的例子：telnet connection using PHP

如何使用php执行vbscript

1 个答案: