如何在 ABAP 中使用 Windows PowerShell 脚本

2021-09-06 12:05发布


          点击此处--->   EasySAP.com 群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)

Windows PowerShell 是命令行外壳和脚本语言的混合体。您可以在此处此处找到有关 PowerShell 的更多信息使用来自SAPIEN的免费 COM 库ActiveXPosh.dll您还可以在 ABAP 中使用 PowerShell。在这个博客中,我将展示如何做到这一点。

这是一个如何获取所有服务及其状态的示例。

"-Begin-----------------------------------------------------------------
Program zPSTest.

  "-Constants-----------------------------------------------------------
  Constants:
    OUTPUT_CONSOLE Type i Value 0,
    OUTPUT_WINDOW Type i Value 1,
    OUTPUT_BUFFER Type i Value 2
    .

  "-Variables-----------------------------------------------------------
  Data:
    PS Type OLE2_OBJECT,
    Result Type i,
    strResult Type String,
    tabResult Type Table Of String,
    cmd Type String
    .

  "-Main----------------------------------------------------------------
  Create Object PS 'SAPIEN.ActiveXPoSHV3'.
  Check sy-subrc = 0 And PS-Handle <> 0 Or PS-Type = 'OLE2'.

  Call Method Of PS 'Init' = Result Exporting #1 = 0.
  If Result <> 0.
    Free Object PS.
    Exit.
  EndIf.

  Call Method Of PS 'IsPowerShellInstalled' = Result.
  If Result = 0.
    Free Object PS.
    Exit.
  EndIf.

  Set Property Of PS 'OutputMode' = OUTPUT_BUFFER.

  cmd = `Get-WmiObject -class Win32_Service | `.
  cmd = cmd &&  `Format-Table -property Name,State`.

  Call Method Of PS 'Execute' Exporting #1 = cmd.
  Call Method Of PS 'OutputString' = strResult.

  Split strResult At cl_abap_char_utilities=>cr_lf
    Into Table tabResult.

  Loop At tabResult Into strResult.
    Write: / strResult.
  EndLoop.

  Free Object PS.

"-End-------------------------------------------------------------------

您可以将所有 dotNET 和 Windows 标准库与 PowerShell 一起使用。通过这种方式,您可以扩展您的可能性。

 


这是一个在 ABAP 中轻松使用 PowerShell 的类:

"-Begin-----------------------------------------------------------------
"-
"- Preparation:
"-
"- Define a table type with the name Z_TAB_STRING and
"- the data type string
"-
"- Disable the security settings in the SAP logon
"-
"-----------------------------------------------------------------------
CLASS ZACTIVEXPOSHV3 DEFINITION
  PUBLIC
  CREATE PUBLIC.

public section.

  interfaces IF_HTTP_EXTENSION .

  constants MC_OUTPUTCONSOLE type I value 0 ##NO_TEXT.
  constants MC_OUTPUTWINDOW type I value 1 ##NO_TEXT.
  constants MC_OUTPUTBUFFER type I value 2 ##NO_TEXT.
  constants MC_TRUE type I value 1 ##NO_TEXT.
  constants MC_FALSE type I value 0 ##NO_TEXT.

  "! Loads the ActiveXPoshV3 library
  "!
  "! @parameter rv_result    | 1 for success, otherwise 0
  methods LoadLib
    returning
      value(RV_RESULT) type I.

  "! Frees the ActiveXPoshV3 library
  methods FreeLib.

  "! Executes stored OLE activities
  methods Flush.

  "! Clears the internal output buffer
  "! when the OutputMode property is set to mc_OutputBuffer
  methods ClearOutput.

  "! Evaluates a PowerShell expression
  "! If the expression returns an object this function returns -1,
  "! otherwise 0. Output, if any, is not captured or redirected.
  "!
  "! @parameter iv_expression | PowerShell command
  "!
  "! @parameter rv_result     | Result of the command
  methods Eval
    importing
      value(IV_EXPRESSION) type STRING
    returning
      value(RV_RESULT) type I.

  "! Executes a PowerShell command or script
  "! Output is directed according to the OutputMode property.
  "! Variable assignments persist between calls.
  "!
  "! @parameter iv_command    | PowerShell command or script
  methods Execute
    importing
      value(IV_COMMAND) type STRING.

  "! Evaluates a PowerShell expression and returns its value as string
  "!
  "! @parameter iv_expression | PowerShell command
  "!
  "! @parameter rv_result     | Value as string
  methods GetValue
    importing
      value(IV_EXPRESSION) type STRING
    returning
      value(RV_RESULT) type STRING.

  "! Initial call to instantiate a PowerShell engine
  "! Required for any of the methods of this object to succeed.
  "!
  "! @parameter iv_load_profiles | Determines if your PowerShell profiles, if they exist, are executed
  "!
  "! @parameter rv_result        | Returns 0 if successful, otherwise &lt;&gt; 0
  methods Init
    importing
      value(IV_LOAD_PROFILES) type I
    returning
      value(RV_RESULT) type I.

  "! Checks if PowerShell is installed
  "!
  "! @parameter rv_result       | Returns 1 if PowerShell is installed, otherwise 0
  methods GetIsPowerShellInstalled
    returning
      value(RV_RESULT) type I.

  "! Gets the current output mode
  "!
  "! @parameter rv_result       | 0 = OutputConsole, 1 = OutputWindow, 2 = OutputBuffer
  methods GetOutputMode
    returning
      value(RV_RESULT) type I.

  "! Sets the current output mode
  "!
  "! @parameter iv_mode         | 0 = OutputConsole, 1 = OutputWindow, 2 = OutputBuffer
  methods SetOutputMode
    importing
      value(IV_MODE) type I.

  "! Delivers the content of the output buffer as a single string
  "!
  "! @parameter rv_result       | Output buffer as string
  methods GetOutputString
    returning
      value(RV_RESULT) type STRING.

  "! Gets the desired output width in characters
  "! PowerShell output often gets truncated, wrapped or adjusted
  "! corresponding to the width of a console window. Since there
  "! is not necessarily a console window available, the default
  "! is set to 80 characters width.
  "!
  "! @parameter rv_result       | Width in characters
  methods GetOutputWidth
    returning
      value(RV_RESULT) type I.

  "! Sets the desired output width in characters
  "! PowerShell output often gets truncated, wrapped or adjusted
  "! corresponding to the width of a console window. Since there
  "! is not necessarily a console window available, the default
  "! is set to 80 characters width.
  "!
  "! @parameter iv_width       | Width in characters
  methods SetOutputWidth
    importing
      value(IV_WIDTH) type I.

  "! Reads an include as string
  "!
  "! @parameter iv_incl_name   | Name of the include
  "!
  "! @parameter rv_str_incl    | Include as string
  methods ReadInclAsString
    importing
      value(IV_INCL_NAME) type SOBJ_NAME
    returning
      value(RV_STR_INCL) type STRING.

  "! Loads a file from the MIME repository
  "! and copies it to the SAP GUI work directory
  "!
  "! @parameter iv_uri_file    | URI path of the file in the MIME repository
  methods LoadFileFromMime
    importing
      !IV_URI_FILE type CSEQUENCE.

  "! Converts a string to a string table
  "!
  "! @parameter iv_string       | String e.g. from GetOutputString
  "!
  "! @parameter rv_stringtable  | String table
  methods StringToTable
    importing
      value(IV_OUTPUTSTRING) type STRING
    returning
      value(RV_STRINGTABLE) type Z_TAB_STRING.

  "! Converts a string table to a string
  "!
  "! @parameter it_string | String table
  "!
  "! @parameter rv_string | String
  methods TableToString
    importing
      value(IT_STRING) type Z_TAB_STRING
    returning
      value(RV_STRING) type STRING.

  PRIVATE SECTION.

  METHODS IsActiveX
    EXPORTING ev_result TYPE i.

  DATA olib TYPE ole2_object.

ENDCLASS.



CLASS ZACTIVEXPOSHV3 IMPLEMENTATION.


  METHOD if_http_extension~handle_request."-----------------------------

    DATA:
      lv_verb   TYPE string,
      lv_action TYPE string,
      lv_input  TYPE progname,
      lv_data   TYPE string,
      lt_incl   TYPE prognames
      .

    AUTHORITY-CHECK OBJECT 'S_DEVELOP'
      ID 'ACTVT'  FIELD '03'.
    IF sy-subrc = 0.
      CALL METHOD server->response->set_status(
          code   = 403
          reason = 'Not Authorized'
                   ).
      RETURN.
    ENDIF.

    lv_verb = server->request->get_header_field( name = '~request_method' ).
    lv_action = server->request->get_header_field( name = 'action' ).
    lv_input = server->request->get_header_field( name = 'input' ).

    IF lv_verb = 'GET' OR lv_action IS INITIAL OR lv_input IS INITIAL.
      CALL METHOD server->response->set_status(
          code   = 400
          reason = 'Bad Request'
                   ).
      RETURN.
    ENDIF.

    TRANSLATE lv_action TO UPPER CASE.
    TRANSLATE lv_input TO UPPER CASE.

    CASE lv_action.

      WHEN 'READ_INCL_AS_STRING'.
        lv_data = me->ReadInclAsString( iv_incl_name = lv_input ).

      WHEN 'GET_INCL'.
        SELECT name FROM trdir INTO TABLE lt_incl
          WHERE name LIKE lv_input AND subc = 'I' AND appl = space.
        lv_data = /ui2/cl_json=>serialize( data = lt_incl ).

      WHEN OTHERS.
        CALL METHOD server->response->set_status(
          code   = 400
          reason = 'Bad Request'
        ).
        RETURN.

    ENDCASE.

    IF lv_data IS NOT INITIAL.
      CALL METHOD server->response->set_cdata( data = lv_data ).
      CALL METHOD server->response->set_status(
        code   = 200
        reason = 'Ok'
      ).
    ELSE.
      CALL METHOD server->response->set_status(
        code   = 204
        reason = 'No Content'
      ).
    ENDIF.

  ENDMETHOD.


  METHOD ClearOutput."--------------------------------------------------
    CALL METHOD OF olib 'ClearOutput'.
  ENDMETHOD.


  METHOD Eval."---------------------------------------------------------
    CALL METHOD OF olib 'Eval' = rv_result
      EXPORTING #1 = iv_expression.
  ENDMETHOD.


  METHOD Execute."------------------------------------------------------
    CALL METHOD OF olib 'Execute'
      EXPORTING
        #1 = iv_command.
  ENDMETHOD.


  METHOD Flush."--------------------------------------------------------
    CALL METHOD cl_gui_cfw=>flush.
  ENDMETHOD.


  METHOD FreeLib."------------------------------------------------------
    FREE OBJECT olib.
  ENDMETHOD.


  METHOD GetIsPowerShellInstalled."-------------------------------------
    GET PROPERTY OF olib 'IsPowerShellInstalled' = rv_result.
  ENDMETHOD.


  METHOD GetOutputmode."------------------------------------------------
    GET PROPERTY OF olib 'OutputMode' = rv_result.
  ENDMETHOD.


  METHOD GetOutputString."----------------------------------------------
    GET PROPERTY OF olib 'OutputString' = rv_result.
  ENDMETHOD.


  METHOD GetOutputWidth."-----------------------------------------------
    GET PROPERTY OF olib 'OutputWidth' = rv_result.
  ENDMETHOD.


  METHOD GetValue."-----------------------------------------------------
    CALL METHOD OF olib 'GetValue' = rv_result
      EXPORTING #1 = iv_expression.
  ENDMETHOD.


  METHOD Init."---------------------------------------------------------
    CALL METHOD OF olib 'Init' = rv_result
      EXPORTING #1 = iv_load_profiles.
  ENDMETHOD.


  METHOD IsActiveX."----------------------------------------------------

    DATA hasactivex(32) TYPE c.

    ev_result = 0.
    CALL FUNCTION 'GUI_HAS_OBJECTS'
      EXPORTING
        object_model         = 'ACTX'
      IMPORTING
        return               = hasactivex
      EXCEPTIONS
        invalid_object_model = 1
        OTHERS               = 2.
    CHECK sy-subrc = 0 AND hasactivex = 'X'.
    ev_result = 1.

  ENDMETHOD.


  METHOD LoadFileFromMime."---------------------------------------------

    DATA:
      lr_mr_api     TYPE REF TO if_mr_api,
      lv_filedata   TYPE xstring,
      lv_workdir    TYPE string,
      lv_filepath   TYPE string,
      lt_filename   TYPE STANDARD TABLE OF string,
      lv_filename   TYPE string,
      lt_dtab       TYPE TABLE OF x255,
      lv_len        TYPE i,
      lv_fileexists TYPE abap_bool
      .

    SPLIT iv_uri_file AT '/' INTO TABLE lt_filename.
    READ TABLE lt_filename INDEX lines( lt_filename ) INTO lv_filename.

    CALL METHOD cl_gui_frontend_services=>get_sapgui_workdir
      CHANGING
        sapworkdir = lv_workdir
      EXCEPTIONS
        OTHERS     = 1.

    lv_filepath = lv_workdir && '\' && lv_filename.

    CALL METHOD cl_gui_frontend_services=>file_exist
      EXPORTING
        file   = lv_filepath
      RECEIVING
        result = lv_fileexists
      EXCEPTIONS
        OTHERS = 1.

    CHECK lv_fileexists = abap_false.

    IF lr_mr_api IS INITIAL.
      lr_mr_api = cl_mime_repository_api=>if_mr_api~get_api( ).
    ENDIF.

    CALL METHOD lr_mr_api->get
      EXPORTING
        i_url     = iv_uri_file
      IMPORTING
        e_content = lv_filedata
      EXCEPTIONS
        OTHERS    = 1.

    CHECK sy-subrc = 0.

    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer        = lv_filedata
      IMPORTING
        output_length = lv_len
      TABLES
        binary_tab    = lt_dtab.

    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        bin_filesize = lv_len
        filename     = lv_filepath
        filetype     = 'BIN'
      TABLES
        data_tab     = lt_dtab
      EXCEPTIONS
        OTHERS       = 1.

  ENDMETHOD.


  METHOD LoadLib."------------------------------------------------------

    DATA rc TYPE i VALUE 0.

    rv_result = 0.
    CALL METHOD me->isactivex IMPORTING ev_result = rc.
    CHECK rc = 1.
    CREATE OBJECT olib 'SAPIEN.ActiveXPoSHV3'.
    CHECK sy-subrc = 0 AND olib-handle > 0 AND olib-type = 'OLE2'.
    rv_result = 1.

  ENDMETHOD.


  METHOD ReadInclAsString."---------------------------------------------

    DATA:
      lt_trdir    TYPE trdir,
      lt_incl     TYPE TABLE OF string,
      lv_inclline TYPE string,
      lv_retincl  TYPE string
      .

    "TRDIR is a view of table REPOSRC
    SELECT SINGLE * FROM trdir INTO lt_trdir
      WHERE name = iv_incl_name AND subc = 'I' AND appl = space.
    CHECK sy-subrc = 0.
    READ REPORT iv_incl_name INTO lt_incl.
    CHECK sy-subrc = 0.
    LOOP AT lt_incl INTO lv_inclline.
      lv_retincl = lv_retincl && lv_inclline &&
        cl_abap_char_utilities=>cr_lf.
      CLEAR lv_inclline.
    ENDLOOP.
    rv_str_incl = lv_retincl.

  ENDMETHOD.


  METHOD SetOutputMode."------------------------------------------------
    SET PROPERTY OF olib 'OutputMode' = iv_mode.
  ENDMETHOD.


  METHOD SetOutputWidth."-----------------------------------------------
    SET PROPERTY OF olib 'OutputWidth' = iv_width.
  ENDMETHOD.


  METHOD TableToString."------------------------------------------------

    DATA:
      lv_string Type String,
      lv_retString Type String
      .

    Loop At IT_STRING Into lv_string.
      lv_retString = lv_retString && lv_string &&
        cl_abap_char_utilities=>cr_lf.
      Clear lv_string.
    EndLoop.
    rv_string = lv_retString.

  ENDMETHOD.


  METHOD StringToTable."------------------------------------------------

    FIELD-SYMBOLS:
      <lv_string> TYPE string
      .

    SPLIT iv_outputstring
      AT cl_abap_char_utilities=>cr_lf
      INTO TABLE rv_stringtable.
    "-Delete empty lines------------------------------------------------
    LOOP AT rv_stringtable ASSIGNING <lv_string>.
      CHECK <lv_string> IS INITIAL.
      DELETE rv_stringtable.
    ENDLOOP.

  ENDMETHOD.


ENDCLASS.
"-End-------------------------------------------------------------------

这是一个如何使用这个类的例子:

"-Begin-----------------------------------------------------------------
REPORT zPSTest.

  "-Variables-----------------------------------------------------------
  DATA:
    lo_PS TYPE REF TO zactivexposhv3,
    lv_Result TYPE string,
    lt_Result TYPE TABLE OF string
    .

  "-Main----------------------------------------------------------------
  CREATE object lo_PS.
  CHECK lo_PS->LoadLib( ) = lo_PS->mc_True.
  lo_PS->setOutputMode( iv_Mode = lo_PS->mc_OutputBuffer  ).
  CHECK lo_PS->getIsPowershellInstalled( ) = lo_PS->mc_True AND
    lo_PS->Init( iv_Load_Profiles = lo_PS->mc_False ) = 0.
  lo_PS->ClearOutput( ).
  lo_PS->Execute( iv_Command = 'Write-Host "Hello World from PowerShell";' ).
  lv_Result = lo_PS->getOutputString( ).

  SPLIT lv_Result AT cl_abap_char_utilities=>cr_lf INTO TABLE lt_Result.
  LOOP AT lt_Result Into lv_Result.
    WRITE: / lv_Result.
  ENDLOOP.

  lo_PS->FreeLib( ).

"-End-------------------------------------------------------------------


赞赏支持