Hatena::Groupvbscript

CAPICOM.Utilities

主要な Windows 標準コンポーネントの一覧 → http://vbscript.g.hatena.ne.jp/keyword/ProgID
VBScript 基礎文法最速マスター → http://vbscript.g.hatena.ne.jp/cx20/20100131/1264906231

CAPICOM.Utilities

概要

CAPICOM.Utilities は、CryptoAPI (CAPI) の ユーティリティ オブジェクトを表す ProgID です。

このオブジェクトを使用することで、バイナリデータと文字列との変換や Base64 変換が利用できるようになります。

また、CAPICOM が存在しない場合は、下記サイトよりダウンロードできます。

Platform SDK Redistributable : CAPICOM

サンプル

' File : ShowBase64.vbs
' Usage : CScript //Nologo ShowBase64.vbs
' Description : VBScript から CAPICOM を利用して Base64 変換を行うサンプル。
Option Explicit

Call Main()

Sub Main()
    Dim strData
    strData = "こんにちは"
    Call ShowBase64( strData )
End Sub

Sub ShowBase64( strData )
    Dim capi
    Set capi = CreateObject("CAPICOM.Utilities")
    Dim strHex
    Dim strBase64
    strHex = capi.BinaryToHex( strData )
    strBase64 = capi.Base64Encode( strData )

    DebugPrint "strData    = [" & strData & "]"
    DebugPrint "strHex     = [" & strHex & "]"
    DebugPrint "strBase64  = [" & strBase64 & "]"
End Sub

Sub DebugPrint( strMessage )
    ' WSH で実行する場合
    WScript.Echo strMessage
    ' VBA で実行する場合
    ' Debug.Print strMessage
End Sub
実行結果
strData    = [こんにちは]
strHex     = [533093306B3061306F30]
strBase64  = [UzCTMGswYTBvMA==
]

参考情報