S = CreateObject("HtmlFile").ParentWindow.ClipboardData.GetData("text") & "" : If MsgBox("acorn=" & S & ";", 36, "acorn paste") <> 6 Then WScript.Quit
Set RE = New RegExp : RE.Pattern = "^\w*$" : If Not RE.Test(S) Then MsgBox "Error: Invalid character.", 16, "acorn paste" : WScript.Quit
Ini = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll
Set RE = New RegExp : RE.Pattern = ";acorn=\w*(;?)" : Ini = RE.Replace(Ini, ";acorn=" & S & "$1")
Set RE = New RegExp : RE.Pattern = "=acorn=\w*(;?)" : Ini = RE.Replace(Ini, "=acorn=" & S & "$1")
Ini = Replace(Ini, vbCrLf & "WrtCookie=" & vbCrLf, vbCrLf & "WrtCookie=acorn=" & S & vbCrLf)
If InStr(Ini, "acorn=" & S) = 0 Then Ini = Replace(Ini, vbCrLf & "WrtCookie=", vbCrLf & "WrtCookie=acorn=" & S & ";")
CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 2, True).Write Ini
CreateObject("WScript.Shell").Run "Jane2ch.exe"

クリップボードにあるCookieをJane2ch.iniにセットして、Jane2ch.exeを起動するVBS
作業フォルダーをJane2ch.exeとJane2ch.iniのある場所にして実行する
JaneStyleは起動していない状態で実行する
Jane2ch.iniを壊さないよう使用可能文字は半角英数下線のみ、それ以外はエラー

（自分はJaneStyle→ブラウザ移植のみなのだが、逆向きも需要あるみたいなので作った）