1) PATHの追加
%windir%\Microsoft.NET\Framework\v2.0.50727
C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin
2) キーペアの作成
sn -k lightbox.snk
3) dll のビルド
vbc /target:library lbox4vbs.vb
4) lbox4vbs.vb
Imports System
Imports System.Text
Imports System.Reflection
<Assembly: AssemblyKeyFile("lightbox.snk")>
Namespace Winofsql
Public Interface Ilbox4vbs
Function Base64_sjis( str As String ) As String
End Interface
Public Class lbox4vbs
Implements Ilbox4vbs
Public Function Base64_sjis( str As String ) As String _
Implements Ilbox4vbs.Base64_sjis
Return Convert.ToBase64String(Encoding.GetEncoding("Shift_JIS").GetBytes(str))
End Function
End Class
End Namespace
5) COM として登録
regasm lbox4vbs.dll /tlb:lbox4vbs.tlb /codebase
6) VBScript から実行(test.vbs)
Set obj = WScript.CreateObject( "Winofsql.lbox4vbs" )
Wscript.Echo "gqCCooKkgqaCqEFCQ0Q="
Wscript.Echo obj.Base64_sjis("あいうえおABCD")