ｖｂａで「休止状態」にしたい

質問

ｖｉｓｔａ、オフィス2003です。

以前の質問関連ですが
http://okwave.jp/qa4909102.html
ｖｂａで休止状態にしたいです。

で、http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/technic.htm
から
「シャットダウンのダイアログが出るタイプ。スタートメニューから終了するのと同じです」
Set Win =CreateObject("Shell.Application")
Win.ShutdownWindows
はできるのですが

サスペンド(スタンバイ)

Set Win = CreateObject("Shell.Application")
Win.Suspend

は何も起こりません。
スタンバイ機能がvistaにないからでしょうか？

vistaでスタンバイにする方法がわかる方、
教えてください。
よろしくお願いします。

回答No.1

DOUGLAS_ · ベストアンサー

Sub Macro()
Shell ("C:\Windows\System32\rundll32.exe powrprof.dll,SetSuspendState")
End Sub

ＸＰでしたら、これでＯＫですが、はて Vista では？

お礼

ありがとうございます。
早速やってみたところ、スリープモードになってしまいました。
ＸＰのスタンバイ＝vistaのスリープなのかもしれません。

回答No.3

DOUGLAS_

＃DOUGLAS_ です。たびたび失礼いたします。　≦(._.)≧

　さきほどのは、意味不明な中国語の サイト から無理矢理引っ張ってきましたので、多分 エラー 発生、あるいは動作しないかと存じます。

　で、
http://scripting.cocolog-nifty.com/blog/2007/04/post_5183.html
を参考にして

Sub Macro()
CreateObject("Excel.Application").ExecuteExcel4Macro "CALL(""PowrProf.dll"",""SetSuspendState"",""JJJJ"",0,0,0)"
End Sub

で「スタンバイ」にできました（ただし、ＸＰです）。

お礼

できました。

しかし自分で質問して不安に思ったのですが
スリープと休止状態の違いがよくわかっていませんでした。
でもスリープでもよくなってきました。
何度もありがとうございます。

回答No.2

DOUGLAS_

[回答番号：No.1] の DOUGLAS_ です。

＞早速やってみたところ、スリープモードになってしまいました。
　手許に、Vista の パソコンがありませんので確認ができず、何の根拠もございませんが、「SetSuspendState」を
SetStandbyState
SetSuspendState
SetHibernateState
などに変えてお試しください。

お礼

SetStandbyState　は「エラーが発生しました」というメッセージがでます。
SetSuspendStateはスリープモード？回復に時間がかかるからスタンバイ？
SetHibernateState　は「エラーが発生しました」というメッセージがでます。

でした。