WSH/壁紙ファイルのパスを取得するVBスクリプト
の編集
Top
/
WSH
/
壁紙ファイルのパスを取得するVBスクリプト
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) * 壁紙のフルパスを取得するVBスクリプト [#ebe13be9] この壁紙ファイル、どこのフォルダ置いてあるの？~ このように壁紙のファイルパスを調べたい時に使えるVBスクリプトを作成しましたので公開します。 壁紙のファイルパスは、以下のレジストリに設定されています。~ したがって、VBスクリプトは、レジストリ値を取得し表示するスクリプトとなっています。 \HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper #contents * 動作確認 [#t69d796d] - Windows 10 21H2 - Windows 11 21H2 * 取得するレジストリ値のありか [#oa6d2e61] 最初にも書きましたが、以下の場所のレジストリ値を取得します。 \HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper #ref(01.png) * 壁紙のファイルパスを取得するVBスクリプト [#g4ef37d6] 以下のVBスクリプトは、指定したレジストリパスのレジストリ値を取得し表示します。 #ref(wallpaperPath.vbs) Dim os Dim wallpaperPath Set os = WScript.CreateObject("WScript.Shell") wallpaperPath = os.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper") WScript.Echo wallpaperPath * 実行結果 [#a29a2ab9] 上記のVBスクリプトを実行した時のキャプチャです。 #ref(02.png) 以上、VBスクリプトを使って壁紙のフルパスを取得する方法でした。
タイムスタンプを変更しない
#navi(../) * 壁紙のフルパスを取得するVBスクリプト [#ebe13be9] この壁紙ファイル、どこのフォルダ置いてあるの？~ このように壁紙のファイルパスを調べたい時に使えるVBスクリプトを作成しましたので公開します。 壁紙のファイルパスは、以下のレジストリに設定されています。~ したがって、VBスクリプトは、レジストリ値を取得し表示するスクリプトとなっています。 \HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper #contents * 動作確認 [#t69d796d] - Windows 10 21H2 - Windows 11 21H2 * 取得するレジストリ値のありか [#oa6d2e61] 最初にも書きましたが、以下の場所のレジストリ値を取得します。 \HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper #ref(01.png) * 壁紙のファイルパスを取得するVBスクリプト [#g4ef37d6] 以下のVBスクリプトは、指定したレジストリパスのレジストリ値を取得し表示します。 #ref(wallpaperPath.vbs) Dim os Dim wallpaperPath Set os = WScript.CreateObject("WScript.Shell") wallpaperPath = os.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper") WScript.Echo wallpaperPath * 実行結果 [#a29a2ab9] 上記のVBスクリプトを実行した時のキャプチャです。 #ref(02.png) 以上、VBスクリプトを使って壁紙のフルパスを取得する方法でした。
テキスト整形のルールを表示する
添付ファイル:
wallpaperPath.vbs
185件
[
詳細
]
01.png
132件
[
詳細
]
02.png
138件
[
詳細
]
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
01.png
02.png
