REPORT Z_GET_FRONTEND_HOSTNAME.DATA: OPCODE(1) TYPE X VALUE 5,COMPUTER_NAME TYPE USR41-TERMINAL.CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODEID'TERMINAL' FIELD COMPUTER_NAME.WRITE COMPUTER_NAME.DATA(IP_ADDRESS) = CL_GUI_FRONTEND_SERVICES=>GET_IP_ADDRESS( ).WRITE IP_ADDRESS.
ABAP中如何获取登录电脑的帐号名字
DATA WINUSER TYPE STRING.Windows User NameCALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_USER_NAMECHANGINGUSER_NAME = WINUSEREXCEPTIONSCNTL_ERROR = 1ERROR_NO_GUI = 2NOT_SUPPORTED_BY_GUI = 3OTHERS = 4.CALL METHOD CL_GUI_CFW=>FLUSHEXCEPTIONSCNTL_SYSTEM_ERROR = 1CNTL_ERROR = 2OTHERS = 3.WRITE : WINUSER.
获取计算机名称
CL_GUI_FRONTEND_SERVICES=>GET_COMPUTER_NAME(CHANGINGCOMPUTER_NAME = COMPUTER_NAME_01 ).* EXCEPTIONS* cntl_error = 1* error_no_gui = 2* not_supported_by_gui = 3* others = 4* ).CALL METHOD CL_GUI_CFW=>UPDATE_VIEW.WRITE / COMPUTER_NAME.
在新增/刪除/修改資料時，常需要log使用者的基本資料，但使用者的IP Address、Windows帳號及電腦名稱在syst中又找不到。
FUNCTION zbc_get_user_info.*"----------------------------------------------------------------------*"*"區域介面：EXPORTINGREFERENCE(R_IPADD) TYPE EWAWA_IPADDRESS User IP AddressREFERENCE(R_STAMP) TYPE ZTIMESTAMP Time Stamp Time StampREFERENCE(R_OSUSER) TYPE /BEV2/ED_GEN_TABLEDATA OS User NameREFERENCE(R_DOMAIN) TYPE /BEV2/ED_GEN_TABLEDATA DomainREFERENCE(R_DNSDOMAIN) TYPE /BEV2/ED_GEN_TABLEDATA DNS DomainREFERENCE(R_COMPUTERNAME) TYPE /BEV2/ED_GEN_TABLEDATA Computer Name*"----------------------------------------------------------------------DATA: l_hostaddr1 TYPE msxxlist-hostadr,TYPE c,itimes TYPE i,itimes1 TYPE i,hx(2),result TYPE i,resulttxt(3),iptxt(15),l_time TYPE timestampl,TYPE c.GET TIME STAMP FIELD l_time.l_timestamp = FRAC( l_time )."l_time.l_timestamp = l_timestamp+2(7).REPLACE ALL OCCURRENCES OF '.' IN l_timestamp WITH ''.r_stamp = l_timestamp. "時間戳記Computer nameCALL METHOD cl_gui_frontend_services=>get_computer_nameCHANGINGcomputer_name = r_computernameEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.Get IP AddressCALL METHOD cl_gui_frontend_services=>get_ip_addressRECEIVINGip_address = r_ipaddEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 99.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.OS User nameCALL METHOD cl_gui_frontend_services=>get_user_nameCHANGINGuser_name = r_osuserEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.Domain及Get DNS Domain需要SAP GUI端另放行權限，*若沒有需求，可以將該兩段Mark.DomainCALL METHOD cl_gui_frontend_services=>environment_get_variableEXPORTINGvariable = 'USERDOMAIN'CHANGINGvalue = r_domainEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.*IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.*DNS DomainCALL METHOD cl_gui_frontend_services=>environment_get_variableEXPORTINGvariable = 'USERDNSDOMAIN'CHANGINGvalue = r_dnsdomainEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.*IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.*FlushCALL METHOD cl_gui_cfw=>flushEXCEPTIONScntl_system_error = 1cntl_error = 2OTHERS = 3.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDFUNCTION.
SAP 获取本机信息（IP及电脑名称）
*&---------------------------------------------------------------------*Report Z_JYH_TEST*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT z_jyh_test.DATA : ip TYPE char20.DATA : computer_name TYPE string."获取IP地址CALL METHOD cl_gui_frontend_services=>get_ip_addressRECEIVINGip_address = ipEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.CALL METHOD cl_gui_cfw=>flush.WRITE: / '本机IP:', ip."获取电脑名称CALL METHOD cl_gui_frontend_services=>get_computer_nameCHANGINGcomputer_name = computer_nameEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.CALL METHOD cl_gui_cfw=>flush.CALL METHOD cl_gui_cfw=>update_view.CONDENSE computer_name.WRITE: / '电脑名称:', computer_name.
REPORT Z_GET_FRONTEND_HOSTNAME.DATA: OPCODE(1) TYPE X VALUE 5,COMPUTER_NAME TYPE USR41-TERMINAL.CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODEFIELD COMPUTER_NAME.WRITE / COMPUTER_NAME.= CL_GUI_FRONTEND_SERVICES=>GET_IP_ADDRESS( ).WRITE / IP_ADDRESS.DATA WINUSER TYPE STRING.Windows User NameCALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_USER_NAMECHANGINGUSER_NAME = WINUSEREXCEPTIONSCNTL_ERROR = 1ERROR_NO_GUI = 2NOT_SUPPORTED_BY_GUI = 3OTHERS = 4.CL_GUI_CFW=>FLUSH( ).WRITE /: WINUSER.DATA:COMPUTER_NAME_01 TYPE STRING.CL_GUI_FRONTEND_SERVICES=>GET_COMPUTER_NAME(CHANGINGCOMPUTER_NAME = COMPUTER_NAME_01 ).EXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3others = 4).CL_GUI_CFW=>UPDATE_VIEW( ).WRITE / COMPUTER_NAME.
我是老周，如果你喜欢我的文字，请记得点击⬇️关注我。
码字不易，文章下拉，右边点个【赞】和【在看】吧！！
猜您还喜欢合集：
猜您还喜欢文章：
