Windows 7でアスカ見参を動作させるVBScript

以下の太字の部分を、メモ帳などのテキストエディタを使って、拡張子vbsで保存し、
アスカ見参と同じフォルダに置いて、実行してください。




' 『不思議のダンジョン 風来のシレン外伝「女剣士アスカ見参！」for Windows』用
' secdrv.sys ドライバーのサービスを一時的に有効化し、
' ゲーム終了後に無効化状態に戻すVBScript

' アプリケーションと同じ場所 C:\Program Files (x86)\CHUNSOFT\AsukaPC\ に置いて利用します。

' 2015年9月のWindows Update「MS15-097」によって、secdrv.sys ドライバーのサービスが無効化され、
' 『不思議のダンジョン 風来のシレン外伝「女剣士アスカ見参！」for Windows』が
' Windows 7等で起動しなくなってしまいました。
' 詳細は、マイクロソフト社のサイトをご覧ください。
' https://support.microsoft.com/ja-jp/kb/3086255
' このスクリプトは、アスカ見参が起動する直前にサービスを一時的に有効化し、
' アスカ見参を終了するとサービスを無効化するスクリプトです。
' これはつまり、セキュリティホールになり得ることでありますので、その点をご承知置きください。

' ---
' このスクリプト自身を管理者権限で改めて呼び出す。
If WScript.Arguments.Count = 0 Then
CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ a", "", "runas"
WScript.Quit
End If

' 以後、各コマンドを管理者権限で実行する。
Set O = CreateObject("WScript.Shell")

O.Run "sc config secdrv start= demand", , True
O.Run """C:\Program Files (x86)\CHUNSOFT\AsukaPC\AsfPc.exe""", , True ' アプリケーションを実行する
O.Run "sc stop secdrv", , True
O.Run "sc config secdrv start= disabled", , True