나는 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
감사 : 여기
는 코드입니다.
btw, 이는 vbscript 코드입니다. – Mel
... 왜 이것을 PHP로 실행할 수 있습니까? – SamB
내 웹 데이터베이스를 내 메일 데이터베이스에 연결하고 싶습니다. 하지만 해결책을 찾았습니다. 나는 그들을 연결하기 위해 비누를 사용합니다. 늦게 답장을 보내 주셔서 죄송합니다 .. – Mel