' *************************************************************** ' ★★★ 保存時に拡張子を .vbs に変更すると実行できます ★★★ ' *************************************************************** Set WshShell = CreateObject( "WScript.Shell" ) Call WshShell.Run( "control.exe /name Microsoft.Personalization /page pageWallpaper" )