2014-01-18 1 views
0

나는 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 

감사 : 여기

는 코드입니다.

+0

btw, 이는 vbscript 코드입니다. – Mel

+0

... 왜 이것을 PHP로 실행할 수 있습니까? – SamB

+0

내 웹 데이터베이스를 내 메일 데이터베이스에 연결하고 싶습니다. 하지만 해결책을 찾았습니다. 나는 그들을 연결하기 위해 비누를 사용합니다. 늦게 답장을 보내 주셔서 죄송합니다 .. – Mel

답변

0

PHP는 vbscript를 실행할 수 없습니다. PHP가 다른 언어를 실행하게하려면, 당신을 위해 이것을하는 일종의 파서/인터프리터를 작성해야합니다 ...

하지만, 당신의 경우에는 스크립트를 PHP로 간단히 번역하는 것이 쉬워야합니다. 텔넷 클라이언트는 구현하기가 어렵지 않습니다. 간단한 예가 여기에 있습니다. telnet connection using PHP

+0

답장을 보내 주셔서 감사합니다! 나는 그것을 시도합니다 .. – Mel

+0

그것은 여전히 ​​작동하지 않습니다 .. "C : \ a.vbs"인수로 cmd.exe를 실행하는 방법 수동으로 실행하면 작동하지만 프로그래밍 방식으로 PHP에서 exec 함수를 사용하여 실행하면 어떻게됩니까? , 아무런 반응이 없지만 작업 관리자를 열면 프로세스 cmd.exe가 실행 중입니다 ... 어떻게해야합니까? – Mel

관련 문제