scrrun.dll が見つからなかった・・エラー

質問

Vista　SP2　32bit　環境です。

先日、Windows アップデートをした後、

USBメモリに置いてあった、　PSMenuというランチャーを起動させる為の
vbsファイルを起動すると

”scrrun.dll が見つからなかったため、このアプリケーションを開始できませんでした”

というエラーが出て起動できなくなりました。

今までは機能していました。

参考URL：　http://www.nagaoka-ct.ac.jp/ec/labo/visu/usb/launcher/psmenu.shtml

”メモ帳などのテキストエディタを使って，USB メモリのルートディレクトリ (U:\) に以下の内容の WSH スクリプトファイル psmenu.vbs を作成・保存します (WSH について興味がある方は，こちら をご覧ください)． ”　　

の部分

復元で更新前に戻しても、状況は同じです。
結局、必要なセキュリティ関連の更新は全てしました。

scrrun.dll　をコンピューターの中で検索しても
存在しませんでした。

対応策が分かる方
助けて下さい。

宜しくおねがいします。

回答No.1

iori16 · ベストアンサー

通常はC:\Windows\System32のフォルダ内に入っているはずですが、

Visual Basic 6.0 SP6 ランタイムライブラリをインストールすると、
その中に「scrrun.dll」が入っているようです。

http://www.vector.co.jp/soft/win95/util/se188840.html

(出典：http://homepage2.nifty.com/nonnon/Chinamini/20100001/20100717.html)

もし、それでも使えない場合、少々強引ですが、
「psmenu.vbs」の中身を書き換えてもいいかもしれません。
書き換えを行うときは必ず、
「psmenu.vbs」を別の場所にコピーしてもとに戻せる状態にしてから
行ってください

「psmenu.vbs」を右クリック→編集で開いた中身がそちらで提示されているURLの
様になっているのであれば、その中身を以下に書き換えても動作すると思われます。

やっていることは「scrrun.dll」がないと動かない以下の文章

Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

を削除し、

strDrv = objFS.GetDriveName(WScript.ScriptFullName)
の代わりに
strDrv = left(objShell.CurrentDirectory,2)
を記述しているだけです。

ーーーーーーーーーーーーーー以下、「psmenu.vbs」を書き換える内容
' PSMenuの起動
Option Explicit
Dim objShell,objFS,strDrv,strCmd
Set objShell = WScript.CreateObject("WScript.Shell")
strDrv = left(objShell.CurrentDirectory,2)
strCmd = strDrv & "\tool\PSMenu\psmenu.exe"
objShell.Exec strCmd

お礼

おかげ様で解決しました。
有難う御座います。