' *************************************************************** ' ★★★ 保存時に拡張子を .vbs に変更すると実行できます ★★★ ' *************************************************************** Set WshShell = CreateObject( "WScript.Shell" ) Call WshShell.Run( "rundll32.exe shell32.dll,#61" )