［Script］［VBS］レジストリの設定（WshShell.RegWrite）

レジストリを読み書きします。

壁紙を変える

TargetWallPaperFile = "D:\picture\wallpaper.jpg"
Set WshShell = WScript.CreateObject("WScript.Shell")

'自分だけの設定だとココ
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",　TargetWallPaperFile,　"REG_SZ"

'マシン全体の（全ユーザーの）設定だとココ
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper",　TargetWallPaperFile,　"REG_SZ"

'設定をクリアするのはこう
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper", "", "REG_SZ"

WScript.Quit

---

Script のページに戻る