2.3.2　許可外ソフトウェアがインストールされている資産をリストアップする場合の記述例

許可外ソフトウェアがインストールされている資産と、そのソフトウェアをリストアップしてファイルに出力する場合の記述例を次に示します。この例では、リストを作成するために、[JOIN_FIND]タグを使って複数クラスを結合して検索しています。

• 出力ファイルの内容例

  この記述例の処理で出力されるファイルの内容例を次に示します。

  "ソフトウェア名","バージョン","資産番号","部署","利用者"
  "SoftwareA","0100","0000000001","本社/営業部/営業1課","ユーザ1"
  "SoftwareA","0101","0000000001","本社/営業部/営業1課","ユーザ1"
  "SoftwareB","0100","0000000001","本社/営業部/営業1課","ユーザ1"
  "SoftwareA","0100","0000000002","本社/営業部/営業2課","ユーザ2"

#AssetInformationManager HTML 0005
 
#===============================================================================
# 変数定義
#===============================================================================
[VAR]
  STATUS
  DUMMY
  WORK
  ECHOMSG
  MSG
  FILENAME
 
[SET_VALUE]
  MSG = $GETSESSION('MSG')
 
#===============================================================================
# 許可外ソフトウェアのインストール情報をCSV出力（メイン）
#===============================================================================
[BEGIN]
 
  [VAR]
    ASSET_NO
    GROUP
    USER
    SOFTNAME
    SOFTVR
    FH
    LINE
  [ARRAY]
    OUTLINE
 
  [SET_VALUE]
    FILENAME = $GETSESSION('CSV')
    FH = $FILEOPEN(FILENAME, RENEW)
 
    $SETARRAY(OUTLINE,'ソフトウェア名')
    $SETARRAY(OUTLINE,'バージョン')
    $SETARRAY(OUTLINE,'資産番号')
    $SETARRAY(OUTLINE,'部署')
    $SETARRAY(OUTLINE,'利用者')
 
    $FILEARRAY(FH, OUTLINE)
    $CLEARARRAY(OUTLINE)
 
    LINE = 0
 
  [TRANSACTION]
    [ASSET_ITEM_LOOP]
      [JOIN_FIND]
      [JOIN]
        joinassoc;InstalledListLink;
        joinfrom;InstalledList,InstalledInfo;
        jointype;INNER;
      [JOIN]
        joinassoc;InstalledLink;
        joinfrom;InstalledInfo,AssetInfo;
        jointype;INNER;
      [JOIN]
        joinfrom;AssetInfo,GroupInfo;
        jointype;OUTER;
        joinkey;AssetInfo.GroupID,GroupInfo.GroupID;
      [FIND_DATA]
        (InstalledList.InstalledPermit = '2')
      [GET_VALUE]
        SOFTNAME = InstalledList.InstalledName
        SOFTVR   = InstalledList.InstalledVersion
        ASSET_NO = AssetInfo.AssetNo
        GROUP    = GroupInfo.FullPathName
        USER     = AssetInfo.UserName
 
      [SET_VALUE]
        $SETARRAY(OUTLINE,SOFTNAME)
        $SETARRAY(OUTLINE,SOFTVR)
        $SETARRAY(OUTLINE,ASSET_NO)
        $SETARRAY(OUTLINE,GROUP)
        $SETARRAY(OUTLINE,USER)
 
        $FILEARRAY(FH, OUTLINE)
        $CLEARARRAY(OUTLINE)
 
        LINE = $ADD(LINE, 1)
    [ASSET_ITEM_LOOP_END]
 
  [SET_VALUE]
    $SETSTATUS('NORMAL')
  [TRANSACTION_END]
 
  [SET_VALUE]
    $FILECLOSE(FH)
 
  [IF]
    (LINE = 0)
    [THEN]
      [SET_VALUE]
        ECHOMSG = 'データはありませんでした'
        $ECHO(ECHOMSG)
        $EXIT(1)
    [ELSE]
      [SET_VALUE]
        ECHOMSG = LINE+'件のデータを出力しました'
        $ECHO(ECHOMSG)
  [IF_END]
 
[END]

ページの先頭へ