このレジストリキー内の NeverShowExt の名称を AllwaysShowExt に変更すると .LNK 拡張子が表示されるようになります。 ※ ダウンロードされるスクリプトでレジストリの該当場所が開かれます。 ( コンピューター\HKEY_CLASSES_ROOT\lnkfile ) ※ 他にも コンピューター\HKEY_CLASSES_ROOT\InternetShortcut があります 但し変更してもすぐには反映されないのでエクスプローラを再起動する必要があります。まともにそれを行うにはいったんログオフする必要がありますが、以下のスクリプトで再起動できます。
' **********************************************************
' エクスプローラ(explorer.exe) の再起動
' **********************************************************
strTarget = "explorer.exe"
' 起動用
Set WshShell = CreateObject( "WScript.Shell" )
' WMI用
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
' いったん終了させます
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '"&strTarget&"'")
For Each objProcess in colProcessList
on error resume next
' 通常はこれで終了されるはず
objProcess.Terminate()
if Err.Number <> 0 then
' もし終了できなかった場合の強制終了
Call WshShell.Run("taskkill /F /PID " & objProcess.ProcessId, 0 )
end if
on error goto 0
Next
' 少し待ちます
Wscript.Sleep(500)
' エクスプローラを起動
WshShell.Run( strTarget )
|
|
【Windowsの最新記事】
- 空の zip ファイル / VBScript で作成可能
- Windows 機能の呼び出し
- Windows : shell:sendto は、sendto だけで開くようです。
- Shell コマンドで開くフォルダ : HTA でクリックすると実行可能
- URI スキーム : Windows Update 画面を表示するコマンド
- Explorer.exe のコマンドライン を使用して CLSID で特殊フォルダを開く / この記事では table のコマンドラインをクリックするとクリップボードにコピーできます。
- Windows7 と Windows10 : MSG コマンドを使えるようにするには ( msg.exe )
- Windows でパスワードを忘れた場合はインストールディスクがあれば簡単に復旧できるのは解った。
- VBScript : めんどくさいフォルダを開く
- Windows7 / 10 : イベントビュアーのログの設定をコマンドラインより行う(クリアを含む)
- Windows のエクスプローラのオプションダイアログを表示する rundll32.exe の引数
- 『Windows 10、バージョン 1709 の機能更新プログラム』の記録
- いまさらですが、『クリーンアップ』を管理者権限で起動して、Windows Update 関連やシステム関連の比較的大きなファイルを削除する
- Windows SDK の mt.exe を使用して、既存の exe を常に管理者権限で起動を求めるように変更する
- ファイル名を指定して実行と、『管理者権限』
- RICOHのデジタルフルカラー複合機でスキャンしたPDFを自分のPCに保存する
- 日本語入力で、変換ができなくなったら『辞書を修復』
- 広告から感染するウィルスに対する具体的な対処法について
- ファイル名を指定して実行(管理者)
- フォルダのセキュリティ設定
