【SAP ECC 6.0】VBScriptで RPAっぽいこと実現させる

はじめに
VBScriptで、SAP ECC 6.0を動かす
どんな時、こんなの使うの？
当初、やりたかったこと。

はじめに

この記事は SAP Advent Calendar 2019 の12月17日分の記事として執筆しています。

SAP Advent Calendar 2019 - Adventar

今年もSAPアドベントカレンダーをやります！ SAPに関する話題なら何でもOK。ハッシュタグは #SAPアドベントカレンダー参加者向け　投稿ルール・担当日よりも前に記事を完成・予約投稿機能で担当日に公開・記事の冒頭には SAPアドベントカレンダーページへのリンクをはり参加記事であることを明記　例「この記...

Mino Katoさんからのバトンパス

蜜蜂ハチ

アドベントカレンダーがHANA一色の中、私は ECC 6.0について、野菊のようにささやきます。

VBScriptで、SAP ECC 6.0を動かす

タイトル通りです。VBScriptで、SAP ECC 6.0をRPAのように動かします。

ハッチインプットほと話し合い複雑なことはできませんが、自動化はできそうです。

事前設定

Uipathのサイトに完璧な事前設定のサイトがあったので、ご参照ください。ありがとうUipathさん。

https://docs.uipath.com/studio/lang-ja/docs/enabling-sap-gui-scripting

UiPath Documentation Portal - すべての貴重な情報のホーム。ここでは、複雑なインストールガイドからクイックチュートリアル、実用的なビジネス例、自動化のベストプラクティスに至るまで、UiPath エコシステムでの自動化の旅を案内するために必要なすべてを見つけることができます。

スクリプト記録と再生

今回はVBScriptを実行して、SAP ECC 6.0をログインするです。

VBScriptをスラスラかける人はあまり関係ないです。ガンガン書いて、自動化しましょう。

ですが、ゼロから書き始めるのは大変です。SAP ECC 6.0はスクリプトを記録してくれる機能があります。

スクリプト記録と再生を押すと、ボタンが表示されるので、記録ボタンを押してみましょう。（画像取り忘れた。。。）

そして、実際にログインしてみます。

クライアント　入力
ユーザ　　　　入力　
パスワード　　入力

ログイン完了。

記録ボタンを、再度おして、記録するのもやめます。すると、指定のフォルダにVBScriptのファイルができてます。ソースコードは下記の通り。クライアントとユーザとパスワードは変更してます。

！注意！パスワードは記録されません！そのため、コードを書き換える必要があります。

If Not IsObject(application) Then
    Set SapGuiAuto  = GetObject("SAPGUI")
    Set application = SapGuiAuto.GetScriptingEngine
 End If
 If Not IsObject(connection) Then
    Set connection = application.Children(0)
 End If
 If Not IsObject(session) Then
    Set session    = connection.Children(0)
 End If
 If IsObject(WScript) Then
    WScript.ConnectObject session,     "on"
    WScript.ConnectObject application, "on"
 End If
 session.findById("wnd[0]").maximize
 session.findById("wnd[0]/usr/txtRSYST-MANDT").text = "クライアント"
 session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "ユーザ"
 session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "パスワード"
 session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus
 session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 7
 session.findById("wnd[0]").sendVKey 0

これで、セッションを立ち上げて、VBScriptを実行すれば、クライアント、ユーザ、パスワードを入力せずにログオンできます。

以上です。

。

いや、さすがにこれで終わらないです。

ユーザ別が使用したトランザクションコードの使用回数を調べる

月に一回、ユーザが使用したトランザクションコードのログを取ってます。別になんかするわけでもなく、一年で消えちゃうので、取っておこう的な感じです。

取得方法ですが、下記の通りです。

TCD:ST03N
サーバーが複数ある場合、合計を選択
ユーザプロファイルを選択
表示されたユーザIDをダブルクリック
ユーザー別　トランザクションコードが表示される。

合計を選択。

ユーザプロファイル選択。表示されたら、ユーザIDをダブルクリック。

すると、上記のように、とあるユーザーが使用したトランザクションコードが表示されます。

この画面を見たことある人は気づいていると思いますが、一人ずつしか、表示されないんです。一括で取得できないんです。一人ずつ紹介して、ログを取ってくるのは現実的ではありません。

(もしかしたら、標準機能で存在してるのかもしれないけど、私は知らない。)

そしたら、どうすればよいかというと、実は汎用モジュール「SWNC_COLLECTOR_GET_AGGREGATES」で一括でとることができます。

なので、スクリプト記録と再生で下記の手順を実行します。

セッション立ち上げ
TCD:/nSE37
SWNC_COLLECTOR_GET_AGGREGATES を入力
テスト実行
component　に　”TOTAL”　入力
periodtype に”M”　入力
periodstrt に　”2019/11/01″ 入力（ログを取りたい月の初日）
実行
usertcode を選択
すべて表示
ダウンロードボタンをクリック
保存先入力
ファイルの保存
F3×３で最初の画面に戻る

そうすると、下記の VBScript が作成されます。次回からは、日付を変えれば取得可能です。

If Not IsObject(application) Then Set SapGuiAuto = GetObject(“SAPGUI”) Set application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(connection) Then Set connection = application.Children(0) End If If Not IsObject(session) Then Set session = connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, “on” WScript.ConnectObject application, “on” End If session.findById(“wnd[0]”).maximize session.findById(“wnd[0]/tbar[0]/okcd”).text = “/nse37” session.findById(“wnd[0]”).sendVKey 0 session.findById(“wnd[0]/usr/ctxtRS38L-NAME”).text = “SWNC_COLLECTOR_GET_AGGREGATES” session.findById(“wnd[0]/usr/ctxtRS38L-NAME”).caretPosition = 29 session.findById(“wnd[0]/tbar[1]/btn[8]”).press ‘”TOTAL”固定 session.findById(“wnd[0]/usr/txt[34,9]”).text = “TOTAL” ‘月別で取得するので”M”固定 session.findById(“wnd[0]/usr/txt[34,11]”).text = “M” ‘取得したい月の月初を入力”YYYY/MM/DD” session.findById(“wnd[0]/usr/txt[34,12]”).text = “2019/11/01” session.findById(“wnd[0]/usr/txt[34,12]”).setFocus session.findById(“wnd[0]/usr/txt[34,12]”).caretPosition = 4 session.findById(“wnd[0]/tbar[1]/btn[8]”).press session.findById(“wnd[0]/usr”).verticalScrollbar.position = 1 session.findById(“wnd[0]/usr”).verticalScrollbar.position = 2 session.findById(“wnd[0]/usr”).verticalScrollbar.position = 3 session.findById(“wnd[0]/usr”).verticalScrollbar.position = 4 session.findById(“wnd[0]/usr”).verticalScrollbar.position = 5 session.findById(“wnd[0]/usr/lbl[34,37]”).setFocus session.findById(“wnd[0]/usr/lbl[34,37]”).caretPosition = 0 session.findById(“wnd[0]”).sendVKey 2 session.findById(“wnd[0]/mbar/menu[0]/menu[0]”).select session.findById(“wnd[0]/mbar/menu[3]/menu[5]/menu[2]/menu[2]”).select session.findById(“wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]”).select session.findById(“wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]”).setFocus session.findById(“wnd[1]/tbar[0]/btn[0]”).press ‘ファイルの保存先” session.findById(“wnd[1]/usr/ctxtDY_PATH”).text = “C:\　保存先” ‘ファイル名” session.findById(“wnd[1]/usr/ctxtDY_FILENAME”).text = “USERTCODE201911.txt” session.findById(“wnd[1]/usr/ctxtDY_PATH”).setFocus session.findById(“wnd[1]/usr/ctxtDY_PATH”).caretPosition = 28 session.findById(“wnd[1]/tbar[0]/btn[0]”).press session.findById(“wnd[0]/usr/lbl[17,17]”).setFocus session.findById(“wnd[0]/usr/lbl[17,17]”).caretPosition = 35 session.findById(“wnd[0]”).sendVKey 3 session.findById(“wnd[0]”).sendVKey 3 session.findById(“wnd[0]”).sendVKey 3 session.findById(“wnd[0]”).sendVKey 3

どんな時、こんなの使うの？

今回の VBScript はいつ使うの？って話ですが、発送次第です。いろいろ可能です。

繰り返しの作業の自動化
VBScript が書ける人はエクセルと組み合わせで処理の自動化
RPAでSAPECCも処理可能ですが、SAPECCを知らない人は開発が少々難しいです。RPAを依頼してる事業部の人に VBScript を記録してもらい、その VBScript をRPAをキックする。（RPAの部品として使用）
RPAですべてやりたい場合は、記録した VBScript と同等の動きをしているかテストに使用する。

当初、やりたかったこと。

Excelから汎用モジュール「SWNC_COLLECTOR_GET_AGGREGATES」を呼び出して、Excelに落としてきて、自動でユーザ別使用一覧を作りたかった。しかし、 SWNC_COLLECTOR_GET_AGGREGATESがどうやってもExcelから、エラーになり呼び出せず。。。断念。なので、スクリプトに変更。