MonaTicket_delete.vbs

' INIファイルを読み込む
Ini = CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 1).ReadAll

' MonaTicket=の後ろの25文字を削除する正規表現を設定
Set RE = New RegExp
RE.Pattern = "(MonaTicket=.*?)(.{25})"

' 置換を実行
Ini = RE.Replace(Ini, "$1")

' INIファイルに書き戻す
CreateObject("Scripting.FileSystemObject").OpenTextFile("Jane2ch.ini", 2, True).Write Ini

Jane2ch.iniのある場所に置いて実行。改良があればどうぞ