ABAP Call Vbscript Program…
ABAP Call Vbscript Program…
VBS 程序部分,这里先给一个简单的vbs 程序，存在一个网络共享文件夹内，是供在abap 中调用的。
这个vbs 是显示本地IP的一个小程序，内容如下
eg: IP.VBS
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
IPAddress=WS.LocalIP
MsgBox "Local IP=" & IPAddress
ABAP 程序部分，通过Call function WS_EXECUTE, 调过程序WSCRIPT.EXE 执行ip.vbs 脚本程序
*-----------------------------------------------------------------------
* Company XXX Company Limited
*
* Report Name: ZZW_CALL_VBS
*
* Author: Lilo.Zhu
*
* Date: 2009.10.20
*-----------------------------------------------------------------------
* Description:
* =============
* This report is to show how to call vbscript in abap
*-----------------------------------------------------------------------
* Change History:
* ===============
* Task# Date By Description
* xxxxx 2009.10.20 wei_zhu Initial Implementation
* Transport Request : ---
*----------------------------------------------------------------------
REPORT ZZW_CALL_VBS .
PARAMETER: P_SVPATH LIKE RLGRAP-FILENAME.
START-OF-SELECTION.
DATA: COMMANDLINE(1000).
COMMANDLINE = P_SVPATH. "Full path of vbs file
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
COMMANDLINE = COMMANDLINE
PROGRAM = 'WSCRIPT.EXE'
EXCEPTIONS
FRONTEND_ERROR = 1
NO_BATCH = 2
PROG_NOT_FOUND = 3
ILLEGAL_OPTION = 4
OTHERS = 5.
IF SY-SUBRC NE 0.
*MESSAGE 'Error.....' TYPE 'I'.
RAISE EXECUTION_FAILED.
ENDIF.
---程序运行结果部分---
