パソコンのスリープ機能が効かなくなった！対策方法を知りたい

訂正

６，デスクトップに「スリープ.vbs」が作成される。（添付画像）の画像は添付していません。

デスクトップ画面最下部左のスタートを右クリック　→　アプリと機能（F)　→　スタートアップ　→　PowerDVD 20が表示さてていればオフにしてみる。スリープ出来なければ電源のスリープの設定を色々変更してみる。最終手段はコマンド「rundll32.exe PowrProf.dll,SetSuspendState」でスリープさせる。毎回コマンドを実行するのは面倒なので以下のVBSファイルを作成してマウスで開く。

作成方法
１、以下のソースプログラムをコピー

Dim WSH
Set WSH = CreateObject("WScript.Shell")
MyTime = 3
Ans = WSH.Popup(MyTime & "秒後にスリープになります。", MyTime, "確認",vbOKCancel)
If Ans = vbCancel Then
WScript.Quit
End If
WSH.Run "rundll32.exe PowrProf.dll,SetSuspendState"
Set WSH = Nothing

２，メモ帳を開き貼り付ける。
３，ファイル（F)　→　名前を付けて保存（A)
４，以下を指定する。
４－１，場所をデスクトップを指定（任意）
４－２，ファイル名（N):「スリープ.vbs」（任意名＋.vbs）
４－３．ファイルの種類（T):「すべてのファイル（（*.*）選択
４－４，文字コード（E)；ANSI選択
＊ANSI以外選択した場合実行時の日本語メッセージが文字化けする。
５、保存ボタンをクリックする。
６，デスクトップに「スリープ.vbs」が作成される。（添付画像）
７，「スリープ.vbs」ファイルをダブルクリックすると「スリープ.vbs」が起動しキャンセルボタンを押せばスリープなし、OKボタンを押せば即、メッセージを無視すれば３秒後にスリープ状態になる。
＊スリープ状態になる時間の変更は「スリープ.vbs」を右クリック　→　編集を選択するとソースプログラムがメモ帳で開くのでMyTime = 3の数字を変更して上書き保存。
８，復帰は電源ボタンオン

**************************************************************************
作成から復帰まで動作確認はしていますが、自己責任で使用してください。ショートカット、VBS実行ファイルを作成してタスクバーにドラッグアンドドロップするとタスクバーにピン留めされます。（添付画像）
**************************************************************************