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.

---程序运行结果部分---