VBSCRIPT calling

Is it possible to call VBScript function through CFM pages ?
ThePolarExpress

Just seen your other thread. To run the script at server
side, I would do as Dan, and use cfexecute. Something along the
lines of
<cfexecute name = "C:\WinNT\System32\cscript.exe"
arguments = "/nologo
C:\ColdFusion8\wwwroot\website\listFiles.vbs c:\*.*"
outputFile = "C:\Temp\output.txt"
timeout = "5">
</cfexecute>

Similar Messages

VBSCRIPT call WMI Method on array

We still have some windows server 2003 servers without powershell. We have a need to install SCCM updates with vbscript. I can instantiate the updates, but I am not able to call the installupdates WMI method for CCM_SoftwareUpdatesManager
Here is what I have
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
'----Get the Patch ID
WScript.Echo "BulletinID: " & objItem.BulletinID
WScript.Echo
' ---- Install the patch
Set UID = objInstall.Methods_("InstallUpdates")
UID = objInstall.InstallUpdates(objItem.BulletinID)
Next
This is the error I am receiving:
SWbemObjectEx: Type mismatch
Thanks in advance for the help. I have not done any work in vbscript for a while...
Mike Hanlon

Thanks for the help!! I really appreciate it
I am closer, but I cannot find what the parameter is to pass. I am receiving a type mismatch error. I tried calling objInstall.InstallUpdates with objItem.ArticleID objItem.UpdateID and objItem.BulletinID
There is the code:
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
'----Get the Patch ID
WScript.Echo "BulletinID: " & objItem.BulletinID
WScript.Echo "UpdateID: " & objItem.UpdateID
WScript.Echo "ArticleID: " & objItem.ArticleID
objInstall.InstallUpdates objItem.ArticleID
Next
I found this link to a powershell script that has a comment stating you need to format the missing updates. It looks like you need to select the path?
https://gallery.technet.microsoft.com/scriptcenter/Install-All-Missing-8ffbd525#content
Mike Hanlon

Converting this VBScript into Java???

HI
I hava found this VBSCript. But I like to work on java.Is it possible to convert this into java code. Basically the script runs something in the remote machine. If its possible ,would u pls tell me what special package I need ??
call execprog ("217.138.120.34","c:\acad_deploy\AdminImage\install.bat")
sub ExecProg(ServerName, ProgramName)
'     dim process as object, processid as long, result as long
     set process=getobject("WinMgmts:{impersonationLevel=Impersonate, authenticationLevel=pktPrivacy}\\" & servername & "\root\cimv2:Win32_Process")
     result=process.create(programname, null, null, processid)
     if result=0 then
         msgbox "Command executed successfully on remote machine"
     else
         msgbox "Some error, could not execute command"
     end if
end sub Thanks in advance

I hava found this VBSCript. But I like to work on
java.Is it possible to convert this into java code.Yes, it is possible to convert the VBScript program in to Java code. You need to identify what the program (script) does and what the other programs are doing as well. (You said the VBscript calls other programs on remote machines). After this, design a way to implement same functionality with Java.
Basically the script runs something in the remote
machine.What "something"?
If its possible ,would u pls tell me what
special package I need ??It is possible, in order to convert the VBScript program to Java, you will have to create a Java package to contain the class hiearchy, i.e. com.admin.install.*
And of course you will need packages from J2SE and possibly J2EE. The Runtime and Process classes from J2SE are examples what is available. These objects can be used to used to call the other programs. Your design will depend on details of the other programs.
Do you plan on converting the "install.ba" program to Java as well?

How to export data to an excel file using VBScript

I'm trying to create a VBScript in DIAdem (V9.1) which automatically saves all the current channels in the data portal to an excel file. I've tried using 'Call ExcelExport' and specify a full file path but the file is never created. What am I doing wrong?
Thanks,
Steve

Hi Steve,
There are a couple of other things you can try. If you don't like Ingo's suggestion about multiple Excel STP files, your only real option is to create an ASCII file. Note that you can give the ASCII file an extension of *.CSV or even *.XLS, and Excel will read it right in.
So the question boils down to how to format the ASCII export correctly and quickly.
You can use the DAT file approach Ingo mentioned and even re-write the file with VBS to include a few header lines of your own choosing. Note that this approach does NOT support text channels. There is an example of this in the zip file attached below.
You can alternatively use the CSV export function in DIAdem 9.1 to output an ASCII file with the name of each channel as the single header row above all the values. There is an example of this in the zip file attached below.
You can also just read the values from the DIAdem channels and write them out to an ASCII file cell by cell, managing everything with VBScript calls. There is an example of this in the zip file attached below.
I hope that helps,
Brad Turpin
DIAdem Product Support Engineer
National Indstruments
Attachments:
DIAdem ASCII Export.zip ‏5 KB

Interesting angle on 'Provider cannot be found. It may not be properly installed' error

Hi, I am getting the "Provider cannot be found. It may not be properly installed" message when running a .bat->VBScript script using Windows Task Scheduler. I am not seeing a solution in Google searches. Possibly I am not seeing the similarities because of a lack of detail in posts. Who knows.
Info as follows:
- Installed ODAC1120320_x64.zip using my personal user account.
- Using my personal user account there is no problem. I use file explorer to run a .bat file that in turn calls the VBScript.
- Using the System account and Windows Task Scheduler the script fails with the above error.
- File ACLs for the Oracle home\..\bin directory give full control to the System account
- ACLs for the ORAOLEDB.Oracle registry key gives access to the System account. I am assuming that all other key-value pairs involved in this problem have the same ACLs.
- Hosted on Windows 2008 (VM)
- The scripting language is VBScript, called from a .bat file. Task Scheduler calls the .bat file.
- The scheduled task has the "Run with highest privilages" box checked (same problem with the box unchecked).
- This configuration and script works well on an older Windows 2003 (dedicated) server
- Connection string:
"Provider=ORAOLEDB.Oracle;" &_
"User ID=[DB Schema Name];Password=[password];" &_
"Data Source=[TSN name];"
- I can mess with aspects of the TSN name and file without a change in the error message
Thanks for your help.
Nathan

We got the same error under windows 2003 SP2 and Oracle 10g release 2. Is there any problem with this provider in this release? We installed downgrade version of this provider, it is working. Is there any other way to avoid this error without going for downgrade?

Error exporting Crystal Report with VB Script

I am working with Crystal Reports and attempting to export a .RPT file to a .PDF file using a VBScript called from InSQL. I can get the script to work properly if I require a user entry for file destination and name (.export true) but get the error message "Missing or out-of-date export dll" when I attempt to export the .RPT silently (.export false). The report also exports correctly when I manually initiate the export from within Crystal Report. Do you have any examples or solutions for this procedure? Thank you in advance.
Here is my code for the VBScript export:
dim rptfile, exportfile
dim strDate
dim objCRRpt
dim objCRApp
strDate = "_" & right("0" & month(now()),2) & "_" & right("0" & day(now()),2) & "_" & year(now())
rptfile = UCase("C:\CompCriticalAlarmReport_Test\Report1.rpt")
exportfile = "C:\CompCriticalAlarmReport_Test\criticalalarmreport" & strDate & ".PDF"
Set objCRApp = CreateObject("CrystalRuntime.Application")
set objCRRpt = objCRApp.openreport(rptfile)
With objCRRpt
     With .exportoptions
     .formattype = CrEFTCrystalReport
     .diskfilename = exportfile
     .destinationtype = CrEDTDiskFile
     .usereportdateformat = true
     .usereportnumberformat = true
     End With
.export (false)
End With
Set objCRApp = Nothing
set objCRRpt = Nothing

Ludek, I downloaded the VBA Sample application using the Microsoft Access Database and it is coming up with the same error as my VBScript for the PDF export. The error message for this application is "Run-time error '-2147190908 (80047784)': Failed to export the report."
Private Sub Image47_Click() 'Exporting to PDF
'Defines report's format type
Me.crxReport.ExportOptions.FormatType = crEFTPortableDocFormat
'Defines report's destination type
Me.crxReport.ExportOptions.DestinationType = crEDTDiskFile
'Defines report's file name
Me.crxReport.ExportOptions.DiskFileName = "C:\MyPDFfile.pdf"
'exports without calling the exporting dialog window
Me.crxReport.Export False        <----ERROR OCCURS ON THIS LINE
When I Run the application with Me.crxReport.Export True, the application executes without error and a popup appears prompting me to select the destination and format type. I need this to run automatically though without a user prompt.
I have seen numerous topics regarding the exportmodeller.dll, crtslv.dll, and atl.dll files improperly registering or the incorrect versions causing export problems. Could this be causing problems with my export functions? Again, the reports export fine when I manually export them, I am just having a problem when I try to export automatically in any format (excel, text, pdf, rpt, etc...)
atrain10

Call a Vbscript from a stored procedure

Hi,
I wonder is it possible to call a Vbscript from a stored procedure, any good reference for this.
thanks

Well here is quick and dirty example I just created.
Step 1. Create a test_batch.bat file that creates a folder "c:\test_dir" and copy "c:emp.lst" into it.
C:\oracle102\examples\test_batch.bat
md c:\test_dir
copy c:\emp.lst c:\test_dir
Step2. From SQLPLUS, spool scott.emp into c:\emp.lst and call the batch from the dbms_scheduler that kicks off right away,
set echo off
set feedback off
spool c:\emp.lst;
select * from scott.emp;
spool off;
begin
     dbms_scheduler.create_job(job_name => 'run_batch',
     job_type => 'EXECUTABLE',
     job_action => 'C:\oracle102\examples\test_batch.bat',
     start_date => sysdate,
     enabled => true,
     comments => 'Run VB Script');
end;
Check if the directory is created and if the file is copied over. Task is to kick off the executable and test is the VBscript within the batch. Challenge is how long the script runs before the next statement in the PL/SQL runs. May be you have to introduce sleep in between.
Note: You must have at least "CREATE JOB" privilege.
Happy coding!
Prakash
Message was edited by:
Prakash Rai

VBScript which is called with Arguments from Command Line

Hi There.
I have been tasked to create a VBScript which needs to accomplish the following:
It needs to be called from a command line using 4 different arguments, the arguments in order as follows:
-   Drive letter including colon
Warning threshold in percentage
Warning threshold in GB remaining
Recipient email address
I need to be able to set up a scheduled task, to run this script, but at the same time I need to be able to specify multiple drive letters as separate steps but on a single task. The script needs to automatically run every 4 hours, starting at 06:00AM
in the morning and running no later than 22:00 at night.
The end results, need to then be e-mailed to the Recipient which is specified in Argument (3).
Following is my current script, it is not complete as I am currently pulling my hair out due to having a lack of knowledge of VBScripting.... :( The current script also loops every 10 minutes or so, and uses the incorrect way of sending the results,
we would like to use POSTIE.EXE to send the mail as we would want to eliminate web traffic (Microsoft Schema's) in this script.
=====================================================================================
Const emailFrom = "default_from_email_address_comes_here" 'From email address
Const ExchangeServer = "ExchangeServerName_comes_here" 'Enter your Exchange server name here (FQDN)
Const WaitTimeInMinutes = 10 'Wait time between loops. This is will be in minutes
Dim WshShell, objArgs, strIP, objWMIService, LogicalVolumes, strDriveLetter
Dim objItem, strDriveName, IntCapacity, IntFree, DiskFreePct
Dim strIgnoreFlag
Dim strMessage, IntStatistic
on error resume next
strDriveLetter = WScript.Arguments(0) 'This is the drive letter which you want to monitor on the localhost
DiskFreePct = WScript.Arguments(1) 'This is the threshold percentage of free space
ThresholdGB = WScript.Arguments(2)
Recipient = WScript.Arguments(3) 'This is where the e-mail needs to be sent to
If Err.Number <> 0 Then
msgbox "You did not supply the arguments after calling the VBS file:" & vbcrlf & "<Drive Letter, eg: C:>"& vbcrlf & "<Warning Threshold in Percentage> "& vbcrlf &"<Warning
Threshold in GB Remaining> "& vbcrlf &"<Recipient E-Mail Address>"
WScript.Quit
End If
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo WshNetwork.ComputerName
arrServerList = array(WshNetwork.ComputerName) 'This is where your localhost will be used as the query
Do until i = 2
'Clear the message variable
strMessage = ""
'Poll the array of servers
PollServers(WshNetwork.ComputerName)
'Email if there is a message
if strMessage <> "" then
EmailAlert(strMessage)
end if
'The script will loop for now just for testing. Uncomment the line that follows the loop logic to cancel the loop.
WScript.Sleep(WaitTimeInMinutes*60000)
'i = i + 1
Loop
Sub PollServers(arrServers)
on error resume next
for each Server in arrServers
set objSvc = GetObject("winmgmts:{impersonationLevel=impersonate}//" & Server & "/root/cimv2")
set objRet = objSvc.InstancesOf("win32_LogicalDisk")
for each item in objRet
if item.DriveType = 7 then
end if
if item.FreeSpace/item.size <= AlertHigh then
strMessage = strMessage & UCase(strPC) & " Drive '" & item.caption & "' is low on disk space! There are " & FormatNumber((item.FreeSpace/1024000),0)
& " MB free" & vbCRLF
end if
next
next
set objSvc = Nothing
set objRet = Nothing
End Sub
Sub EmailAlert(Message)
on error resume next
Set objMessage = CreateObject("CDO.Message")
with objMessage
.From = emailFrom
.To = Recipient
.Subject = "Server " & WshNetwork.ComputerName & " is low on Disk Space"
.TextBody = Message
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ExchangeServer
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
end with
Set objMessage = Nothing
End Sub

I've managed to get the script fully working as required.
================================================================
Const emailFrom = "your_email_here"      'From email address
Const ExchangeServer = "exchange_server_name"      'Enter your Exchange server name here (FQDN)
Const WaitTimeInMinutes = 240                   'Wait time between loops. This is will be in minutes
Dim WshShell, objArgs, strIP, objWMIService, LogicalVolumes, strDriveLetter
Dim objItem, strDriveName, IntCapacity, IntFree, DiskFreePct
Dim strIgnoreFlag
Dim strMessage, IntStatistic
Dim DrivePercentage
Dim DriveSpaceRem
Dim mbFreeSpace
Dim intFreeSpace
Dim UsedPercentage
on error resume next
strDriveLetter           = WScript.Arguments(0)   'This is the drive letter which you want to monitor on the localhost
DiskFreePct              = WScript.Arguments(1)   'This is the threshold percentage of free space
ThresholdGB              = WScript.Arguments(2)
Recipient                = WScript.Arguments(3)   'This is where the e-mail needs to be sent to
If Err.Number <> 0 Then
msgbox "You did not supply the arguments after calling the VBS file:" & vbcrlf & "<Drive Letter, eg: C:>"& vbcrlf & "<Warning Threshold in Percentage> "& vbcrlf &"<Warning Threshold in GB Remaining> "&
vbcrlf &"<Recipient E-Mail Address>"
WScript.Quit
End If
strComputer = "."
'WScript.Echo strComputer
Set WshNetwork = WScript.CreateObject("WScript.Network")
'WScript.Echo WshNetwork.ComputerName
arrServerList = array(strComputer)    'This is where your local host will be used as the query
Do until i = 1
    'Clear the message variable
    strMessage = ""
    'Poll the array of servers
    PollServers strComputer,strDriveLetter
    'Email if there is a message
    if strMessage <> "" then
        EmailAlert(strMessage)
    end if
    'The script will loop for now just for testing. Uncomment the line that follows the loop logic to cancel the loop.
    'WScript.Sleep(WaitTimeInMinutes*60000)
        i = i + 1
Loop
Sub PollServers(strComputer,strDriveLetter)
    Selectstring = "Select * from Win32_LogicalDisk Where DeviceID = '" & strDriveLetter & "'"
    on error resume next
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery(Selectstring)
    For Each objItem in colItems
if objItem.FreeSpace/objItem.Size * 100 <= DiskFreePct or mbFreeSpace <= ThresholdGB then
     DrivePercentage = FormatNumber(objItem.FreeSpace/objItem.Size *100,0)
     DriveSpaceRem   = FormatNumber((objItem.FreeSpace/1024000),0)
     intFreeSpace    = objItem.FreeSpace
     mbFreeSpace     = intFreeSpace / 1024 / 1024 / 1024
     mbFreeSpace     = round(mbFreeSpace,0)
     intTotalSpace   = objDisk.Size
     UsedPercentage = 100 - DrivePercentage
          strMessage      = strMessage & " "
        end if
    Next
End Sub
Sub EmailAlert(Message)
    on error resume next
    Set objMessage = CreateObject("CDO.Message")
with objMessage
        .From = emailFrom
        .To = Recipient
        .Subject = "" & WshNetwork.ComputerName & ": Alert " & Now & " -> " & UCase(strDriveLetter) & " fill level = " & UsedPercentage & "%, Space Remaining = " & mbFreeSpace & "
GB"
        .TextBody = Message
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ExchangeServer
        .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Configuration.Fields.Update
        .Send
    end with
    Set objMessage = Nothing
End Sub
'WScript.Echo "done"

Calling an ABAP FM from VBscript or NT Script

Hi,
We have a situation where we have a Windows FTP drive share mounted with the BI app server. On this share drive a VBscript executes copying some files over. Based on certain conditions we want to execute a process chain. Is there any way to call the ABAP FM to raise an event from the VBscript?
Or if that is not possible, can the VBscript be called from ABAP?
Thanks.
Shailesh

I am not sure about Windows, but in a Unix environment, you have "sapevt". You call that to raise an event, which could trigger a process chain directly.
Check your Windows .exes to see if you have sapevt.exe.

How to call LabVIEW_VI in VBScript(activex Com server) with (ByVaL, ByRef)parameters

Hai to all,
i want to call LabVIEW_VI(Activex Server) from VBScript. That VBScript include onther COM Server. i want to data exchange between VBScript and LabVIEW. That parameters shouldbe two types, I mean some parameters ByVal and some ByRef.
How can i call?
Request: How to create VI function with ByRef parameter in LabVIEW.
ex: in 'C++': LabVIEWFunction(short* numb1, CString* str1).
Note: i am using LabVIEW 7.0 Express.
Thanks for advance!

Hello.
I am not sure if I understand correctly. Sure, you can access both controls (inputs) and indicators (outputs) with the LabVIEW ActiveX server. If you use the call function i mentioned in my last answer, you might pass two arrays to the function. One array with the control/ indicator names and another one containing the values. After calling the VI you will find the data of the VI outputs inside the values-array.
Have a look at the attatched ZIP file. It contains a simple example showing the procedure.
Attachments:
callVI.zip ‏8 KB

Simple call to stored function from asp (vbscript) adodb

please let me know if this question would be better suited to another forum.
i am simply attempting to call an oracle stored function that returns a varchar2 from an asp vbscript page using adodb. i have calling of stored procedures working fine.
attempting to call the function with the following code:
set sp_aprvd_cr = Server.CreateObject("ADODB.Command")
sp_aprvd_cr.ActiveConnection = MM_MHR_CONN_STR_STRING
sp_aprvd_cr.CommandType = 4
sp_aprvd_cr.CommandTimeout = 0
sp_aprvd_cr.Prepared = true
sp_aprvd_cr.CommandText = "PMS.sp_hpmsq054_aprvd_cr"
sp_aprvd_cr.Parameters.Append sp_aprvd_cr.CreateParameter("IP_PMSPT_ID", 200, 1,10,sp_aprvd_cr__P_PMSPT_ID)
sp_aprvd_cr.Parameters.Append sp_aprvd_cr.CreateParameter("return_param", adVarchar, adParamOutput)
set rst_aprvd_cr = sp_aprvd_cr.Execute
suspect that preparing the return code is where i am having troubles.
any examples or assistance would be greatly appreciated.
thanks in advance.

Return value from stored function must be the first parameter in the parameters collection.
So, try this instead,
sp_aprvd_cr.Parameters.Append sp_aprvd_cr.CreateParameter("return_param", adVarchar, adParamOutput)
sp_aprvd_cr.Parameters.Append sp_aprvd_cr.CreateParameter("IP_PMSPT_ID", 200, 1,10,sp_aprvd_cr__P_PMSPT_ID)Cheers,
NH

Does flex can call vbscript function ?

i am not sure does flex or action script can call vbscript function .
how can i get detail information . thank you!

Adobe does not provide such a capability. Folks have created ways to call
Java I believe, and ExternalInterface will call JavaScript. And you can use
sockets. And NativeProcess from AIR apps.

FSCommand doesn't call vbscript in Vista IE7

Hey All,
I have web application with small flash movies which call to
FSCommand though VBScript. In IE6/7 in XP everything works OK about
2 years.
Now, we encounter with new problem that the same code doesn't
work in Vista (SP0 and SP1) IE7. The problem is that "movie"
parameter is a full URL address. When I set local file path it
works fine.
Please, see attached code examples.
Just last movie is working.....
Please, help me with this issue.
Thanks

I have the same problem as well, my new laptop doesn't recognize my ipod touch either(16gb) though i plugged my brother's ipod shuffle on an my laptop picked it up. The only difference between my old comp (that picked up my itouch) and my laptop is that the laptop has vista and my pc has xp. The only thing i could think of doing would be redownloading the driver for my itouch to my laptop but i couln't find anything to that nature.
Message was edited by: deltronn

Calling MM_showHideLayers from VBScript

I am trying to call the MM_ShowhideLayers function from a
VBScript that is evaluating a database and then showing and hiding
regions bases on the a dynamic value. I am using #Setting1,
#Setting2, etc. in my linked CSS file. Since I am not familiar with
Javascripting, I was trying to have VB Script that is looping
through all of the corrisponding settings in the file and then
setting per values. The M_ShowhideLayers function evaluates the
args passed. VB is having issues with this when trying to pass the
values. Can someone provide some help. There is probably an easy
way to do from vbscript, but I am still learning. :)
Here is the sample VB code:
While NOT rec_reservedbooths.EOF
If rec_reservedbooths.status = "R" Then
Call MM_showHideLayers("Booth" &
rec_reservedbooths.Fields.Item("boothid").Value,"","show")
Else
Call MM_showHideLayers("Booth" &
rec_reservedbooths.Fields.Item("boothid").Value,"","hide")
End If
rec_reservedbooths.MoveNext()
WEnd
Thanks,
David

do you mean the function generated by the client behavior
show-hide
layers? if it's what you're trying to do, simply you can't.
the function
is client-side JS executed in the browser while your VBScript
code
executes at the server before the page is sended to the
browser
just put the HTML code corresponding to the layer inside the
If sending
it with a Response.write:
If rec_reservedbooths.status = "R" Then
Response.write "<div>"
End If
dwb67 wrote:
> I am trying to call the MM_ShowhideLayers function from
a VBScript that is
> evaluating a database and then showing and hiding
regions bases on the a
> dynamic value. I am using #Setting1, #Setting2, etc. in
my linked CSS file.
> Since I am not familiar with Javascripting, I was trying
to have VB Script that
> is looping through all of the corrisponding settings in
the file and then
> setting per values. The M_ShowhideLayers function
evaluates the args passed.
> VB is having issues with this when trying to pass the
values. Can someone
> provide some help. There is probably an easy way to do
from vbscript, but I am
> still learning. :)
>
> Here is the sample VB code:
>
> While NOT rec_reservedbooths.EOF
> If rec_reservedbooths.status = "R" Then
> Call MM_showHideLayers("Booth" &
>
rec_reservedbooths.Fields.Item("boothid").Value,"","show")
> Else
> Call MM_showHideLayers("Booth" &
>
rec_reservedbooths.Fields.Item("boothid").Value,"","hide")
> End If
> rec_reservedbooths.MoveNext()
> WEnd
>
> Thanks,
>
> David
>

Call vbscript from Apex button

I have added a vbscript to the header section of my page and I'm trying to call this from a button. Is this possible? Can anyone post an example of how this would be done. I've tried calling from the URL redirect section, along with many other things and can't get anything to work. I'm not sure if I added in the header wrong or if I'm calling it wrong.
Thanks

What about placing outputs from the procedure to fields on the form?
Here is the procedure I have created:
procedure vatTotal (Order_no IN number,Total2 OUT number)
AS
CURSOR c_vatTotal is
select order_line.quantity, gre_product.cost from ord, gre_product, order_line where ord.order_no = order_line.order_no AND
gre_product.prod_no = order_line.Product_no;
Total number;
begin
Total:= 0;
for c_record in c_vatTotal loop
Total := Total + c_record.quantity * c_record.cost;
end loop;
Total2 := Total;
end;
I believe this is correct. It compiles.
I tried using Total as an out parameter but received the "duplicate fields in RECORD, TABLE or argument list are not permitted" error.

VBSCRIPT calling

Similar Messages

Maybe you are looking for