如何使用php執行vbscript

我有一個VBScript文件。當它在電腦上工作正常。我想把它放在一個PHP網站上，通過點擊按鈕來執行它。但我還沒有成功。我有一個VBScript文件。當它在電腦上工作正常。我想把它放在一個PHP網站上，通過點擊按鈕來執行它。但我沒有成功。如何使用php執行vbscript

下面是代碼：

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

在此先感謝。

來源

2014-01-18 Mel

btw，它是vbscript代碼。 – Mel

...爲什麼你能夠運行這個PHP？ – SamB

我想用我的郵件數據庫連接我的Web數據庫。但我找到了解決方案，我用肥皂來連接它們。對不起，回覆遲了.. – Mel

PHP無法執行vbscript。如果你想讓php執行任何其他語言，你必須編寫某種解析器/解釋器來爲你做這個...

但在你的情況下，應該更容易將腳本翻譯成php。一個telnet客戶端並不難實現。一個簡單的例子在這裏找到：telnet connection using PHP

來源

2014-01-18 11:27:42 Philipp

感謝您的回覆！我會嘗試它.. – Mel

它仍然沒有工作.. 如何運行cmd.exe與參數「C：\ a.vbs」如果我手動運行它，它的工作，但如果我運行它編程使用PHP中的可執行函數，沒有任何反應，但當我打開任務管理器..有一個進程cmd.exe運行.. 我該怎麼辦？ – Mel

如何使用php執行vbscript

回答

相關問題