Execute VBScript Subroutine from php

ravioliman · #1 August 28th, 2008, 10:44 PM

How do I execute a vbs subroutine from php. I found this on the web and is in my php code:

Expand|Select|Wrap|Line Numbers

 
  $scripter = new COM("MSScriptControl.ScriptControl");

  $scripter->Language = "vbscript";

  $k = $scripter->eval(UnBusyInvoice());   <<--my subroution

  print "Result: $k\n";

  $scripter = null;

If fails as follows:

Expand|Select|Wrap|Line Numbers

 
Fatal error: "Call to undefined function UnBusyInvoice() in C:\wamp\www\r1\vchrAdd.php on line 200"

The subroutine is in the <head> </head> section as follows:

Expand|Select|Wrap|Line Numbers

 
<script language="vbscript">
 
Dim myObjSrv

mySrvObj = CreateObject("ImageDisplay.ImageDisplayInterface")
 
Sub UnBusyInvoice()  

   Dim  vDocID, vStatus, iResult

   vDocID = document.getElementByID("docID").value
 
    mySrvObj = CreateObject("ImageDisplay.ImageDisplayInterface")  <<--create automation server
 
   iResult = mySrvObj.UnBusyInvoice(vDocID, vStaus)       <<--execute method on automation server
 
   if vStatus = 0 then           <<-- check return statue

       document.getElementByID("docID").value = ""

   end if

document.getElementByID("status1").value = vStaus
 
End sub

</script>

Thanks for any help you can give.

Atli · #2 August 28th, 2008, 11:05 PM

Hi.

Shouldn't the VBScript code in the eval call be quoted?
The way you are calling it now, PHP will try to execute a PHP function called UnBusyInvoice() and pass the result to the eval call, which fails because there is no such function.

ravioliman · #3 August 29th, 2008, 08:21 PM

Thanks for replying...

When I put quotes around the vbs subroutine

Expand|Select|Wrap|Line Numbers

 
if ($id == 8) { 

  $scripter = new COM("MSScriptControl.ScriptControl");

  $scripter->Language = "vbscript";

  $k = $scripter->eval("UnBusyInvoice()");

  print "Result: $k\n";

  $scripter = null;

}

I got a nasty message:

Fatal error: Uncaught exception 'com_exception' with message
Source: Microsoft VBScript runtime error
Description:Type mismatch: 'UnBusyInvoice'' in C:\wamp\www\resume3\vchrAdd.php:207
Stack trace: #0
C:\wamp\www\resume3\vchrAdd.php(207): com->eval('UnBusyInvoice()') #1 {main} thrown in
C:\wamp\www\resume3\vchrAdd.php on line 207

Atli · #4 August 29th, 2008, 10:06 PM

Looks like a problem with the VBScript code.
Don't know enough about VBScript to say for sure, but it looks to me like it doesn't recognize the subroutine you are calling.

ravioliman · #5 August 29th, 2008, 11:11 PM

Quote:

Originally Posted by Atli

Looks like a problem with the VBScript code.
Don't know enough about VBScript to say for sure, but it looks to me like it doesn't recognize the subroutine you are calling.

Thanks for your reply. I can execute the vbs subroutine all day long using a form element such as a button's onClick or onKeyDown event. Just don't know what to put in the Link area of the menu to execute vbs subroutine?

Thanks much again.

Atli · #6 August 30th, 2008, 04:01 PM

Ahhhh ok. I see the problem now.

The VBScript subroutine you are trying to execute is sent to the client as a part of the server response, making it available to the client-side scripts (such as the onclick event of a HTML element).
PHP will try to execute the subroutine server-side, where it doesn't exists.

To be able to execute the subroutine using PHP, it will have to exist on the server, not in the client browser.

What is Bytes?

Popular Articles